《vb程序设计初步》PPT课件.ppt
第第1章章visual basic概述概述 学习目标l掌握VB应用程序开发的一般步骤l掌握命令按钮、文本框和标签的使用和Msgbox函数的用法l理解赋值语句、变量的概念、理解对象、属性、方法和事件的概念及其之间的区别和联系，理解面向对象的原理1/17/20231lVB程序开发的一般方法程序开发的一般方法lVB程序打包开发的一般方法程序打包开发的一般方法lTime时间控件的用法时间控件的用法lMsgbox语句的用法语句的用法l变量和赋值语句的使用方法变量和赋值语句的使用方法1/17/20232 实例：倒计时器实例：倒计时器 请输入倒计时的分针数请输入倒计时的分针数text1开始开始Interval(时间间隔）时间间隔）1000（1秒钟运行一次）秒钟运行一次）Enabled(flase)1/17/20233Dim m as longPrivate sub command-click()Time1.Enabled=Turem=Val(text1.text)*60lable1.caption=“现在开始现在开始”Command1.visible=FalseEnd sub1/17/20234Private sub timer1-timer()m=m-1If m0 thenTimer1.enabled=flaseMsgbox“时间到！时间到！”，0，“倒计时倒计时”Label1.caption=“请输入倒计时的分钟数请输入倒计时的分钟数”Text1.text=“”Command1.visible=trueElseText1.text=mEnd ifEnd sub1/17/20235程序设计的程序设计的8个步骤：个步骤：设计应用程序界面、设计应用程序界面、在界面上放置所需的控件、在界面上放置所需的控件、设置控件的属性、设置控件的属性、编写代码、编写代码、保存运行工程、保存运行工程、将工程编译成可执行文件、将工程编译成可执行文件、打包制作安装程序、打包制作安装程序、在其它机器上安装运行在其它机器上安装运行1/17/20236变量：其值可变的量变量：其值可变的量当执行了当执行了dim语句后，语句后，vb程序就会在计算机内存中预程序就会在计算机内存中预留一个区域，准备存放数据留一个区域，准备存放数据例：例：dim m as long 变量名变量名数据类型数据类型赋值语句：赋值语句：m=val(text1.text)*601/17/20237 msgbox语句语句命令格式：命令格式：msgbox提示信息，对话框类型，对话提示信息，对话框类型，对话框标题框标题函数格式函数格式变量变量=msgbox(提示信息，对话框类型，对话框标提示信息，对话框类型，对话框标题）题）1/17/20238 Time时钟控件时钟控件主要用途：常用于进行后台程序的中断处理主要用途：常用于进行后台程序的中断处理主要属性：以毫秒（主要属性：以毫秒（ms）为单位）为单位Enabled属性属性 Interval=0或设置或设置 Enabled=false都可关闭计时器都可关闭计时器主要事件（唯一）：主要事件（唯一）：Timer事件事件1/17/20239小结小结初步知识初步知识变量变量赋值赋值MsgboxTime时钟控件时钟控件1/17/202310小结小结程序开发过程程序开发过程1、添加窗体控件，完成窗体控件的设置属性、添加窗体控件，完成窗体控件的设置属性2、在窗体上放置标签、文本框、命令按钮等控件，、在窗体上放置标签、文本框、命令按钮等控件，并设置它们的属性并设置它们的属性3、对窗体等控件的事件进行编程、对窗体等控件的事件进行编程4、运行、排错、保存、编译、运行、排错、保存、编译5、制作安装包、制作安装包1/17/202311msgboxl请输入信息提示语句你好吗？你好吗？Msgbox演示演示1/17/202312Msgbox Private sub command-click()Msgbox text1.text,vbokonly(或vbokonly+vbinformation),“信息提示”（标题名）1/17/202313Msgbox Private sub command-click()If msgbox(“你真的要删除数据吗？”,vbyesno+vbcritical,“信息提示”)=vbyes then Text1.text=“你选择的是yes”ElseText1.text=“你选择的是no”End if End sub1/17/202314常用控件常用控件l窗体l文本框l命令按钮l标签1/17/202315常用控件常用控件l窗体的属性：标题（Caption）、名称（Name）l窗体的事件：单击（click）事件 双击（Dblclick）事件 鼠标移动（Mouse Move）事件l窗体的方法：移动（Move）1/17/202316常用控件常用控件l窗体的基本属性：标题属性（Caption）、名称属性（Name）、MaxButton和MinButton属性、BorderStyle边框样式属性、Picture属性、Icon属性、Visible属性、Windows State属性l窗体的常用方法：show方法、Hide方法、Print方法、Cls方法、Move方法l窗体的常用事件：click事件、Dbclick事件、Load事件、Unload事件、Activate和DeActivate事件1/17/202317常用控件常用控件命令按钮常用属性：Name Caption、Enabled（可用不可用）常用方法：SetFocus（获得焦点）常用事件：Click（单击）在按钮上单击鼠标焦点在按钮上，按空格和回车键在代码中将按钮Value属性设为True在Caption属性中用&符号链接一访问键，在运行时按Alt+访问键1/17/202318常用控件常用控件标签常用属性AutiSize属性、Alignment属性、BorderStyle属性、BackStyle属性、WordUrap属性1/17/202319常用控件常用控件文本框常用属性：Text属性、Multiline属性（多行显示）、Password Char属性（输入符号，显示为*）、ScrollBars属性（滚动条）常用方法：SetFocuse常用事件：Chage事件（输入内容，值就会发生变化）、KeyPress事件（按下键盘）、LoseFocus和GotFocus事件（获得、失去焦点）1/17/202320时间换算程序请输入小时数、分钟数、秒数text4计算计算1/17/202321Private sub command-click()Dim m as long M=Val(text1.text)*3600+Val(text2.text)*60+Val(text3.text)Text4.text=mEnd sub1/17/202322除法计算器编写求两个数相除的程序，若除数为0，用消息对话框提示用户重新输入。被除数 除数 相除结果1/17/202323Private sub command-click()If Val(text2.text)=0 thenMsgbox“除数不能为0，Vbokonly”,“信息提示”ElseText3.text=Val(text1.text)/Val(text2.text)End if End sub1/17/202324角度转换程序要求在文本框中输入角的弧度值，按“转换为角度”按钮，文本框中角的弧度值转换为角度值。请输入一个弧度 转换为角度text1text2返回返回1/17/202325 Private sub command-click()Pi=3.1415926 text2.text=360*Val(text1.text/2*Pi)End sub Private sub commad-click()end 或unload Me End sub1/17/202326
