VB用户双击窗体,清除窗体上的所有内容

显示全部楼层 · 2009-6-6 14:59:29

涉及应用程序，要求程序运行时，当用户单击窗体，在窗体上显示“Visual Basic程序设计教程”，要求字体类型为楷体，字体大小为24磅，字形为粗斜体并且文字下具有下划线，如图3所示；当用户双击窗体，清除窗体上的所有内容。

千问 · 2009-6-6 14:59:29

编一个窗体单击Click事件和窗体双击DblClick事件就可以了。刚开始制作一个Label框，里面输入文字“Visual Basic程序设计教程”，然后在窗体加载中编辑Label1.Visible=False，Label1.Font = "楷体_GB2312",Label1.Font.size = "24";再编单击事件，Label1.Visible=True；再编双击事件，Label1.visible=False，就搞定了。...

千问 · 2009-6-6 14:59:29

Private Sub Form_Click()
With Me
.Font = "楷体_GB2312"
.FontSize = 24
.FontItalic = True
.FontBold = True
.FontUnderline = True
End With
Print...

千问 · 2009-6-6 14:59:29

Private Sub Form_Click()Form1.ClsPrint "Visual Basic程序设计教程"End SubPrivate Sub Form_DblClick()Form1.ClsEnd SubPrivate Sub Form_Load()Form1.FontSize = 24Form1.F...