标签：VB 15 Sub 标签 杨亦涛 窗体 Label1 双击

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

标签：VB,15,Sub,标签,杨亦涛,窗体,Label1,双击
来源： https://blog.51cto.com/yangsir0576/2884637

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。