The funeral of Azeroth

vb11.10

Form1.Width = Form1.Width + 100
Form1.Height = Form1.Height +100

每次Click 窗体,工程的高度和宽度就会增加100

Private Sub Form Click()
Form1.Print "这是一种喜爱"
End Sub


Private Sub Form_Load()
Form1.FontBold=True             "粗"
Form1.FontItalic=True             "斜"
Form1.FontUnderline=true       "下划线"

End sub

posted on 2010-11-10 14:47 Herose 阅读(84) 评论(0)  编辑  收藏