VB可视化编程基础VB--武科大教学---PPT
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
