1．5 创建VB程序示例
实例名称：VB欢迎你！
1．创建程序的用户界面
2．设置界面上各个对象的属性
|
控件 |
属性 |
设置值 |
|
Option1 |
Caption |
上课 |
|
Option2 |
Caption |
复习 |
| |
BackColor |
&H00C0E0FF& |
| |
Forecolor |
&H00FF0000& |
| |
Font |
宋体 小四 |
|
Label1 |
Caption |
欢迎你学习VB！！ |
| |
Forecolor |
&H000000FF& |
| |
Font |
隶书、二号 |
| |
AutoSize |
True （自动调整外框大小） |
| |
BackStyle |
0-Transparent ( 透明) |
|
Command1 |
Caption |
学习之道 |
3． 编写对象响应事件的程序代码
双击各对象，在相应的代码窗口里输入需要的代码。
|
事件名称 |
过程代码 |
|
命令按钮的单击事件 |
Private Sub Command1_Click()
Option1.Visible = True
Option2.Visible = True
Label1.ForeColor = RGB(0, 0, 255)
Label1.Caption = " ？ ？ ？"
End Sub |
|
窗体的单击事件 |
Private Sub Form_Click()
Form1.Picture = LoadPicture("d:\sj\abc.jpg")
Option1.Visible = False
Option2.Visible = False
Label1.ForeColor = RGB(255, 0, 0)
Label1.Caption = "预祝大家成功，干杯！"
End Sub |
|
窗体的双击事件 |
Private Sub Form_DblClick()
Form1.Picture = LoadPicture("")
Label1.Caption = " 欢迎你学习VB！！"
End Sub |
|
选项按钮1的单击事件 |
Private Sub Option1_Click()
Label1.Caption = "看清楚 听明白 记下来"
End Sub |
|
选项按钮2的单击事件 |
Private Sub Option2_Click()
Label1.Caption = "多上机 勤思考 善提问"
End Sub |
4．保存工程
（1）从文件菜单中选择保存窗体，将窗体保存成vbwelcomeyou . frm
（2）从文件菜单中选择保存工程，将工程保存成vbwelcomeyou . vbp
5．测试应用程序，排除错误
根据设想的效果调试程序，直到满足要求为止。
6．创建可执行程序
从文件菜单中选择 生成vbwelcomeyou . exe ，既可生成一个可执行文件。
注意：设计中遇到问题可以查阅MSDN的帮助文件。
