实例窗体操作
“窗体操作”程序运行后,在屏幕的的中央显示一个窗体,窗体的画面如下图所示。单击窗体中的“向左移动”按钮,可以使窗体向左移动;单击“向右移动”按钮,可以使窗体向右移动:单击“向下移动一按钮,可以使窗体向下移动;击“向上移动”按钮,可以使窗体向上移动;单击“最小化”按钮,可以使窗体最小化,在Windows的状态栏中显示程序最小化后的按钮(按钮上有最小化图标),单击最大化按钮,可以使窗体最大化,此时窗体没有边框;单击“正常”按钮,可以使窗体恢复起始状态,窗体有边框,单出“退出E”按钮或者按Alt+E键,可以关闭窗体,结束程序。
(1)实例1中共有10个对象,窗体的名称为Form1,标签的名称为Label18个按钮的名称分别是:Command1Command2Command3Command4Command5Command6Command7Command8。它们的Caption属性设置见表。
实例1中各对象的Caption属性设置
对象名称
Caption
对象名称
Caption
对象名称
Caption
Form1
窗体操作
Label1
窗体操作
Command1
向左移动
Commnand2
向右移动
Command3
向下移动
Command4
向上移动
Command5
最小化
Command6
最大化
Commnnd7
正常
Command8
退出&E
其中,Command8按钮的Caption值为退出&E”,表示按钮的标题为退出&E”,按Alt+E键和单击该按钮的作用一样。
(2)单击选中窗体,在其属性栏内。单击Picture属性值右边的箭头按钮,调出加载图片”对话框。然后,选择一个图像文件,单击打开按钮,给窗体设置一幅背景图像。
再将窗体的StartUpPosition属性设置为“2-屏幕中间,使窗体在屏幕中间显示。
(3)单击选中标签对象Label1,在其属性栏内,再单击BackColor属性值右边的箭头按钮,弹出调板。利用该调板设置标签的背景为黄。
(4)vb开始按钮代码单击ForeColor属性值右边的箭头按钮,弹出调板。利用该调板设置标签的文字颜为红。单击Font属性值右边处的箭头按钮,弹出字体对话框,利用该对话框,设置字体为宋体,字大小为16号,字形为粗体。然后单击确定按钮,完成字体设置,退出“字体”对话框。
2.程序代码
Rem 实例1的代码程序
Private Sub Command1_Click()  '单击按钮Command1的事件过程
  Form1.Left = Form1.Left - 88 'Form1窗体的Left值在原数值的基础上减88 Twip
End Sub
Private Sub Command2_Click() '单击按钮Command2的事件过程
  Form1.Left = Form1.Left + 88 'Form1窗体的Left值在原数值的基础上加88 Twip
End Sub
Private Sub Command3_Click()  '单击按钮Command3的事件过程
  Form1.Top = Form1.Top + 88 'Form1窗体的Top值在原数值的基础上加88 Twip
End Sub
Private Sub Command4_Click() '单击按钮Command4的事件过程
  Form1.Top = Form1.Top - 88 'Form1窗体的Top值在原数值的基础上减88 Twip
End Sub
Private Sub Command5_Click()  '单击按钮Command5的事件过程
  Form1.WindowState = vbMinimized '设置窗体的WindowState属性为vbMinimized
End Sub
Private Sub Command6_Click()  '单击按钮Command6的事件过程
  Form1.WindowState = vbMaximized '设置窗体的WindowState属性为vbMaximized
End Sub
Private Sub Command7_Click()  '单击按钮Command7的事件过程
  Form1.WindowState = Normal  '设置窗体的WindowState属性为Normal
End Sub
Private Sub Command8_Click()  '单击按钮Command8的事件过程
End    '退出程序的运行
End Sub
其中,“'”号和Rem后面的文字是注释文字,程序不执行它们。Rem语句自成一行。