VB程序题：设计一个如图G.6和图G.7所示的菜单系统，并为菜单项编写有关的程序代码。龚沛曾

VB程序题：设计一个如图G.6和图G.7所示的菜单系统，并为菜单项编写有关的程序代码。

G.6图：

G.7图：

解题，如上图所示，建立好菜单，画好一个文本框控件。相关的代码如下：

Private Sub bold_Click()
    Text1.FontBold = Not Text1.FontBold
    bold.Checked = Not bold.Checked
End Sub

Private Sub del_Click()
    Text1 = ""
End Sub

Private Sub end_Click()
    End
End Sub

Private Sub font12_Click()
    Text1.FontSize = 12
End Sub

Private Sub font16_Click()
    Text1.FontSize = 16
End Sub

Private Sub Form_Load()
    bold.Checked = False
    italic.Checked = False
End Sub

Private Sub italic_Click()
    Text1.FontItalic = Not Text1.FontItalic
    italic.Checked = Not italic.Checked
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/104.html