急求一段简单的VB编程代码

来源：百度知道 编辑：UC知道 时间：2024/07/01 07:41:27
.单击窗体时，在窗体上输出文字“当前字体：宋体，当前字号:18”
其中字体和大小为窗体的当前输出值
.双击窗体时,显示信息被清除
Private Sub Form_Click()
Print "当前字体:"; "宋体"; ",当前字号:"; "18"
End Sub

Private Sub Form_DbClick()
Form.Cls
End Sub

暂且编的是这样，但是双击以后窗体总是清除不了，重点就是这个。谢谢了T T

Private Sub Form_Click()
Me.Print "当前字体:" & Me.Font.Name
Me.Print "字号:" & Me.Font.Size
End Sub

Private Sub Form_DblClick()
Me.Cls
End Sub

Private Sub Form_Click()
Print "当前字体:" & Me.Font & vbCrLf & 当前字号:" & Me.FontSize
End Sub

Private Sub Form_DblClick()
Cls
End Sub

因为双击窗体的时候还是要触发CLICK事件，所以效果是先print再清楚，不知道怎么改

在单击中输入下列代码：
print me.fontsize
print me.font
在又击中输入
me.cls
由于我这里没有VB测试，可能在语法上有小问题。但是答案是差不多的。少数语法到VB中你应该自己会更正的。