第三章 窗体 命令按钮 标签 文本框

第3章窗体、命令按钮、标签和文本框王绍清第3章窗体、命令按钮、标签和文本框本章内容

窗体简单的输入和输出命令按钮标签文本框VB语句书写规则本章重点Form对象的属性、方法和事件Msgbox（）和Inputbox（）函数命令按钮、标签、文本框本章难点Msgbox（）函数Inputbox（）函数3.1窗体窗体是一个最常用的对象。当创建一个工程时，系统自动创建一个窗体，名称为Form1.窗体的属性（1）Caption设置或返回窗体标题栏的文字。BorderStyle

设置窗体的边框样式，取值见P31。Controlbox设置是否显示窗体的控制菜单条。MaxButton、MinButton

设置是否显示最大化和最小化按钮Moveable设置窗体是否可移动。True可以移动。Icon设置窗体最小化时的图标窗体的属性（2）Picture--指定窗体内要显示的背景图片。SetForm1.Picture=LoadPicture(“c:\bkground.jpg”)StartUpPosition--窗体启动时在屏幕上的显示位置手动（0）容器中央（1）屏幕中央（2）窗口缺省（3）WindowState

--窗体启动时的状态正常（0）最小化（1）最大化（2）ScaleHeight、ScaleWidth

窗体内部绘图区的高度、宽度，Height,Width

指定整个窗体的高和宽。课堂示例3-1用窗体名访问form1.caption=“欢迎”用Me访问（me表示当前窗体）Me.caption=“欢迎”直接访问窗体属性caption=“欢迎”访问窗体的控件属性

[窗体名.]控件名.属性

如果是当前窗体，则可省略窗体名。举例：窗体Form1上有一个命令按钮command1,使之一直位于窗口中央。(提示：在窗体的resize事件中编写代码)访问窗体的属性课堂示例3-0Initialize事件

窗体对象被创建、但没加载。该事件中的代码最先被执行。通常将一些初始化的操作放在该事件过程中。Load事件

窗体的所有控件都装入内存，但窗体仍未显示。可使用show方法显示。窗体中控件的初始值代码通常放在Load事件中，如：Text1=100Activate事件

窗体处于活动状态事件。窗体中控件的获得焦点方法Setfocus一般放在此事件中。同时有Gotlocus事件产生。如：text1.setfocus

Deactivate事件窗体处于非活动状态。同时有Lostfocus事件产生。窗体的事件（1）【例】设计程序，使窗体一打开就在屏幕的右下角。【提示】Screen是一个全局的系统对象，对应于计算机屏幕，可以直接使用。思考:如果窗体位于屏幕的中央，怎么修改上述代码？课堂示例3-1窗体的Load事件示例QueryUnload事件cancel

－设置为非零值，可停止窗体的关闭Unloadmode－指示引起此事件的原因UnLoad事件在Queryunload事件后发生课堂示例3-2窗体的事件（2）课堂示例3-3Resize事件当窗口第一次显示或窗口大小改变时引发该事件。当窗口调整大小时，可用Resize事件过程来移动窗口中的控件位置或调整其大小，以使界面保持美观。【例】设计包含一个TextBox控件的窗体，要求该控件总是充满整个窗体。(提示：ScaleWidth和ScaleHeigth属性代表窗口内部绘图区域的宽度和高度。)窗体的事件（3）鼠标事件窗体中最常用的鼠标事件为Click和DbClick事件，此外，还常用：MouseMove、MouseDown、MouseUp等事件。【例】编写程序在窗口标题栏中显示鼠标当前的坐标位置。Button按钮常数。左按钮（1）、右按钮（2）Shift

换档常数。

Shift键(1)、Ctrl键(2)、Alt键(4)X

鼠标的水平坐标Y

鼠标的垂直坐标&字符串连接操作符课堂示例3-2键盘事件键盘事件主要有：KeyPress、Keydown、KeyUP、KeyPreviewKeyPreview为True，窗体的键盘事件优先于控件的键盘事件。通常情况下，焦点控件对于键盘事件有优先响应的权利。【例】编写程序利用字符+和-实现窗口的变大和变小。课堂示例3-3窗体类型SDI窗体——程序运行中只有一个窗口被激活和显示MDI窗体——程序管理和显示多个窗口添加新窗体“工程->添加->添加窗体”添加已存在窗体“工程->添加->添加文件”提示：一个工程中可以添加多个窗体，一个窗体可以添加到多个工程中。设计多窗体程序课堂示例3-4指定启动窗体——有多个窗体的工程必须指定一个启动窗体。默认情况下，第一个创建的窗体为启动窗体。如果需要更改，可采用以下方法：右键单击“工程”，选“工程属性”选“通用”选项卡在“启动”列表框中，选中所要窗体使用SubMain在标准模块(.bas)中定义主过程Main SubMain() …. EndSub在工程属性的“启动”列表框中，选中“SubMain”举例：将前面的示例合并到一个工程文件中。设置启动窗体窗体的加载、显示和隐藏除了通过设置启动窗体来自动加载窗体外，还可以在程序中加载窗体。在程序中加载窗体的方法:窗体名.Show0

无模式窗体，可以将焦点切换到其它窗体窗体名.Show1

模式窗体，不能将焦点切换到其它窗体执行Show方法可以完成窗体的创建、加载和可见三个过程。如果执行Load窗体名只能加载窗体,此时窗体还不可见，仍需要执行show方法。显示窗体

窗体名.Show窗体名.Visible=True隐藏窗体窗体名.Hide

窗体名.Visible=False

End

语句，立即中止、结束程序。不触发窗体的Unload和QueryUnload事件。窗体的关闭卸载窗体可以使用以下几种方法:Unload

窗体名

Unloadme

End关闭按钮

课堂示例3-63.2简单的输入和输出VB中可以使用控件来控制输入输出，也可以使用输入对话框InputBox和消息对话框MsgBox函数。InputBox和MsgBox运行效果消息对话框MsgBoxMsgBox函数和语句会产生一个输出对话框，向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。格式：

MsgBox(prompt[,buttons][,title])prompt——对话框中显示的消息，字符串表达式buttons——按钮、图标和默认按钮的取值之和，数值表达式，见P41Title——对话框的标题，字符串表达式函数返回值为一个数值，见P42。课堂示例3-5Inputbox函数提供一个输入对话框，允许用户输入数据。函数返回值就是用户输入的值，是一个字符串。格式：变量=InputBox(prompt

[,title][,default][,x][,y])BackString

对话框中的返回值prompt

对话框中显示的提示信息，必选项title可选，对话框的标题，缺省标题为应用程序名default

可选，输入文本框中的缺省值x,y

对话框与屏幕左边和上边的距离输入对话框InputBox课堂示例3-6如果提示字符串信息较长，需要分成多行显示时，可以在每行结尾处加上回车符chr(10)

和换行符chr(13)或者使用常量vbCrlf提示字符串的换行3.3命令按钮(Command)命令按钮用来接收用户的命令。基本属性NameHeight、Width、Top、LeftEnabledVisibleFontCaption

命令按钮的标题。可在标题的某字母前加“&“设置快捷键。例如：&Ok、退出(&X)Default设置为True时，按Enter键相当于用鼠标单击了该按钮。Cancel设置为True时，按Esc键相当于用鼠标单击了该按钮。注意：在一个窗体中，只能有一个按钮的Default或

Cancel属性设置为True。命令按钮——常用属性（1）课堂示例4-0命令按钮——常用属性Value在程序中，如果该值设为True,相当于单击该按钮。该属性在设计时无效。Style

确定按钮显示的形式.0只能显示文字,1

文字、图形均可。Picture

Style值设为1时，在按钮上显示的图片文件(.bmp和.Ico)。ToolTipText

图片按钮时，用于设置按钮的提示文本。一般和Picture结合使用。课堂示例4-1命令按钮——常用方法Move方法

移动对象Setfocus方法

获得焦点命令按钮——常用事件Click()事件。一般也只对该事件进行编程。注意：命令按钮没有DblClick

事件。3.4标签(Label)标签用来显示静态文本。基本属性Height、Width、Top、LeftEnabledVisibleFontForeColorBackColorCaption标签控件中显示的文本。长度最多为1024字节。缺省情况下，当文本超过控件宽度时，文本会自动换行，而当文本超过控件高度时，超出部分将被裁剪掉。BackStyle标签的背景是否透明。0-背景透明；1-不透明。Alignment标签文本对齐方式：0-左对齐；1-右对齐；2-居中对齐。标签——常用属性（1）课堂示例4-2AutoSize为True表示自动改变标签大小。WordWrap设置AutoSize属性为True时，标签默认会沿水平方向自动改变大小（单行显示）。若先将WordWrap设置为True，则标签会沿垂直方向伸缩，水平宽度不变。标签——常用属性（2）课堂示例4-2标签——常用方法、事件常用方法Move方法

移动对象常用事件标签可响应单击（Click)和双击（DblClick）事件，但一般情况不对它进行编程。3.5文本框（Text)文本框用来编辑和显示文本，允许用户输入数据。基本属性NameHeight、Width、Top、LeftEnabledVisibleFontForeColorBackColor

文本框——常用属性（1）Text文本框中显示的内容。缺省最多为2048个。注意，文本框没有Caption属性。Maxlength设置文本框内文本的长度。

0表示任意长度值。Locked文本框内的文本是否可以被编辑。False，表示为可编辑。PassWordChar设置密码字符，如设成*

。课堂示例4-3文本框——常用属性（2）MultiLine文本框内的文本是否允许多行显示。True允许多行显示。默认为一行（

False）。ScrollBars文本框内是否显示滚动条。当MultiLine为True时，该属性才有效。0-None：无滚动条1-Horizontal：水平滚动条2-Vertical：垂直滚动条3-Both：水平和垂直滚动条课堂示例4-3文本框——常用属性（3）SelStart设置或返回在文本框选中文本的起始位置。第一个字符的位置为0。如果SelStart的值大于文本的长度，则SelStart取当前文本的长度。若没有选择文本，则返回插入点的位置。SelLength设置或返回在文本框中选定文本的长度（即字符个数）。SelText设置或返回在文本框中选定的文本字符串。课堂示例4-3文本框——使用Clipboard对象来操作剪贴板剪贴板（Clipboard）对象没有任何属性和事件。清除剪贴板中的内容Clipboard.clear将文本复制到剪贴板中Clipboard.SetText

要复制的文本

示例：将在Text1中选择的文本复制到剪贴板中

Clipboard.SetTextText1.seltext

复制返回存储在剪贴板上的文本目标=Clipboard.GetText示例：用剪贴板中的文本替换Text1中选择的文本

Text1.seltext=Clipboard.GetText

粘贴课堂示例4-4Change事件当改变文本框的Text属性时会引发该事件示例：当下边的程序运行后，在文本框中输入ABCD，则在窗体上在输出结果是？文本框——常用事件课堂示例4-5KeyPress事件当用户按下并释放键盘上一个ANSI键时，就会触发一次该事件示例：当下边的程序运行后，在文本框中输入ABC