《VB可视化编程基础VB 武科大教学 课件》由会员分享,可在线阅读,更多相关《VB可视化编程基础VB 武科大教学 课件(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中的对象概
2、述,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,窗体的结构,窗
3、体,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 输出列表 Priv
4、ate 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) 功能:指定输出项在输出行的位置例如:
5、 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);
6、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 输出项
7、列表; | , 对象除了窗体外,还可以是图片框(PictureBox)、Debug或打印机(Printer),若缺省对象名,表示将文本输出到当前窗体上。 输出项列表:是由0个、1个或多个待输出的数值表达式或字符串表达式构成;当输出项是由多个项构成,则中间必须用逗号或分号分隔;若Print后什么都不跟,则表示输出一个空行。,窗体的 Print方法,如下代码:,Private Sub Form_Click() Print 1; -2 Print Print We; study End Sub,注意: 标准格式即参数以 “,”分割,下一个输出项将与上一个输出项间隔14列;紧缩格式即参数以 “;”分割
8、,下一个输出项将以紧凑格式,紧跟着上一个输出项输出。 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
9、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)表达式列表;|, S
10、pc(n)函数:插入n个空格,允许重复使用。 Tab(n)函数:左端开始右移动n列,允许重复使用。 ;(分号):光标定位上一个显示的字符后。 ,(逗号):光标定位在下一个打印区的开始位置处。每个打印区占14列。 空print则表示换行。,27,窗体的其它常用方法,窗体的方法也就是窗体所具有的行动方式。窗体上常用的方法有: 1. Show 用以显示窗体 2. Hide 用于隐藏窗体,但不能使其卸载 3. Move 用以移动窗体到一定的坐标位置 4. Cls 清除窗体中的图形或文本,演示QQ登录程序,28,命令按钮 (CommandButton),属性:Name、caption、Enabled、c
11、ancel、default、style、picture 事件:click,29,命令按钮通常在Click事件中编写一段程序,当用户用鼠标单击这个按钮时,就会启动这段程序,执行某一特定的功能。 命令按钮控件的属性 Caption:设置命令按钮的标题。 Default:设置命令按钮是否为默认按钮,即当运行程序时,用户按回车键时,就激活它。语法格式:,命令按钮 (CommandButton),对象名.Cancel= True | False,对象名.Default=True | False,注意: 在一个窗体内,只能有一个Default命令按钮,也只能有一个Cancel命令按钮;,30,命令按钮控件
12、的属性 Enabled:设置命令按钮是否能被按下。语法格式: 其中: 属性值为True(默认值)表示该按钮能被响应;属性值为False表示该按钮不能被响应,以灰色显示。 Picture:设置命令按钮上显示的图形。语法格式:,命令按钮 (CommandButton),对象名.Enabled=True | False,对象名.Picture=LoadPicture(图形文件名),31,命令按钮控件的属性 Style:设置命令按钮的类型。语法格式: ToolTipText:设置当鼠标在命令按钮上暂停时显示的文本。,命令按钮 (CommandButton),对象名.Style=0 | 1,对象名. T
13、oolTipText=字符串,32,命令按钮控件的事件 Click、MouseDown、MouseUp:当单击鼠标时就会触发该三个事件。他们触发的顺序为MouseDown、 Click、 MouseUp 事件。,命令按钮 (CommandButton),对象名.Default=True | False,注意: MouseDown和MouseUp只能通过单击鼠标触发;而Click既可通过单击鼠标触发,还可以在按钮获得焦点时按空格或回车键触发。,33,命令按钮(CommandButton),命令按钮的主要方法 SetFocus:设置焦点。设置为焦点的按钮在其表面有一个虚边框,注意: 命令按钮不支持
14、双击事件。 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()
15、End End Sub,35,文本框是一个文本编辑区域,主要用于接收用户的输入、输出、修改等信息。,文本框(TextBox),何时使用文本框?,如:,36,文本框控件TextBox,文本框控件用于输入、输出文本。与标签不同之处在于文本可以编辑。 建议名称采用前缀 txt 打头的一串英文字母,如:txtName。默认名称Text1、Text2 。,37,文本框(TextBox),在工具箱选取文本框按钮创建按钮,用鼠标在窗体上拖曳画出。 单选按钮的默认名:TextX。,38,Name:设置文本框的名称。 Text:(主要属性)设置文本框中显示的文本内容。语法格式:,文本框(TextBox),对象名
16、.Text=字符串,文本框常用属性,39,Locked:设置文本框是否可以被编辑。语法格式: MaxLength:设置文本框中输入的字符串最大长度。,对象名. Locked = True | False,文本框常用属性,40,PasswordChar:设置是否在文本框中显示用户所输入的字符串。语法格式为:,对象名. PasswordChar= *,文本框常用属性,41,Change:当用户改变文本框的内容时,该文本框的Change事件被触发,该事件对应的代码结构如下:,Private Sub Text1_Change() End Sub,文本框常用事件,42,例:程序运行时,用户输入密码时,在另一个文本框中显示用户输入的密码。,分析: 接收用户输入 用户输入的内容保存在文本框的什么属性中 文本框2与文本框1内容一致 同步显示 代