第2篇 VB应用程序设计过程.pptVIP

第2章 VB应用程序设计过程 MaxButton 决定窗体标题栏中是否具 有最大化按钮 Moveable 决定窗体是否能移动 Picture 设置在窗体上显示的图片 WindowState 决定运行时窗体是正、最小化还是最大化 Height 窗体高度 包括边框与标题 单位为Twip Width 窗体的宽度 包括边框与标题 单位为Twip Unload(卸载）事件 —当从内存中卸载窗体时，响应该事件 QueryUnload 事件 —当从内存中卸载窗体之前时，响应该事件 Resize事件 —当窗体首次显示在屏幕上或窗体大小改变 KeyPress KeyDown KeyUp Move 移动并改变窗体的位置和大小 语法格式为：[窗体名].Move Left[,Top[,width[,height]]] Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要退出吗？, vbYesNo + vbQuestion, 确认) = vbYes Then Unload Me Else Cancel = True End If End Sub 方法 可以用SetFocus方法将焦点定位在指定的命令按钮上. 如 Command1.SetFocus 表示将焦点定位在名称为Command1的命令按钮上. AutoSize属性：布尔型。设置为True时，可根据标题自动调整标签的大小；设置为False(缺省值)时，标签保持设计时定义的大小，太长的标题内容将不能显示出来。 BackStyle属性：数值型。缺省值为1，标签不透明；设置为0时，标签透明。 WordWrap属性：布尔型。设置为True时，标签将在垂直方向变化大小以与标题相适应，此时，Autosize属性应设置为True；设置为False时 (缺省值)，标签不能在垂直方向上扩展。 例如，设窗体上有一个标签控件Label1，单击该标签控件，使该标签控件向右移动50缇，可以通过如下代码实现 Private Sub Label1_C1ick() Label1．Move Label1．Left + 50 End Sub 2) MultiLine属性： 布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框时自动换行。默认值为False。 在设计阶段，在属性窗口设置Text属性值时，通过按下Ctrl+Enter组合键实现文本的换行。 在运行阶段，如果窗体上没有缺省按钮，则在多行文本框(TextBox)控件中按下回车键可以把光标移动到下一行；如果有缺省按钮存在，则必须按下Ctrl+Enter组合键才能移动到下一行。 4) ScrollBars属性： 数值型。该属性用于确定文本框是否带滚动条。有以下4种选择： 0-None 没有滚动条 1-Horizontal 只有水平滚动条 2-Vertical 只有垂直滚动条 3—Both 同时具有水平和垂直滚动条 只有当MultiLine属性值为True时，文本框才显示滚动条。 例：建立三个文本框和两个命令按钮。运行时，用户在文本框Text1中输入内容的同时，文本框Text2和Text3显示相同的内容，但显示的字体不同。单击“清除”，按钮清空三个文本框中的内容，单击“退出”按钮结束程序的运行 5) SetFocus方法： SetFocus方法是文本框常用的方法，该方法是把光标移到指定的文本框中，使该文本框获得焦点。 当在窗体上建立了多个文本框后，可以使用该方法把光标置于所需要的文本框上。使用格式如下： [对象名.]SetFocus 例如，将焦点定位在文本框Textl中，使用语句：Textl.SetFocus 2.4 应用程序设计过程实例 结束，谢谢！ 3) PasswordChar属性： 字符串类型。当MuitiLine属性值为False时，该属性可以用于口令输入。在缺省状态下，该属性被设置为空串，用户从键盘输入时，每个字符都可以在文本框中显示出来。如果把PasswordChar属性设置为一个字符，如星号(*)，则在文本框中键人字符时，只显示星号，不显示键入的字符。Text