The funeral of Azeroth

vb 11.10 else

Private Sub Command1_Click()
Dim birthday As String
birthday = InputBox("输入生日", "birthday", "1987-07-20")
MsgBox "您的生日是" & birthday

End Sub

Private Sub Command1_Click()
Form1.FontBold = True
Print "这是粗体"
End Sub

Private Sub Command2_Click()
Form1.FontItalic = True
Form1.FontBold = False
Print "这是斜体"
End Sub

Private Sub Command3_Click()
Form1.FontUnderline = True
Form1.FontItalic = False
Print "这是带下划线的"

End Sub

Private Sub Command4_Click()
Form1.FontStrikethru = True
Form1.FontUnderline = False
Print "这是带删除线的"
End Sub

posted on 2010-11-10 16:59 Herose 阅读(96) 评论(0)  编辑  收藏