第二章 VB程序的界面设计

例：在文本框中输入多排文字 创建如下用户界面： 将文本框的MultiLine 属性设置为True
编写如下程序： Private Sub Command1_Click() Text1 = " Visual Basic" & _ vbCrLf & " 123456" End Sub
5、Alignment属性：在MultiLine属性为True 时，此属性起作用。
8、TabStop属性：值为True、False。指出用户 是否可以使用Tab键来选定对象。 TabStop设置为True,表示可以选定对象
9、创建键盘快捷方式：利用Caption属性，在标题 显示文字某个字符前加连字符(&)，这时 可看见该字符出现一个下划线，运行时， 只要按Alt+带下划线字符，就能选定该 按钮。 10、Value属性：在设计时不可用。True 表示已选 择该按钮；False（缺省值）表示没有选 择该按钮。如果在代码中设置Value属 性值为True，表示激活该按钮的Click事 件。
0 - Lift Justify
1 - Right Justify
2 - Center
6、PasswordChar属性：创建密码文本框。在 此属性中加一个“*”, 则运行时此 文 本框中无论输入什么字符，都只显 示*号。
例：创建一个密码窗口。
窗体模块的对象为：
窗体模块的代码为：
Option Explicit Private Sub CmdExit_Click() End End Sub Private Sub CmdOK_Click() If TxtPass.Text = "123456" Then FrmPassWord.Hide FrmMain.Show Else MsgBox ("密码错误，请重输入") TxtPass.SetFocus TxtPass = "" Exit Sub End If End Sub
6、UseMnemonic属性：缺省值为True。设 置返回标签的Caption属性中能否 出现下划线。 True ------- 在&字符后的字符出 现下划线。 False ------- 在&字符后的字符不出 现下划线，&显示在标题栏中 &2-4 文本框(TextBox) 在工具箱中的文本框工具 文本框用来输入或显示(输出)文字信息
7、MaxLength属性：设置文本框中最大可以 输入的字符数。若超过则系统发出 嘟嘟声。 缺省值是0 ------输入的字符取决于 系统对内存所建 立的值。
8、Locked属性：决定文本框中的文本是否可 编辑。
缺省值为False ----- 文本可编辑
9、取消文本框中的击键值 对于文本框中所输入字符，可以利 用KeyPress事件加以过滤或限制。
方法名
参数
例：单击窗体时，窗体上Байду номын сангаас示“欢迎使用 Visual BASIC”，窗体的标题栏上显示“实 验 1” 打开代码窗口，编写如下程序 答：
Option Explicit
Private Sub Form_Click() Form1.FontSize = 22 Form1.Font = "黑体" Form1.Print "欢迎使用Visual Basic" Form1.Caption = “实验1" End Sub
当一个Print语句无输出项时，将空一行。
例： Print “12345678901234” Print 1,2;3 Print Print “a”; “ b”; Print “c”,“ d”
&3.2 命令按钮控件 命令按钮(CommandButton) 在工具箱中的按钮工具 命令按钮的属性： 1、名称：缺省值为Command1、 Command2、…… 建议以 按钮的实际意义加前缀 Cmd 组成。 例：两个按钮，一个是加1，一个是退出。所以 两个按钮的名称分别命名为CmdAdd1, CmdExit
4、Visible属性：值为True或False，决定按钮是 否可见。 5、Cancel属性：值为True或False，决定按钮是 否是取消按钮。即Cancel属性设置 为True时，表示按键盘上的Esc键就 是单击此按钮。 6、Default属性：值为True或False，决定按钮是 否是Enter键。即Default属性设置 为True时，表示按键盘上的Enter键 就是单击此按钮。 7、TabIndex属性：设置或返回父窗体中按钮对 象的Tab顺序。(值为0~n-1，n为窗体 中控件对象的个数)
ForeColor属性：窗体的前景色。
BorderStyle: 窗体边框风格。
Enabled: 活动属性。决定对象是否能被事件激活。 缺省值为“True”, 表示能被事件激活。 “False”表示不能被事件激活 Icon: 图标属性。设置运行时窗体最小化时所显 示的图标。或在标题栏上所看到的图标。 Left、Top、Height、Width: 决定窗体的位置与 大小。 Font: 设置窗体所显示文字的字体、字型和字号。
文本框的属性：
1、名称：缺省值为Text1、Text2、……。 建议以文本框的实际意义加前缀txt 组成。 2、Text属性：输入或输出到文本框的文字。 缺省时，可输入2048个字符。若将 MultiLine属性设置成True，则可 输入多达32K的字符。
3、MultiLine属性：缺省值为False。决定文 本框是否允许接受多行文本。 4、ScrollBar属性：缺省值为0-Nore。决定文 本框是否加上水平滚动条或垂直滚 动条。
2、Caption属性：缺省值为Command1、 Command2、…… 它是按钮上的标题 显示文字，建议以按钮的实际意义说 明组成。 3、Enabled属性：值为True或False，设置或返 回一个值，用来确定按钮是否能够对 用户产生的事件作出反应。 例：在一个窗体上建立一个加1按钮，一个减1按 钮，在按加1按钮时(结果在0~10之间), 不允 许按减1按钮，在按减1按钮时(结果在10~0之 间)不允许按加1按钮。
演示程序
七、窗体的Print 方法 Print 方法用于将文本输出到窗体上。 Print 方法的格式为： [Object.]Print p1<s>p2<s>... 输出项。可以是 输出项之间的分隔符， 可以是逗号或分号 常量；变量；表 达式等 1、输出布局：a、标准格式(也叫分区格式)---用“,”作为输出项之间的分 隔 符，每个输出项占据一个显 示区(一个显示区占14个字符 位置)。
Private Sub CmdSub1_Click() x=x-1 Text1.Text = x If x <= 0 Then CmdAdd1.Enabled = True CmdSub1.Enabled = False End If End Sub Private Sub Form_Load() CmdAdd1.Enabled = True CmdSub1.Enabled = False End Sub
Option Explicit Dim x As Integer Private Sub CmdAdd1_Click() x=x+1 Text1.Text = x If x >= 10 Then CmdAdd1.Enabled = False CmdSub1.Enabled = True End If End Sub Private Sub CmdExit_Click() End End Sub
Deactivate:窗体失去当前窗口时，触发本事件。
五、 设置对象的属性和方法 设置属性： 方法1： 选中对象后直接在属性窗口中为属性 设置值
方法2：用语句设置属性值 格式：Object.Property=Expression
对象名 属性名称 设置新值
使用方法的格式： Object.Method [Arg1, Arge2, ...] 对象名
二、窗体对象的属性 Name(名称)：系统自动会为每个窗体命名为 Form1、 Form2、 Form3、……。 当我们要改它们的名称时(尽量 改)，建议用窗体的实际意义加前 缀Frm组成。如一个启动窗体， 它的名称可以用FrmStartUp命名。 Caption属性：窗体标题。它是出现在标题栏中 的文字。 BackColor属性：窗体的背景色。
窗体模块的对象为：
窗体模块的代码为：
Option Explicit Private Sub CmdAdd1_Click() Static x As Integer x=x+1 Text1.Text = x End Sub Private Sub CmdExit_Click() End End Sub
第2章 VB程序的界面设计
&2.1 窗体对象 一、窗体对象的创建 打开VB时或新建一个工程时，VB都自动创 建了一个窗体对象。我们可以根据需要创建 多个窗体对象。 方法1：在工程菜单中选择添加窗体。 方法2：在工具栏中选择添加窗体。 方法3：在工程资源管理器窗口中用鼠标 右健单击窗体，鼠标指针指向添 加，选择添加窗体。
11、选定命令按钮：
A、用鼠标单击按钮。
B、按Tab键，将焦点移到该按钮上，然后按 Enter键或空格键。 C、若按钮有快捷方式，则只要按快捷键即可 (Alt+带下划线字符)。 D、若按钮是默认命令按钮，则只要Enter键 即可。 E、若按钮是默认取消按钮，则只要Esc键 即可。
&2-3 标签(Label) 在工具箱中的标签工具 标签的属性： 1、名称：缺省值为Label1、 Label2、……。建议以 标签的实际意义加前缀 Lbl组成。 2、Caption属性：缺省值为Label1、 Label2、……。设置或返 回标题栏的文本。 3、Alignment属性：缺省值为0-Left Justify。设置或返回标签标 题栏文本的对齐方式。
0-Left Justify 表示左对齐 1- Right Justify 表示中对齐 2- Center表示右对齐
4、AutoSize属性：缺省值为False。设置标 签是否能水平自动调整大小以显 示所有的内容。 5、WordWrap属性：缺省值为False。设置 标签是否能垂直自动调整大小以 显示所有的内容。
三、窗体对象的方法 Hide : 隐藏 Move: 移动 Print: 打印 PrintForm: 打印窗体 Refresh: 刷新 Show: 显示 四、窗体对象的事件 Click: 单击事件 DblClick: 双击事件 Load: 装载事件
Resize: 窗体被改变大小时，触发本事件。
Activate: 窗体变为当前窗口时，触发本事件。
六、窗体的显示、隐藏 使用 Show与 Hide 方法可以显示或隐藏窗体 例：创建二个窗体，在窗体1上建三个按钮，窗 体对象界面如下
窗体1的属性设置如下： Name：FrmStartUp Caption: 窗体1
窗体2的属性设置如下： Name：FrmWork Caption: 窗体2
一个按钮的属性设置如下： Name：CmdOpen Caption: 显示窗体2
另一个按钮的属性设置如下： Name：CmdClose Caption: 隐藏窗体2 第三个按钮的属性设置如下： Name：CmdExit Caption: 退出
编写程序代码：
Private Sub CmdOpen_Click() FrmWork.Show End Sub Private Sub CmdClose_Click() FrmWork.Hide End Sub Private Sub CmdExit_Click() End End Sub
b、紧凑格式(也叫自由格式)----用“;”作为输 出 项之间的分隔符，每个分号都使 后面的一个输出项紧靠前面的输 出项。
2、数值的组成
符号位
例：Print 5
数值部分
例：Print -5 5
一个空格
[
[
[
输出为：
输出为：-5
3、续行 当一个Print语句的末尾是一个“,”或“;”时， 表示下一个Print 语句中的输出项应接在本 语句输出项的后面输出。 4、空行