visual basic 手把手教程第2章.ppt

第2章顺序结构与部分常用控件,2.1VB语言基础知识2.2常用控件2.3输入框和消息框2.4多窗体2.5小结,实例,实例2.3,实例2.4,实例2.5,实例2.8,实例2.9,实例2.10,实例2.13,实例2.14,实例2.15,实例2.1,实例2.2,实例2.6,实例2.7,实例2.11,实例2.12,实例2.16,实例2.17,本章实例,2.1VB语言基础知识,2.1.1变量、常量和表达式2.1.2系统函数的使用方法,P21,2.1.1变量、常量和表达式,【实例2.1】输入被除数和除数，计算商和余数。程序运行时，在文本框中输入被除数和除数，单击“=”命令按钮，计算并将结果显示在相应的标签上。,P21,操作步骤,（1）设计用户界面,（2）设置对象属性,添加1个命令按钮和7个标签；选取文本框图标，添加2个文本框,（3）编写单击“=”命令按钮的代码,PrivateSubcmdEqual_Click()DimmAsIntegerDimnAsIntegerDimqAsIntegerDimrAsIntegerm=Val(txtOp1.Text)n=Val(txtOp2.Text)q=mnr=mModnlblQ.Caption=Str(q)lblR.Caption=Str(r)EndSub,只能存放整数,整除运算符,求余运算符,（4）运行程序验证。,【实例2.2】已知球的半径，计算球的体积和表面积。在文本框中输入半径，单击“计算”命令按钮，计算并输出结果，体积值和表面积的值显示在相应的标签上。球的体积和表面积的计算公式为：,操作步骤,（1）设计用户界面,添加5个标签、1个命令按钮和1个文本框,（2）设置各对象的属性,（3）编写单击“计算”命令按钮的代码,PrivateSubcmdCalc_Click()DimpiAsDoubleDimrAsDoubleDimvAsDoubleDimsAsDoublepi=3.141592r=Val(txtR.Text)v=4*pi*r3/3s=4*pi*r2lblV.Caption=Str(v)lblS.Caption=Str(s)EndSub,只能存放实型数,乘方运算符,（4）运行程序验证,【实例2.3】输入字符串，实现首尾连接。程序运行时，在文本框中输入字符串，单击“连接”命令按钮，将输入的字符串接入标签内容的尾部，同时，清除文本框中的内容，继续在文本框中输入字符串，单击“连接”，反复多次，在标签中显示多个字符串连接的结果。,操作步骤,（1）设计用户界面,添加1个文本框、2个标签和1个命令按钮,（2）设置各对象的属性,（3）编写单击“连接”命令按钮的代码,PrivateSubcmdConnect_Click()DimsAsStrings=txtString.Text&lblResult.Caption=lblResult.Caption&stxtString.Text=EndSub,只能存放字符串,字符串连接符,（4）运行程序验证,输入you后的效果,3个字符串的连接结果,2.1.2系统函数的使用方法,【实例2.4】窗体中有2个标签、1个文本框和1个命令按钮。程序运行时，在文本框中输入一个字符，单示“显示Ascii码值”命令按钮，在标签中显示出相应的ASCII码值。,P27,操作步骤,（1）设计用户界面,在窗体中添加所需控件,（2）设置各对象的属性,（3）编写单击“显示Ascii码值”命令按钮的代码,PrivateSubcmdAscVal_Click()DimmAsIntegerm=Asc(txtChar.Text)lblResult.Caption=字符&txtChar.Text&的Ascii码值为：&mtxtChar.Text=EndSub,（4）运行程序验证,【实例2.5】窗体中有1个命令按钮。程序运行时，单击“背景色”命令按钮，随机改变窗体颜色。,操作步骤,（1）设计用户界面,在窗体中添加1个命令按钮,（2）设置各对象的属性,（3）编写单击“背景色”命令按钮的代码,PrivateSubcmdBkColor_Click()DimcolnumAsIntegerRandomizecolnum=Int(16*Rnd)frmEx2_5.BackColor=QBColor(colnum)EndSub,产生(0,1)之内的实数,Rnd*100产生(0,100)之内的随机实数,Int(Rnd*100)产生0,99之内的随机整数,Int(Rnd*100)+10产生10,109之内的随机整数,保证与前一次的产生值无关,0至15,（4）运行程序验证,2.2常用控件,2.2.1标签和文本框2.2.2命令按钮2.2.3图像框和图片框2.2.4计时器2.2.5水平与垂直滚动条,P30,2.2.1标签和文本框,【实例2.6】程序一运行，3个文本框立刻处于锁定状态，而且显示“文本框锁定状态”。单击“上到下”命令按钮，清空3个文本框、上面文本框处于可输入状态、下面2个文本框处于锁定状态，同时输入焦点在上面文本框中；单击“下到上”命令按钮，清空3个文本框、上面2个文本框处于锁定状态、下面文本框处于可输入状态，同时输入焦点在下面文本框中。在上面文本框中输入一行小写字母，则中间文本框中将会随之显示出与上面文本框中的内容对应的大写字母；在下面文本框中输入一行大写字母，则中间文本框中将会随之显示出与下面文本框中的内容对应的小写字母。,P30,操作步骤,（1）设计用户界面,在窗体中添加所需控件,（2）设置各对象的属性,（3）实现程序一运行时所产生的功能,PrivateSubForm_Load()txtUp.Locked=TruetxtMiddle.Locked=TruetxtDown.Locked=TruetxtUp.Text=文本框锁定状态txtMiddle.Text=文本框锁定状态txtDown.Text=文本框锁定状态EndSub,不允许用户编辑,（4）编写“上到下”命令按钮的Click事件过程,PrivateSubcmdToDown_Click()txtUp.Text=txtMiddle.Text=txtDown.Text=txtUp.Locked=FalsetxtDown.Locked=TruetxtUp.SetFocusEndSub,设置输入焦点,（5）编写“下到上”命令按钮的Click事件过程,PrivateSubcmdToUp_Click()txtUp.Text=txtMiddle.Text=txtDown.Text=txtUp.Locked=TruetxtDown.Locked=FalsetxtDown.SetFocusEndSub,（6）编写上面文本框和下面文本框中内容发生变化时触发的代码,PrivateSubtxtUp_Change()txtMiddle.Text=UCase(txtUp.Text)EndSubPrivateSubtxtDown_Change()txtMiddle.Text=LCase(txtDown.Text)EndSub,【实例2.7】上面文本框用于接收用户输入的内容，下面文本框为多行文本框，且不可编辑。程序运行时，单击“添加”命令按钮，将上面文本框中输入的内容追加到下面文本框中，同时清除上面文本框中的内容；单击“清除”按钮，删除下面文本框中的全部内容。,操作步骤,（1）设计用户界面,在窗体中添加所需控件,（2）设置各对象的属性,（3）编写单击“添加”命令按钮的代码,PrivateSubcmdAppend_Click()DimsAsStrings=txtInput.Text&chr(13)&chr(10)txtInfo.Text=txtInfo.Text&stxtInput.Text=txtInput.SetFocusEndSub,回车换行符,（4）编写单击“清除”命令按钮的代码,PrivateSubcmdClear_Click()txtInfo.Text=txtInput.SetFocusEndSub,2.2.2命令按钮,【实例2.8】单击命令按钮，实现弧度值与度数的互相转换。转换公式为：其中r表示弧度值，d表示度数。,P34,操作步骤,（1）设计用户界面,在窗体中添加所需控件,（2）设置各对象的属性,（3）编写命令按钮cmdDeg的Click事件过程,PrivateSubcmdDeg_Click()DimdAsDoubleDimrAsDoubler=Val(txtRad.Text)d=r*180/3.141592txtDeg.Text=Str(d)EndSub,（4）编写命令按钮cmdRad的Click事件过程,PrivateSubcmdRad_Click()DimdAsDoubleDimrAsDoubled=Val(txtDeg.Text)r=d*3.141592/180txtRad.Text=Str(r)EndSub,2.2.3图像框和图片框,【实例2.9】在窗体中有4个图片框，每个图片框内各有一标签。程序运行时，单击某一图片框，该图片框出现相应图片；鼠标指针移动到某一标签上，则包含该标签的图片框中的图片立刻消失。,注意添加标签的方法,P36,操作步骤,（1）设计用户界面,（2）设置各对象的属性,选取工具箱中的图片框图标，添加4个图片框在每个图片框上分别添加标签,（3）编写各图片框的Click事件过程,PrivateSubpicSpring_Click()picSpring.Picture=LoadPicture(scn_spring.wmf)EndSubPrivateSubpicSummer_Click()picSummer.Picture=LoadPicture(scn_summer.wmf)EndSub,添加图片,（4）编写各标签的MouseMove事件过程,PrivateSublblSpring_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)picSpring.Picture=LoadPicture()EndSub,自动产生代码框架,【实例2.10】在窗体中有1个图像框和2个命令按钮，且在图像框上装有一幅图片。单击“放大”和“缩小”命令按钮，实现图片放大和缩小功能。,操作步骤,（1）设计用户界面,（2）设置各对象的属性,添加2个命令按钮，再选取工具箱中的图像框图标，添加1个图像框。,（3）编写单击“放大”和“缩小”命令按钮的代码,PrivateSubcmdLargen_Click()imgShow.Width=imgShow.Width+100imgShow.Height=imgShow.Height+100EndSubPrivateSubcmdLessen_Click()imgShow.Width=imgShow.Width100imgShow.Height=imgShow.Height100EndSub,2.2.4计时器,【实例2.11】设计电子表。显示出今天的年、月、日、星期和时间。,P40,操作步骤,（1）设计用户界面,（2）设置各对象的属性,在窗体上添加9个标签，其中有5个标签用于显示年、月、日、星期和时间。选取工具箱中的计时器图标，在窗体上添加1个计时器,以毫秒为单位值为0时不工作,（3）编写计时器tmrClock的Timer事件过程,PrivateSubtmrClock_Timer()lblYear.Caption=Year(Date)lblMonth.Caption=Month(Date)lblDay.Caption=Day(Date)lblWeek.Caption=Weekday(Date,vbMonday)lblTime.Caption=TimeEndSub,【实例2.12】设计一个动画。窗体中有1幅“热气球”图片。单击“向左”命令按钮，热气球缓缓地左移；单击“向右”命令按钮，热气球缓缓地右移。,操作步骤,（1）设计用户界面,（2）设置各对象的属性,添加1个图像框、2个命令按钮和2个计时器,（3）编写单击“向左”命令按钮的代码,PrivateSubcmdLeftMove_Click()tmrLeft.Enabled=TruetmrRight.Enabled=FalseEndSub,（4）编写控制左移计时器tmrLeft的Timer事件过程,PrivateSubtmrLeft_Timer()imgBalloon.Left=imgBalloon.Left100EndSub,（5）“向右”命令按钮和控制右移计时器的相关代码与左移时类似,PrivateSubcmdRightMove_Click()tmrRight.Enabled=TruetmrLeft.Enabled=FalseEndSubPrivateSubtmrRight_Timer()imgBalloon.Left=imgBalloon.Left+100EndSub,2.2.5水平与垂直滚动条,【实例2.13】设计一个调色器。窗体中有1个文本框、3个标签、3个水平滚动条和3个命令按钮。用3个水平滚动条分别表示红、绿、蓝三色的取值，单击“文字颜色”命令按钮，设置文本框中文字的颜色；单击“背景色”命令按钮，设置文本框的背景色；单击“默认值”命令按钮，将文本框设置为：黑色文字、白色背景。,P45,操作步骤,（1）设计用户界面,（2）设置各对象的属性,选取水平滚动条图标，添加3个水平滚动条，分别表示“红”、“绿”、“蓝”三种颜色值。再添加其他所需控件,（3）编写“文字颜色”按钮的Click事件过程。,PrivateSubcmdWdColor_Click()DimrAsIntegerDimgAsIntegerDimbAsIntegerr=hsbRed.Valueg=hsbGreen.Valueb=hsbBlue.ValuetxtWord.ForeColor=RGB(r,g,b)EndSub,产生合成色的处理函数,（4）编写“背景色”按钮的Click事件过程。,PrivateSubcmdBkColor_Click()DimrAsIntegerDimgAsIntegerDimbAsIntegerr=hsbRed.Valueg=hsbGreen.Valueb=hsbBlue.ValuetxtWord.BackColor=RGB(r,g,b)EndSub,（5）编写单击“默认值”命令按钮的Click事件过程,PrivateSubcmdDefColor_Click()txtWord.ForeColor=RGB(0,0,0)txtWord.BackColor=RGB(255,255,255)EndSub,【实例2.14】窗体中有1个图像框、1个水平滚动条和1个垂直滚动条，在图像框中载入一幅图。程序运行时，将水平滚动条中的滑块从左至右移动时，图片宽度随之变大，反之变小；将垂直滚动条的滑块从上至下移动时，图片高度随之变大，反之变小。,操作步骤,（1）设计用户界面,（2）设置各对象的属性,选取工具箱中垂直滚动条图标，添加1个垂直滚动条，再添加其他所需控件。,（3）编写水平滚动条hsbSize的Change事件过程,PrivateSubhsbSize_Change()imgShow.Width=hsbSize.ValueEndSub,（4）编写垂直滚动条vsbSize的Change事件过程,PrivateSubvsbSize_Change()imgShow.Height=vsbSize.ValueEndSub,（5）补充编写如下滚动条的Scroll事件代码,PrivateSubhsbSize_Scroll()imgShow.Width=hsbSize.ValueEndSubPrivateSubvsbSize_Scroll()imgShow.Height=vsbSize.ValueEndSub,2.3输入框和消息框,【实例2.15】窗体中有一幅图，添加1个标签。程序运行时，单击窗体，弹出输入框，当用户输入并按“确定”按钮返回后，将输入的文字显示在窗体的标签上。,P49,操作步骤,（1）设计用户界面,（2）设置各对象的属性,在窗体中添加1个标签,（3）编写窗体的Click事件过程,PrivateSubForm_Click()DimsAsStrings=InputBox(请输入一段文字,录入)lblInfo.Caption=sEndSub,所输入的内容,【实例2.16】在窗体中添加1个标签和1个命令按钮。程序运行时，在标签中显示“树上有5只鸟，用枪打死1只，树上还剩几只？”，单击“查看答案”命令按钮，则在消息框显示正确答案“答案是0，你猜对了吗？”。,操作步骤,（1）设计用户界面,（2）设置各对象的属性,在窗体中添加所需控件,（3）编写窗体的Load事件过程和“查看答案”命令按钮的Click事件过程,PrivateSubForm_Load()lblQuestion.Caption=“树上有5只鸟，用枪打死1只，树上还剩几只？EndSubPrivateSubcmdKey_Click()MsgBox答案是0，你猜对了吗？,vbOKOnly+vbInformation,提示EndSub,2.4多窗体,【实例2.17】设计一个多窗体程序，程序中含有2个窗体，第一窗体中有1个标签、2个命令按钮和1个计时器。第二窗体中有1个标签、1个文本框和1个命令按钮。程序运行时，启动第一窗体，单击“变色”命令按钮，标签中文字的颜色每秒随机变色一次。单击“编辑”命令按钮，计时器停止工作，并打开第二窗体，在文本框中输入内容，单击“返回”命令按钮，关闭第二窗体，并将已输入的内容显示在第一窗体的标签上。,P52,操作步骤,（1）设计第一个窗体的界面,（2）设置各对象的属性,在窗体中添加所需控件,（3）添加第二窗体,选择【工程】|【添加窗体】命令,（3）添加第二窗体,工程资源管理器将变为,错误的形式：,（4）设计第二个窗体的界面,（5）设置各对象的属性,添加1个标签、1个文本框和1个命令按钮,（6）编写第一窗体中的各事件过程,PrivateSubtmrColor_Timer()DimrAsIntegerDimgAsIntegerDimbAsIntegerr=Int(Rnd*256)g=Int(Rnd*256)b=Int(Rnd*256)lblTitle.ForeColor=RGB(r,g,b)EndSub,PrivateSubcmdSetColor_Click()tmrColor.Enabled=TrueEndSubPrivateSubcmdEdit_Click()tmrColor.Enabled=FalsefrmEx2_17_1.HidefrmEx2_17_2.ShowEndSub,（7）编写第二窗体中“返回”按钮的Click事件过程,PrivateSubcmdBack_Click()frmEx2_17_1.ShowfrmEx2_17_2.HidefrmEx2_17_1.lblTitle.Caption=txtContent.TextEndSub,两窗体需分别保存,2.5小结,1、数据类型整型Integer单精度实型Single双精度实型Double字符型String,P60,2、常量和变量变量的三要素：名、值、类型定义变量：Dim变量名As数据类型变量的命名规则P613、算术运算符和字符运算符算术：+、-、*、/、mod字符：&、+,4、常用系统函数P61表2.215、控件窗体frm属性：BackColorForeColorCaptionControlB