Question

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

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

Answer 1

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

Answer 2

Private Sub Form_Click()
With Me
.Font = "楷体_GB2312"
.FontSize = 24
.FontItalic = True
.FontBold = True
.FontUnderline = True
End With
Print "Visual Basic程序设计教程"

End Sub

Private Sub Form_DblClick()
Me.Cls
End Sub

很简单的...看得懂吧.
主要是先设置窗体上字体的属性，让他们具有粗斜体和下划线等属性
然后再在窗体上打印出来...

Answer 3

Private Sub Form_Click()
Form1.Cls
Print "Visual Basic程序设计教程"
End Sub

Private Sub Form_DblClick()
Form1.Cls
End Sub

Private Sub Form_Load()
Form1.FontSize = 24
Form1.FontItalic = True
Form1.FontUnderline = True
Form1.Font = "楷体_GB2312"
End Sub