当前位置: 首页 » 中职教育 » 中职计算机 » VB标签使用练习

设计一个程序,当窗体被加载时标签显示“欢迎进入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考试系统!”上单击或双击,标签变化如图(二)所示。