简单的VB程序设计

2.常用事件 (1)KeyPress(KeyAscii As Integer)：用户每按下并释放键 盘上的一个键时，会引发该事件，返回按键的ASCII代码 值(十进制整数)。例如，按“a”键返回97，按回车键返回 13，若令KeyAscii为0 ，则可以删除刚输入的字符。 (2)Change：当向文本框输入内容或当程序改变了文本框 的Text属性时会引发该事件。用户每输入一个字符均会引 发一次Change。由于Change事件可能引发连锁反应，故 较少使用。
例2.7 数据过滤 要求在文本框1中输入数字数据。当输入结束时（按Tab 键），对于输入正确的数据，在文本框2内显示“正确” 信息；对输入的非数字数据，则在文本框2显示“错误， 重新输入”信息、清除文本框1中的内容，并使焦点重 新回到文本框1。
Private Sub Text1_LostFocus() „当输入结束按Tab键时被激发 Dim i As Integer If IsNumeric(Text1) Then „判断Text1是否为数值 Text2.Text = “正确！” ‘可写成Text2=“正确！” Else Text2.Text = "错误，重新输入！" Text1.Text = "" Text1.SetFocus „使焦点重新回到文本框1 End If End Sub
鼠标单击窗体的Click()事件 Private Sub Form_Click() Caption = "鼠标单击" Cls Print “欢迎使用VB” End Sub 鼠标双击窗体的DblClick()事件 Private Sub Form_DblClick() Caption = "鼠标双击" Picture = LoadPicture("") Print "结束使用VB" End Sub
窗体是创建用户界面的“画布”，是放置所有控件的容 器。一个工程包含一个或多个窗体。 基本控件包括标签、文本框、命令按钮
文本框
标签
命令按钮
2.4.1 基本属性
1. Name属性：程序代码中引用该控件的标识 2. Caption属性：控件的标题 3. 位置属性：Left、Top、Width、Height
7. ForeColor属性：设置控件的前景颜色 8. BackColor属性：设置控件的背景颜色 9. BackStyle属性： 设置控件的背景式样 0—Transparent：控件背景颜色显示不出来 1—Opaque：可为控件设置背景色 10. BorderStyle：设置边框式样 0—None：控件周围不带边框 1—Fixed single：控件周围带单线边框 11. MousePointer属性：设置程序运行时，当鼠标移 动到对象的某个特定部分时，显示的鼠标指针形状 （0—15）
2.4.3 标签 Label
用于显示文本(输出)信息，不能作为输入信息的界面。标 签控件的内容只能用Caption属性来设置或修改。 1.常用属性 AutoSize（标签随标题内容大小自动调整 True/False ） BorderStyle（0—无边框 1—大小固定单线边框） Caption Font 2.常用事件 Click、DblClick、Change
控 件 文本框 命令按钮 单选按钮
默认属性 Text Default Value
控 件 标签 图形、图像框 复选框
默认属性 Caption Picture Value
2.4.2 窗体
窗体是一块画布，是所有控件的容器，用户可以根据 自己的需要利用工具箱上的控件在画布上画界面。 窗体属性决定了窗体的外观和操作。
Caption
Default Picture
设置显示的标题文字或图形，也可设置快捷键
设置是否为窗体的默认按钮(即在运行时尽管焦点不在该按 钮上，按回车键也执行该功能) True/False 用来装载图形文件(只在Style为1时有效)
3.窗体的常用方法 Print方法、Cls方法和Move方法
例2.4 窗体无最大化和最小化按钮，在窗体装入时，在窗 体的标题栏显示“装入窗体”，并在窗体装入 Windows的cloud.bmp墙纸作为背景并显示“装入窗 体”字样；当用户单击窗体时，在标题栏显示“鼠标单 击”，窗体内显示“欢迎使用VB”字样；当用户双击窗 体时，在标题栏显示“鼠标双击”，窗体内显示“结束 使用VB”字样并撤消背景图案。
SelLength SelText Text ScrollBars
选定的正文长度，只能程序设置 存放选定的正文内容（剪贴板），只能程序设置 文本框中输入的文字 是否有滚动条(当MultiLine为True时有效) 0—无 滚动条 1—加水平滚动条 2—加垂直滚动条 3— 加水平和垂直滚动条
例2.6 建立两个文本框，在第一个文本框内输入数据，并 自动将其中前8个字符标识为一个数据块，当用鼠标单击 文本框时，第一个文本框中被标识的数据块复制到第二 个文本框中。 分析：在窗体上放置两个文本框，属性设置为可显示多行 文本，以及增加水平、垂直滚动条。 编制Text1_Click()事件程序：第一个文本框用作文本编 辑区，可以直接输入数据，并设置其SelStart=0, SelLength=8，以获得8个字符的文本块，并自动保存在 SelText中；第二个文本框用来显示从文本框1中截取的 SelText中的内容。 注意：①文本框本身具有文字编辑功能，因此，在文本框 中输入数据不需要编程。 ②SelStart和SelLength属性只能程序设置。若未设 置，当在文本框中拖动鼠标将自动修改SelStart和 SelLength。
Caption
Top
Left Width
Height
4. Enable属性：表示该控件是否可以操作 5. Visible属性：决定该控件是否可见 6. Font属性：改变文本的外观 FontName—字体 FontSize—字号 FontBold—加粗 FontItalic—斜体 FontStrikethru—删除线 FontUnderline—下画线 例2.2 在窗体上建立两个命令 按钮，按指定的文字设置其 Caption属性
运行界面
16. TabIndex属性：决定按Tab键时，焦点在各控件间的 移动顺序 17. 控件默认属性 反映该控件最重要的属性。在程序中该属性名可省略。 例如文本框的默认属性为text，要将文本框text1的内容 设置为“Visual BASIC”,下面两条语句等价： Text1.Text=“Visual BASIC” Text1=“Visual BASIC”
2.4.5 命令按钮CommandButton
接受用户输入的命令。选择命令按钮可以有三种方式: 鼠标单击 Tab键焦点到该按钮 快捷键（Alt+字母键）
2.4.5 命令按钮CommandButton
1.主要属性
属性名 Cancel 含义 指出是否默认为窗体的“取消”按钮(即在运行时尽管焦点 不在该按钮上，按Esc也执行该功能) True/False
Private Sub Form_Load() Label2.Caption = Label1.Caption Label2.BackStyle = 1 Label2.BorderStyle = 0 Label2.Left = Label1.Left + 90 Label2.Top = Label1.Top + 50 Label2.Height = Label1.Height Label2.Width = Label1.Width End Sub
(3)LostFocus:当对象失去焦点时（由于按了Tab键，或单 击了另一个对象，或程序中用SetFocus方法改变了焦点） 会发生LostFocus事件。 (4)GotFocus:当焦点进入控件时发生该事件。例如，当焦 点从一个文本框移到第二个文本框时，第二个文本框就获 得焦点，可用该事件来清除第二个文本框的内容。 3.常用方法 SetFocus 可将焦点移到指定的文本框中。 当前焦点在文本框Text1中，要将文本框Text2设置为当 前工作区，可用Text2.SetFocus实现。
例2.5 利用两个标签分别显示白色和黑色文字，并显示文 字的浮雕效果。 浮雕效果的特点: 两个标签大小相等，显示的字体字型相同，但颜色不同 两个标签的Top和Left属性有微小的错位 叠放在上面的标签label1显示黑色文字，有边框且背景 式样为透明，以免盖住下面标签中的文字；下面的标签 label2显示白色文字，无边框且背景样式为不透明。
2.3.4 文本框 TextBox
文本编辑区域，可在该区域输入、编辑和显示正文内容。 1.主要属性
Locked MaxLength MultiLine SelStart 文本框内正文是否可编辑 False(可编辑)/True 文本框能输入的文本内容的最大长度 0—任意长 度 非0值—字符数(西文及汉字长度均为1) 是否可显示多行文本并自动换行 True/False 选定正文的起始位置(从0开始)，只能程序设置
第二讲
窗体及基本控件

2.4 窗体和基本控件
窗体和控件具有基本属性 (1) Name 名称属性 所创建的对象名称,在程序中引用。 (2) Caption 标题属性 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的高度、宽度，和位置。
2
本章目录
2.3 窗体和基本控件
例2.3 在窗体上放置5个大小相同的标签，按下面的要 求设置属性：
默认控件名 Name Label1 Label2 Label3 Label4 Label5 标题 Caption 左对齐 居中 自动 背景白 前景红 有关属性设置 Alignment=0， BorderStyle =1 Alignment=1，BorderStyle =1 AutoSize=True， WordWarp=False， BorderStyle =1 BackColor= &H00FFFFFF&， BorderStyle =0 ForeColor= &H000000FF&， BorderStyle =0