第3章简单的vb程序设计.ppt

Date1本章主要内容§ 窗体 § 标签、文本框及命令按钮 § 顺序结构的程序设计 (4学时)Date23.1 窗体Date31. Name(名称) 属性（任何对象都具有的）创建的对象名称，有默认的名称在程序中，控件名是作为对象的标识而引用，不会显示在窗体上窗体及控件的属性设置方法也可以说主要就是对属性窗口的操作例如，通过修改某些属性，可以定制窗体控件的外观3.3.1 窗体的基本属性 Date43．BackColor 背景颜色属性 可以利用属性窗口中的调色板设置颜色 4．Appearance 外观效果属性 0 --- 平面效果 1 — 三维立体效果 2．Caption 标题属性 决定出现在窗体的标题栏上的文本内容，也是当窗体被最小化后出现在窗体图标下的文本5．Borderstyle 边框和控制菜单类型属性 Date56-9. Left、Top、Height和Width属性这四个属性决定窗体（或控件）的大小，在容器中的位置Form1.WidthForm1.HeightCommand1.TopCommand1.LeftCommand1.WidthCommand1.Height单位为twip：1 twip=1/20点=1/1440英寸=1/567cm Date63.3.2 窗体的事件和方法 1. 窗体的事件 (1)．Click 鼠标单击事件 (2)．Dblclick 鼠标双击事件 (3)．Load 窗体装载事件 (4)．Activate 窗体激活事件 (5-8)．MouseDown、MouseUp、MouseMove 和KeyPress鼠标操作事件 Date72. 窗体的方法 (1)．Show 显示窗体方法 (2)．Hide 隐藏窗体方法 (3)．Print 窗体显示文本方法 (4)．PrintForm 打印窗体方法 (5)．Cls 清除窗体内容方法 (6)．Move 移动窗体方法 Date8例3-1： 设计一个窗体，无最大化按钮和最小化按钮，在窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体装入一图片文件“Clouds.Bmp”作为背景；当用户单击窗体时，在标题栏显示“鼠标单击”，在窗体中以红色、48号隶书显示“欢迎进入VB”的字样；当用户双击窗体，在标题栏显示“鼠标双击”，窗体的背景变为黄色，在窗体中以蓝色、36号华文行楷显示“谢谢使用VB”的字样。

Date9(a) Load事件运行效果 (b) Click事件运行效果 窗体的常用事件应用(c) DblClick事件运行效果Date10程序如下： Private Sub Form_Load()Form1.Width = 4000Form1.Height = 2500Caption = “装入窗体“Picture = LoadPicture(App.Path + “\Clouds.Bmp“)End SubPrivate Sub Form_Click()FontSize = 36FontName = “隶书“ForeColor = RGB(255, 0, 0)Caption = “鼠标单击“PrintPrint “欢迎进入VB“End SubDate11Private Sub Form_DblClick()ClsPicture = LoadPicture(““)FontSize = 36FontName = “华文行楷“BackColor = RGB(255, 255, 0)ForeColor = RGB(0, 0, 255)Caption = “鼠标双击“PrintPrint “谢谢使用VB“End SubDate123.2 标签、文本框及命令按钮 Date133.2.1 标签（Lable）功能：主要用于显示不需要用户修改的文本。

所以，标签可以用来标识窗体及窗体上的对象，如为文本框、列表框等添加描述性文字不能作为输入信息的界面用于显示文本(输出)信息，不能作为输入信息的界面Date14(2) Autosize属性：该属性用来决定是否自动调整控件大小3) BackStyle属性：该属性用来设置背景风格0-- 透明显示 1-- 不透明4) BorderStyle属性：该属性用来设置标签是否有边框0 – 无边框 1– 有单线边框5) WordWrap属性：折行显示文本标签的主要属性：标签的主要属性：(1) Alignment属性: Alignment属性用来确定标签中内容的对齐方式0-Left Juseify：左对齐默认值）1- Right Juseify：右对齐2-Center：居中对齐Date152. 标签的主要事件常用单击（Click），双击（DblClick）和改变（Change）事件例3-2：利用两个标签控件，显示具有浮雕效果的文字控件名 字体 字号边框样式 (BorderStyle)背景样式 (BackStyle) 前景颜色 (ForeColor)标签定位 (Left、Top) 320,360 365,420 黑 白 1 (不透明) 0 (透明) 1 (有边框) 0 (无边框) Label2 Label1 黑体 黑体 26磅26磅属性设置标签常用属性的应用 Date16功能：接受并响应用户输入的命令，执行程序的特定操作。

3.2.2 命令按钮（CommandButton ）(1) Enable属性：是否可用2) Style属性：是否可显示图形3) Picture属性：给命令按钮指定一个图形4) DisabledPicture属性：该属性用来设置对一个图形的引用，当命令按钮禁止使用时，在按钮中显示图 形只有当Style属性设置为1时，此属性才有效，否则无效1. 1. 命令按钮的主要属性：命令按钮的主要属性：Date17(5) DownPicture属性：该属性用来设置控件被单击并处于按下状态时，在控件中所显示图形，只有当Style属性设置为1时，此属性才有效，否则无效6) Appearance属性：设置按钮外观0-平面 1-立体(7) Default属性：一个命令按钮的该属性为True，则不论焦点在窗体的哪个控件上，只要用户按Enter键，就产生这个按钮的单击事件8) Cancel属性：一个命令按钮的该属性为True，则不论焦点在窗体的哪个控件上，只要用户按Esc键，就产生这个按钮的单击事件Date18(9) ToolTipText属性：该属性是工具提示功能 (10) MousePointer属性：设置鼠标指针形状。

命令按钮的常用事件为单击(Click)事件，命令按钮不支持双击(DblClick)事件2. 2. 命令按钮的主要方法：命令按钮的主要方法： *** *** 命令按钮的常用事件：命令按钮的常用事件：命令按钮的主要方法只有SetFocus方法，此方法用于在程序运行期间，强制指定的控件获得焦点例：Command3.SetFocus Date19功能：文本框是一个文本编辑区域，可在该区域输入，编辑和显示正文内容3.2.3 文本框（TextBox）1. 1. 文本框的主要属性：文本框的主要属性：(1) ForeColor属性：设置字符颜色2) Text文本属性：设置文本框中要显示的内容，也可保存程序运行期间在文本框中输入的任何数据3) Font属性：通过激活对话框来设置字符的大小、字体、字型、斜体、粗体和下划线等Date20(4) MaxLength属性：设置文本框中能够输入的正文内容的最大长度5) MultiLine属性：True：则可使用多行文本，即在文本框中输入或显示文本时可换行按Crtl+Enter键可以插入一个空行False：则在文本框中只能输入单行文本6) ScrollBars属性： 该属性用来确定文本框中是否有滚动条。

当MultiLine多行属性为True时，ScrollBars属性才有效0-- 无滚动条 1-- 加水平滚动条 2-- 加垂直滚动条 3-- 同时加水平和垂直滚动条Date21(7) Locked属性：决定是否锁定文本框内容False：表示可以编辑，默认值为FalseTrue：文本控件相当于标签的作用，不能被编辑8) PasswordChar属性：该属性可用于口令输入在默认状态下，该属性被设置为空字符串(不是空格)，当用户从键盘上输入时，每个字符都可以在文本框中显示出来如果把PasswordChar属性设置为一个字符，例如星号(*),则在文本框中输入字符时，显示的不是输入的字符，而是被设置的字符(如星号)Date22(9) SelText属性：用于返回文本框中被选中的字符串10) SelLength属性：用于返回文本框中被选中的字符个数2. 常用事件 （1）Change事件当用户向文本框中输入新信息， 或当程序把Text属性设置为新值从而改变其Text 属性时，将触发Change事件，程序运行后，在文 本框中每输入一个字符，就会引发一次Change事件 Date23（2）KeyPress事件当用户按下并释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。

例如，当用户输入字符“a”，返回KeyAscii的值为97，通过Chr(KeyAscii)可以将ASCII码转换为字符“a”KeyPress事件同Change事件一样，每输入一个字符就会引发一次该事件；事件中最常用的是对 键入的是否为回车符(KeyAscii的值为13)的判断，表示文本的输入结束 Date243. 3. 文本框主要方法：文本框主要方法： SetFocus是文本框中常用的方法格式：［对象.］SetFocus功能：该方法可以把光标移到指定的文本框中，当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框中3）LostFocus事件 当按下Tab键使光标离开当前文本框或者用鼠标选择窗 体中的其他对象时，触发该事件，用Change事件和 LostFocus事件过程都可以检查文本框的Text属性值，但后者更有效Date25例3-3 在窗体中添加三个文本框（Text1、Text2、Text3）和三个命令按钮（Command1、Command2、Command3）， 三个命令按钮的标题属性值分别为“显示”、“清除”、“退出”程序要求： （1）当用户在第一个文本框（Text1）中输入的每个字符都会在第二个文本框（Text2）和第三个文本框（Text3）中同步显示，只是第二个文本框中对应的字符进行了大写转换成小写的操作，第三个文本框中对应的字符进行了小写转换成大写的操作。

（2）当单击“显示”按钮时，Text1中则显示事先预置的字符串，Text2和Text3也会同步分别显示转换后的字符串3）当单击“清除”按钮时，则三个文本框的内容被清除4）当单击“退出”按钮时，退出程序Date26文本框的Change事件应用 Date27程序如下： Private Sub Command1_Click()Text1.Text = “Microsoft Visual Basic 6.0“ End SubPrivate Sub Command2_Click() Text1.Text =“” Text2.Text = “” Text3.Text = “” End SubPrivate Sub Command3_Click()End End SubPrivate Sub Text1_。