《VB可视化编程基础VB 武科大教学 PPT.ppt》由会员分享，可在线阅读，更多相关《VB可视化编程基础VB 武科大教学 PPT.ppt（49页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Version 3.0VB可视化编程基础可视化编程基础第二章目标目标VB可视化程序设计的基本概念可视化程序设计的基本概念窗体窗体命令按钮命令按钮文本框文本框标签标签2 22.1基本概念基本概念对象对象属性属性方法方法事件事件3 3事件驱动事件驱动系统系统调用调用Command1_ClickCommand1_Click事件事件过程来响应该事件。过程来响应该事件。用用户户单单击击“好好看看”按按钮钮Private Sub Command1_Click()语句块语句块End SubCommand1Command1按钮发生了按钮发生了按钮发生了按钮发生了ClickClick事件事件事件事件4 4VB中
2、的对象中的对象 VB中中的的对象是VB系统基本运行实体，如窗体(Form)、标签(Label)、文本框(TextBox)、命令按钮(CommandButton)等。包括一组程序代码和数据的集合。5 5回顾与导入回顾与导入6 6工具箱控件图解工具箱控件图解VB中的对象概述中的对象概述指示器指示器标签标签框架框架复选框复选框组合框组合框水平滚动条水平滚动条时钟时钟目录列表框目录列表框形状形状图象框图象框OLE图片框图片框文本框文本框命令按钮命令按钮单选按钮单选按钮列表框列表框垂直滚动条垂直滚动条驱动器列表驱动器列表文件列表文件列表LINEData7 7演示向演示向VB窗体中添加对象窗体中添加对象8
3、 8对象的三要素对象的三要素对象属性对象属性对象事件对象事件对象方法对象方法9 9对象属性设置对象属性设置直接输入属性值直接输入属性值通过下拉列表选择所需的属性值通过下拉列表选择所需的属性值利用对话框设置属值利用对话框设置属值 如字体、颜色如字体、颜色 1010对象属性设置对象属性设置通过程序语句设置通过程序语句设置 对象名.属性名=属性值Private Sub Command1_Click()Label1.Visible=TrueEnd SubPrivate Sub Command2_Click()Label1.Visible=FalseEnd Sub11112.2 窗体概述窗体的作用（窗体
4、的作用（演示一系统演示一系统）1212窗体窗体 窗体的结构窗体的结构 窗体的属性、事件、方法窗体的属性、事件、方法1313窗体的结构窗体的结构窗体窗体XYLeftTop0WidthHeight1414窗体举例-QQICONcaptionminbuttonmaxbutton1515窗体的属性窗体的属性NameCaption大小类：大小类：TOP、LEFT、Height、Width字体字体颜色：颜色：Backcolor图片：包括图片：包括Icon和和PictureBorderstyleVisiable1616Borderstyle属性属性属性属性值值说说 明明0-None窗体无边框窗体无边框1-F
5、ixed Single含控制菜单、标题栏、最大、最小化按含控制菜单、标题栏、最大、最小化按钮的固定单边框钮的固定单边框2-Sizable默认值，可调整的双线边框。默认值，可调整的双线边框。3-Fixed Double含控制菜单、标题栏，无最大、最小化含控制菜单、标题栏，无最大、最小化按钮、窗体大小固定的双线边框。按钮、窗体大小固定的双线边框。4-Fixed Tool Window只有关闭按钮、缩小的字体显示标题栏、只有关闭按钮、缩小的字体显示标题栏、窗体大小固定的工具窗口。窗体大小固定的工具窗口。5-Sizable Tool Window只有关闭按钮，并用缩小的字体显示标只有关闭按钮，并用缩小
6、的字体显示标题栏、窗体大小可变的工具窗口。题栏、窗体大小可变的工具窗口。1717窗体的事件窗体的事件ClickLoadActivate（活动）（活动）/Deactivate（非活动）（非活动）QueryUnloadResize 1818Print方法，使用格式如下：对象名.Print 输出列表Private Sub Form_Click()a=3:b=4 Print a,b,a+b Print a,b Print“a=”;a,“b=”;b End Sub1.输出列表的各项间可输出列表的各项间可以用逗号或分号分隔以用逗号或分号分隔2.逗号与分号作分隔符逗号与分号作分隔符的区别？的区别？3.若语句
7、行末尾没有分若语句行末尾没有分隔符，则输出当前项隔符，则输出当前项后自动换行后自动换行窗体的窗体的Print方法方法1919(2)Spc函数格式：Spc(n)功能：在输出项之间输出n个空格例如：Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)：学号姓名成绩(格式输出函数格式输出函数 2020格式输出函数格式输出函数3)Tab函数格式：Tab(n)功能：指定输出项在输出行的位置例如：Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果(1个汉字占2个位置)：学号姓名成绩2121Private Sub Form_Click()Print
8、 Print Tab(15);学号;Tab(26);姓名;Tab(36);成绩 Print Tab(14);String(27,-)输出27个减号字符“-”Print Tab(14);20011001;Tab(26);张小三;Tab(36);57 Print Tab(14);20011003;Tab(26);李小四;Tab(36);69 Print Tab(14);20011012;Tab(26);马小五;Tab(36);92 Print Tab(14);String(27,-)输出27个减号字符“-”End Sub2222窗体的窗体的Print方法方法Private Sub Form_Cli
9、ck()Print 武汉科技大学;计算机学院“Print Print 武汉科技大学,计算机学院 Print Print 武汉科技大学;Spc(10);计算机学院“Print Print Tab(10);武汉科技大学;计算机学院End Sub 2323窗体的方法窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：对象名.Print 输出项列表;|,对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用
10、逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。窗体的窗体的 Print方法方法如下代码：如下代码：Private Sub Form_Click()Print 1;-2 Print Print We;studyEnd Sub紧缩格式紧缩格式注意：注意：标准格式即参数以标准格式即参数以“,”分割，下一个输出分割，下一个输出项将与上一个输出项间隔项将与上一个输出项间隔14列；紧缩格式即列；紧缩格式即参数以参数以“;”分割，下一个输出项将以紧凑分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。格式，紧跟着上一个输出项输出。Print方法输出的位置是由窗体的绘图坐标方法输出的位置是
11、由窗体的绘图坐标CurrentX和和CurrentY属性决定的，默认为对象属性决定的，默认为对象的左上角的左上角(0,0)。该方法可以结合定位输出函数一起使用：该方法可以结合定位输出函数一起使用：Spc(n)：在下一个输出项前插入n个空格；Tab(n)：输出定位在绝对n列号上。代码：代码：1197513111591317Private Sub Form_Click()End Sub Print Tab(11);A Print Tab(9);B;Spc(3);B Print Tab(7);C;Spc(3);C;Spc(3);C Print Tab(5);D;Spc(3);D;Spc(3);D;S
12、pc(3);D108643333332424 Print在在Load和和Activate事件中的区别。事件中的区别。Private Sub Form_Load()Print*End SubPrivate Sub Form_Activate()Print*End Sub注意：注意：Load事件事件发发生生时时窗体是不活窗体是不活动动的，而的，而Activate事件事件发发生生时时窗体是活窗体是活动动的，的，Print方法不能在不活方法不能在不活动动窗体上使用，窗体上使用，因此因此Print不能用于不能用于Load事件中。事件中。2525窗体的窗体的Print方法总结方法总结Print方法方法在窗
13、体上输出：在窗体上输出：对象对象.Print Spc(n)|Tab(n)表达式列表表达式列表;|,Spc(Spc(n n)函数：插入函数：插入n n个空格，允许重复使用。个空格，允许重复使用。Tab(Tab(n n)函数：左端开始右移动函数：左端开始右移动n n列，允许重复使用。列，允许重复使用。；（分号）：光标定位上一个显示的字符后。；（分号）：光标定位上一个显示的字符后。，（逗号）：光标定位在下一个打印区的开始位置，（逗号）：光标定位在下一个打印区的开始位置处。每个打印区占处。每个打印区占1414列。列。空空printprint则表示换行。则表示换行。2626 窗体的其它常用方法窗体的方法
14、也就是窗体所具有的行动方式。窗体上常用的方法有：1.Show 用以显示窗体 2.Hide 用于隐藏窗体，但不能使其卸载 3.Move 用以移动窗体到一定的坐标位置 4.Cls 清除窗体中的图形或文本演示演示QQ登录程序登录程序2727命令按钮命令按钮(CommandButton)属性：属性：Name、caption、Enabled、cancel、default、style、picture事件：事件：click2828命令按钮通常在命令按钮通常在Click事件中编写一段程序，当用户用鼠标单事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。击这个按钮时，就会启动
15、这段程序，执行某一特定的功能。命令按钮控件的属性命令按钮控件的属性Caption：设置命令按钮的标题。Default：设置命令按钮是否为默认按钮，即当运行程序时，用户按回车键时，就激活它。语法格式：命令按钮命令按钮(CommandButton)对象名对象名.Cancel=True|False对象名对象名.Default=True|False注意：注意：在一个窗体内，只能有一个在一个窗体内，只能有一个Default命令按钮命令按钮,也只能有一个也只能有一个Cancel命令按钮命令按钮;2929命令按钮控件的属性命令按钮控件的属性Enabled：设置命令按钮是否能被按下。语法格式：其中:属性值为T
16、rue（默认值）表示该按钮能被响应；属性值为False表示该按钮不能被响应，以灰色显示。Picture：设置命令按钮上显示的图形。语法格式：命令按钮命令按钮(CommandButton)对象名对象名.Enabled=True|False对象名对象名.Picture=LoadPicture(图形文件图形文件名名)3030命令按钮控件的属性命令按钮控件的属性Style：设置命令按钮的类型。语法格式：ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。命令按钮命令按钮(CommandButton)对象名对象名.Style=0|1属性属性值值说说 明明0(默认值默认值)表示为标准按钮，只显
17、示表示为标准按钮，只显示Caption属性设置的文本属性设置的文本1表示为图形风格，只显示由表示为图形风格，只显示由Picture属性指定的图片属性指定的图片对象名对象名.ToolTipText=字符字符串串3131命令按钮控件的事件命令按钮控件的事件Click、MouseDown、MouseUp：当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、Click、MouseUp 事件。命令按钮命令按钮(CommandButton)对象名对象名.Default=True|False注意：注意：MouseDown和和MouseUp只能通过单击鼠标只能通过单击鼠标触发；而触发；而Cli
18、ck既可通过单击鼠标触发，既可通过单击鼠标触发，还可以在按钮获得焦点时按空格或回车还可以在按钮获得焦点时按空格或回车键触发。键触发。3232命令按钮命令按钮(CommandButton)命令按钮的主要命令按钮的主要方法方法SetFocus：设置焦点。设置为焦点的按钮在其表面有一个虚边框 注意：注意：命令按钮不支持双击事件。命令按钮不支持双击事件。BackColor属性和属性和Picture属性在属性在Style属性值为属性值为1（图形方（图形方式）下，才能显示出来。式）下，才能显示出来。3333命令按钮命令按钮(CommandButton)Private Sub Command1_Click(
19、)Private Sub Command1_Click()Form1.Move Left+500,Top-500,Width+500,Height+500 Form1.Move Left+500,Top-500,Width+500,Height+500End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Form1.Move Left-500,Top+500,Width-500,Height-500 Form1.Move Left-500,Top+500,Width-500,Height-500End Sub
20、End SubPrivate Sub Command3_Click()Private Sub Command3_Click()End EndEnd SubEnd Sub3434文本框是一个文本编辑区域，主要用于接收用户的输文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息。入、输出、修改等信息。文本框文本框(TextBox)何时使用何时使用文本框文本框?如如:3535文本框控件文本框控件TextBox文本框控件用于输入、输出文本。与标签不文本框控件用于输入、输出文本。与标签不同之处在于文本可以编辑。同之处在于文本可以编辑。建议名称采用前缀建议名称采用前缀 txt 打头的一串英文
21、字母，打头的一串英文字母，如：如：txtName。默认名称默认名称Text1、Text2。3636文本框文本框(TextBox)在工具箱选取文本框按钮创建按钮，用鼠标在窗体上拖曳在工具箱选取文本框按钮创建按钮，用鼠标在窗体上拖曳画出。画出。单选按钮的默认名：单选按钮的默认名：TextX X。3737 Name：设置文本框的名称。设置文本框的名称。Text：(主要属性)设置文本框中显示的文本内容。语法格式：文本框文本框(TextBox)对象名对象名.Text=字符串字符串文本框常用属性文本框常用属性3838Locked：设置文本框是否可以被编辑。语法格式：MaxLength：设置文本框中输入的字
22、符串最大长度。对象名对象名.Locked=True|False文本框常用属性文本框常用属性3939PasswordChar：设置是否在文本框中显示用户所输入的字符串。语法格式为：对象名对象名.PasswordChar=*文本框常用属性文本框常用属性4040Change：当用户改变文本框的内容时，该文本框的Change事件被触发，该事件对应的代码结构如下：Private Sub Text1_Change()End Sub文本框文本框常用事件常用事件4141&例：程序运行时，用户输入密码时，在另一例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。个文本框中显示用户输入的密码。分析
23、：接收用户输入用户输入的内容保存在文本框的什么属性中文本框2与文本框1内容一致同步显示代码：文本框文本框TextText2.text=text1.text文本框文本框Change事件事件Private Sub Text1_Change()End SubText2.Text=Text1.Text文本框文本框示示例例4242文本框控件的方法文本框控件的方法SetFocus：可以设置焦点，其获得焦点的显示效果是焦点（光标）在文本框中闪动。语法格式：让指定的对象获得焦点。设置焦点，本方法可使指定的文本框(或其他有聚焦能力的对象)成为焦点，也就是当前文本框，成为焦点的文本框中具有闪动的光标.对象名对象名
24、.SetFocus文本框文本框常用方法常用方法?4343文本框的其他常用属性文本框的其他常用属性MultiLine：支持多行显示支持多行显示(True|False)ScrollBar:：文本框带滚动条文本框带滚动条(None|Horizontal|Vertical|Both)注意：必须MultiLine为TrueMaxLength：文本框的最大长度文本框的最大长度(最多接受字符数）最多接受字符数）一个汉字或一个字符长度都为1默认为0，表示长度无限制PassWordChar：设置口令显示字符设置口令显示字符注意：必须MultiLine为FalseLocked：锁定文本内容（锁定文本内容（True
25、|False）4444文本框的常用事件之一文本框的常用事件之一 Change一旦文本框的内容发生变化，立即触发该事件一旦文本框的内容发生变化，立即触发该事件例：标签同步显示文本框的输入例：标签同步显示文本框的输入例：程序阅读例：程序阅读假设文本框中原先没有内容，程序启动后在文本假设文本框中原先没有内容，程序启动后在文本框中输入框中输入“ABCD”，再单击命令按钮再单击命令按钮Command1，写出程序的运行结果写出程序的运行结果Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Text1_Change()Print T
26、ext1.TextEnd Sub课堂练习课堂练习4545例例 设计一个程序可检查密码是否正确，设计一个程序可检查密码是否正确，用户名和密码都为用户名和密码都为“12345”文本框文本框示示例例4646标签标签 Label标签控件用于显示文本，多用作给其他控件标签控件用于显示文本，多用作给其他控件加文字说明，还可以作为提示或结果输出，加文字说明，还可以作为提示或结果输出，不可直接编辑不可直接编辑建议名称采用前缀建议名称采用前缀 lbl 打头的一串英文字母。打头的一串英文字母。如：如：lblResult。默认名称默认名称Label1、Label2 4747标签的常用属性标签的常用属性标签控件标签控
27、件的的Caption属性表示标签的文字内容。属性表示标签的文字内容。赋值语句格式：赋值语句格式：Label1.Caption=“欢迎光临欢迎光临”Label的的AutoSize属性属性(True/False)False：Label大小不变，太长文本被截断（注意中英文的区别，英文按单词汉字按字换行）True：Label调整大小，以适应文本；配合WordWrap属性（False：调整宽、True：调整高）可以可以在赋值语句中在赋值语句中设置设置Caption属性时使用强制换行符，使标签中的属性时使用强制换行符，使标签中的文本强制分行显示。文本强制分行显示。强制换行符用Chr(13)或vbCr表示 使用“+”运算符或“&”运算符进行字符串的连接操作 例：Label1.Caption=“欢迎光临”+Chr(13)+“谢谢”例：Label1.Caption=Label1.Caption&vbCr&2004年2月4848标签的其他常用属性标签的其他常用属性Left、Top、Width、HeightVisibleBackColor、BackStyle、BorderStyleForeColorFontName、FontSize、举例：在窗体的中央放置一个特别的标签，举例：在窗体的中央放置一个特别的标签，在需要时显示它。在需要时显示它。举例举例4949