VB可视化编程基础VB武科大.ppt

《VB可视化编程基础VB武科大.ppt》由会员分享，可在线阅读，更多相关《VB可视化编程基础VB武科大.ppt（49页珍藏版）》请在三一办公上搜索。

1、VB可视化编程基础,第二章,2,目标,VB可视化程序设计的基本概念窗体命令按钮文本框标签,3,2.1基本概念,对象属性方法事件,4,事件驱动,系统调用Command1_Click事件过程来响应该事件。,该代码被执行,Private Sub Command1_Click()语句块End Sub,Command1按钮发生了Click事件,5,VB中的对象,VB中的对象是VB系统基本运行实体，如窗体(Form)、标签(Label)、文本框(TextBox)、命令按钮(CommandButton)等。包括一组程序代码和数据的集合。,6,回顾与导入,7,工具箱控件图解,VB中的对象概述,8,演示向VB窗

2、体中添加对象,9,对象的三要素,对象属性对象事件对象方法,10,对象属性设置,直接输入属性值通过下拉列表选择所需的属性值利用对话框设置属值 如字体、颜色,11,对象属性设置,通过程序语句设置 对象名.属性名=属性值,Private Sub Command1_Click()Label1.Visible=TrueEnd SubPrivate Sub Command2_Click()Label1.Visible=FalseEnd Sub,12,2.2 窗体概述,窗体的作用（演示一系统）,13,窗体,窗体的结构 窗体的属性、事件、方法,14,窗体的结构,窗体,X,Y,Left,Top,0,Width,

3、Height,15,窗体举例-QQ,ICON,caption,minbutton,maxbutton,16,窗体的属性,NameCaption大小类：TOP、LEFT、Height、Width字体颜色：Backcolor图片：包括Icon和PictureBorderstyleVisiable,17,Borderstyle属性,18,窗体的事件,ClickLoadActivate（活动）/Deactivate（非活动）QueryUnloadResize,19,Print方法，使用格式如下：对象名.Print 输出列表Private Sub Form_Click()a=3:b=4 Print a,

4、b,a+b Print a,b Print“a=”;a,“b=”;b End Sub,输出列表的各项间可以用逗号或分号分隔逗号与分号作分隔符的区别？若语句行末尾没有分隔符，则输出当前项后自动换行,窗体的Print方法,20,(2)Spc函数格式：Spc(n)功能：在输出项之间输出n个空格例如：Print 学号；Spc(2)；姓名；Spc(5)；成绩 输出结果(表示空格)：学号姓名成绩(,格式输出函数,21,格式输出函数,3)Tab函数格式：Tab(n)功能：指定输出项在输出行的位置例如：Print Tab(2);学号；Tab(11);姓名；Tab(21);成绩 输出结果(1个汉字占2个位置)：

5、学号姓名成绩,22,Private Sub Form_Click()Print 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 Sub

6、,23,窗体的Print方法,Private Sub Form_Click()Print 武汉科技大学;计算机学院“Print Print 武汉科技大学,计算机学院 Print Print 武汉科技大学;Spc(10);计算机学院“Print Print Tab(10);武汉科技大学;计算机学院End Sub,24,窗体的方法Print：用于将文本输出到窗体的一行上。调用格式：对象名.Print 输出项列表;|,对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。输出项列表：是由0个、1个或多个待输出的数值表达

7、式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。,窗体的 Print方法,如下代码：,Private Sub Form_Click()Print 1;-2 Print Print We;studyEnd Sub,注意：标准格式即参数以“,”分割，下一个输出项将与上一个输出项间隔14列；紧缩格式即参数以“;”分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。Print方法输出的位置是由窗体的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)。该方法可以结合定位输出函数一起使用：Spc(n

8、)：在下一个输出项前插入n个空格；Tab(n)：输出定位在绝对n列号上。,代码：,11,9,7,5,13,11,15,9,13,17,Private 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;Spc(3);D,25,Print在Load和Activate事件中的区别。Private Sub Form_Load()Print*End SubPrivate Sub Form_Acti

9、vate()Print*End Sub,注意：Load事件发生时窗体是不活动的，而Activate事件发生时窗体是活动的，Print方法不能在不活动窗体上使用，因此Print不能用于Load事件中。,26,窗体的Print方法总结,Print方法在窗体上输出：对象.Print Spc(n)|Tab(n)表达式列表;|,Spc(n)函数：插入n个空格，允许重复使用。Tab(n)函数：左端开始右移动n列，允许重复使用。；（分号）：光标定位上一个显示的字符后。，（逗号）：光标定位在下一个打印区的开始位置处。每个打印区占14列。空print则表示换行。,27,窗体的其它常用方法,窗体的方法也就是窗体所

10、具有的行动方式。窗体上常用的方法有：1.Show 用以显示窗体 2.Hide 用于隐藏窗体，但不能使其卸载 3.Move 用以移动窗体到一定的坐标位置 4.Cls 清除窗体中的图形或文本,演示QQ登录程序,28,命令按钮(CommandButton),属性：Name、caption、Enabled、cancel、default、style、picture事件：click,29,命令按钮通常在Click事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。命令按钮控件的属性Caption：设置命令按钮的标题。Default：设置命令按钮是否为默认按钮，即当运行程序

11、时，用户按回车键时，就激活它。语法格式：,命令按钮(CommandButton),对象名.Cancel=True|False,对象名.Default=True|False,注意：在一个窗体内，只能有一个Default命令按钮,也只能有一个Cancel命令按钮;,30,命令按钮控件的属性Enabled：设置命令按钮是否能被按下。语法格式：其中:属性值为True（默认值）表示该按钮能被响应；属性值为False表示该按钮不能被响应，以灰色显示。Picture：设置命令按钮上显示的图形。语法格式：,命令按钮(CommandButton),对象名.Enabled=True|False,对象名.Pictu

12、re=LoadPicture(图形文件名),31,命令按钮控件的属性Style：设置命令按钮的类型。语法格式：ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。,命令按钮(CommandButton),对象名.Style=0|1,对象名.ToolTipText=字符串,32,命令按钮控件的事件Click、MouseDown、MouseUp：当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、Click、MouseUp 事件。,命令按钮(CommandButton),对象名.Default=True|False,注意：MouseDown和MouseUp只能通过单击鼠

13、标触发；而Click既可通过单击鼠标触发，还可以在按钮获得焦点时按空格或回车键触发。,33,命令按钮(CommandButton),命令按钮的主要方法SetFocus：设置焦点。设置为焦点的按钮在其表面有一个虚边框,注意：命令按钮不支持双击事件。BackColor属性和Picture属性在Style属性值为1（图形方式）下，才能显示出来。,34,命令按钮(CommandButton),Private Sub Command1_Click()Form1.Move Left+500,Top-500,Width+500,Height+500End SubPrivate Sub Command2_Cl

14、ick()Form1.Move Left-500,Top+500,Width-500,Height-500End SubPrivate Sub Command3_Click()EndEnd Sub,35,文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息。,文本框(TextBox),何时使用文本框?,如:,36,文本框控件TextBox,文本框控件用于输入、输出文本。与标签不同之处在于文本可以编辑。建议名称采用前缀 txt 打头的一串英文字母，如：txtName。默认名称Text1、Text2。,37,文本框(TextBox),在工具箱选取文本框按钮创建按钮，用鼠标在窗体上拖曳

15、画出。单选按钮的默认名：TextX。,38,Name：设置文本框的名称。Text：(主要属性)设置文本框中显示的文本内容。语法格式：,文本框(TextBox),对象名.Text=字符串,文本框常用属性,39,Locked：设置文本框是否可以被编辑。语法格式：MaxLength：设置文本框中输入的字符串最大长度。,对象名.Locked=True|False,文本框常用属性,40,PasswordChar：设置是否在文本框中显示用户所输入的字符串。语法格式为：,对象名.PasswordChar=*,文本框常用属性,41,Change：当用户改变文本框的内容时，该文本框的Change事件被触发，该事

16、件对应的代码结构如下：,Private Sub Text1_Change()End Sub,文本框常用事件,42,例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。,分析：接收用户输入用户输入的内容保存在文本框的什么属性中文本框2与文本框1内容一致同步显示代码：,文本框,Text2.text=text1.text,文本框Change事件,Private Sub Text1_Change()End Sub,Text2.Text=Text1.Text,文本框示例,43,文本框控件的方法SetFocus：可以设置焦点，其获得焦点的显示效果是焦点（光标）在文本框中闪动。语法格式：让指

17、定的对象获得焦点。设置焦点，本方法可使指定的文本框(或其他有聚焦能力的对象)成为焦点，也就是当前文本框，成为焦点的文本框中具有闪动的光标.,对象名.SetFocus,文本框常用方法?,44,文本框的其他常用属性,MultiLine：支持多行显示(True|False)ScrollBar:：文本框带滚动条(None|Horizontal|Vertical|Both)注意：必须MultiLine为TrueMaxLength：文本框的最大长度(最多接受字符数）一个汉字或一个字符长度都为1默认为0，表示长度无限制PassWordChar：设置口令显示字符注意：必须MultiLine为FalseLock

18、ed：锁定文本内容（True|False）,45,文本框的常用事件之一 Change,一旦文本框的内容发生变化，立即触发该事件例：标签同步显示文本框的输入例：程序阅读假设文本框中原先没有内容，程序启动后在文本框中输入“ABCD”，再单击命令按钮Command1，写出程序的运行结果,Private Sub Command1_Click()Print Text1.TextEnd SubPrivate Sub Text1_Change()Print Text1.TextEnd Sub,课堂练习,46,例 设计一个程序可检查密码是否正确，用户名和密码都为“12345”,文本框示例,47,标签 Labe

19、l,标签控件用于显示文本，多用作给其他控件加文字说明，还可以作为提示或结果输出，不可直接编辑建议名称采用前缀 lbl 打头的一串英文字母。如：lblResult。默认名称Label1、Label2,48,标签的常用属性,标签控件的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月,49,标签的其他常用属性,Left、Top、Width、HeightVisibleBackColor、BackStyle、BorderStyleForeColorFontName、FontSize、举例：在窗体的中央放置一个特别的标签，在需要时显示它。,举例,