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窗体中添加对象,9,对象的三要素,对象属性 对象事件 对象方法,10,对象属性设置,直接输入属性值 通过下拉列表选择所需的属性值 利用对话框设置属值 如字体、颜色,11,对象属性设置,通过程序语句设置 对象名.属性名=属性值,Private Sub Command1_Click() Label1.Visible = True End Sub Private Sub Command2_Click() Label1.Visible = False End Sub,12,2.2 窗体概述,窗体的作用（演示一系统）,13,窗体,窗体的结构 窗体的属性、事件、方法,14,窗体的结构,窗体,X,Y,Left,Top,0,Width,Height,15,窗体举例-QQ,ICON,caption,minbutton,maxbutton,16,窗体的属性,Name Caption 大小类：TOP、LEFT、Height、Width 字体 颜色：Backcolor 图片：包括Icon和Picture Borderstyle Visiable,17,Borderstyle属性,18,窗体的事件,Click Load Activate（活动）/Deactivate（非活动） QueryUnload Resize,19,Print方法，使用格式如下： 对象名.Print 输出列表 Private Sub Form_Click() a=3:b=4 Print a, 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个位置)： 学号姓名成绩,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,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个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。,窗体的 Print方法,如下代码：,Private Sub Form_Click() Print 1; -2 Print Print We; study End Sub,注意： 标准格式即参数以 “,”分割，下一个输出项将与上一个输出项间隔14列；紧缩格式即参数以 “;”分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。 Print方法输出的位置是由窗体的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)。 该方法可以结合定位输出函数一起使用： Spc(n)：在下一个输出项前插入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 Sub Private Sub Form_Activate() 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,窗体的其它常用方法,窗体的方法也就是窗体所具有的行动方式。窗体上常用的方法有： 1. Show 用以显示窗体 2. Hide 用于隐藏窗体，但不能使其卸载 3. Move 用以移动窗体到一定的坐标位置 4. Cls 清除窗体中的图形或文本,演示QQ登录程序,28,命令按钮 (CommandButton),属性：Name、caption、Enabled、cancel、default、style、picture 事件：click,29,命令按钮通常在Click事件中编写一段程序，当用户用鼠标单击这个按钮时，就会启动这段程序，执行某一特定的功能。 命令按钮控件的属性 Caption：设置命令按钮的标题。 Default：设置命令按钮是否为默认按钮，即当运行程序时，用户按回车键时，就激活它。语法格式：,命令按钮 (CommandButton),对象名.Cancel= True | False,对象名.Default=True | False,注意： 在一个窗体内，只能有一个Default命令按钮,也只能有一个Cancel命令按钮;,30,命令按钮控件的属性 Enabled：设置命令按钮是否能被按下。语法格式： 其中: 属性值为True（默认值）表示该按钮能被响应；属性值为False表示该按钮不能被响应，以灰色显示。 Picture：设置命令按钮上显示的图形。语法格式：,命令按钮 (CommandButton),对象名.Enabled=True | False,对象名.Picture=LoadPicture(图形文件名),31,命令按钮控件的属性 Style：设置命令按钮的类型。语法格式： ToolTipText：设置当鼠标在命令按钮上暂停时显示的文本。,命令按钮 (CommandButton),对象名.Style=0 | 1,对象名. ToolTipText=字符串,32,命令按钮控件的事件 Click、MouseDown、MouseUp：当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、 Click、 MouseUp 事件。,命令按钮 (CommandButton),对象名.Default=True | False,注意： MouseDown和MouseUp只能通过单击鼠标触发；而Click既可通过单击鼠标触发，还可以在按钮获得焦点时按空格或回车键触发。,33,命令按钮(CommandButton),命令按钮的主要方法 SetFocus：设置焦点。设置为焦点的按钮在其表面有一个虚边框,注意： 命令按钮不支持双击事件。 BackColor属性和Picture属性在Style属性值为1（图形方式）下，才能显示出来。,34,命令按钮(CommandButton),Private Sub Command1_Click() Form1.Move Left + 500, Top - 500, Width + 500, Height + 500 End Sub Private Sub Command2_Click() Form1.Move Left - 500, Top + 500, Width - 500, Height - 500 End Sub Private Sub Command3_Click() End End Sub,35,文本框是一个文本编辑区域，主要用于接收用户的输入、输出、修改等信息。,文本框(TextBox),何时使用文本框?,如:,36,文本框控件TextBox,文本框控件用于输入、输出文本。与标签不同之处在于文本可以编辑。 建议名称采用前缀 txt 打头的一串英文字母，如：txtName。默认名称Text1、Text2 。,37,文本框(TextBox),在工具箱选取文本框按钮创建按钮，用鼠标在窗体上拖曳画出。 单选按钮的默认名：TextX。,38,Name：设置文本框的名称。 Text：(主要属性)设置文本框中显示的文本内容。语法格式：,文本框(TextBox),对象名.Text=字符串,文本框常用属性,39,Locked：设置文本框是否可以被编辑。语法格式： MaxLength：设置文本框中输入的字符串最大长度。,对象名. Locked = True | False,文本框常用属性,40,PasswordChar：设置是否在文本框中显示用户所输入的字符串。语法格式为：,对象名. PasswordChar= *,文本框常用属性,41,Change：当用户改变文本框的内容时，该文本框的Change事件被触发，该事件对应的代码结构如下：,Private Sub Text1_Change() End Sub,文本框常用事件,42,例：程序运行时，用户输入密码时，在另一个文本框中显示用户输入的密码。,分析： 接收用户输入 用户输入的内容保存在文本框的什么属性中 文本框2与文本框1内容一致 同步显示 代