设计一个程序,当窗体被加载时标签显示“欢迎进入VB考试系统!”;当用鼠标单击该标签时,由标签输出“祝您成功!”;当用鼠标双击标签时,结束程序的运行。
步骤1 建立一个标准工程,并设置窗体的“Caption”属性值为“标签使用练习”。
步骤2 双击工具箱中的控件按钮 ,在窗体中添加一个标签控件,并设置其“Caption”属性值为空,“AutoSize”属性值为“True”,“Alignment”属性值为“2-Center”。
步骤3 双击Form1窗体的空白处,打开代码窗口,然后编写如下程序代码。
Private Sub Form_Load()
Label1.Caption = "欢迎进入VB考试系统!" '窗体被加载时显示标签文本
Label1.FontSize = 15 '字体大小为15号
End Sub
'鼠标单击该标签时,输出“祝您成功!”
Private Sub Label1_Click()
Label1.Caption = "祝您成功!" '标签显示文本
Label1.Font = "隶书" '字体类型为隶书
Label1.FontSize = 15 '字体大小为15号
Label1.ForeColor = &HFF& '字体颜色为红色
End Sub
'鼠标双击该标签时,输出“感谢使用本系统!”
Private Sub Label1_DblClick()
Label1.Caption = "感谢使用本系统!" '标签显示文本
Label1.Font = "微软雅黑" '字体类型为微软雅黑
Label1.FontSize = 15 '字体大小为15号
Label1.BorderStyle =1 '为标签添加边框
End Sub
步骤4 单击“标准”工具栏中的“保存工程”按钮 ,保存窗体文件和工程文件。
步骤5 按【F5】键运行程序,运行结果如图(一)所示。在标签文本“欢迎进入VB考试系统!”上单击或双击,标签变化如图(二)所示。