VB设计题,,求教
(2)双击时清除窗体中文字。
2. 在上题的窗体中继续添加下图功能,要求完成以下功能:
(1)初次运行时,标签文字“Hello”不显示,“显示”按钮可用,“隐藏”按钮不可用,标题设为"单击“显示”按钮显示文字",如图2所示。
(2)单击“显示”按钮后,“Hello”标签显示,“显示”按钮不可用,“隐藏”按钮可用,标题设为"单击“隐藏”按钮隐藏文字",如图3所示。
(3)单击”隐藏“按钮后,”Hello“标签不显示,”显示“按钮可用,”隐藏“按钮不可用,标题设为"单击“显示”按钮显示文字",如图2所示。
求12题衔接的详细步骤 展开
Option Explicit
Private Sub Command1_Click()
Label2.Caption = "Hello"
Command1.Enabled = False
Command2.Enabled = True
Me.Caption = "单击“隐藏”按钮隐藏文字"
End Sub
Private Sub Command2_Click()
Label2.Caption = ""
Command1.Enabled = True
Command2.Enabled = False
Me.Caption = "单击“显示”按钮显示文字"
End Sub
Private Sub Form_Click()
Label1.FontName = "新宋体"
Label1.FontSize = 15
Label1.ForeColor = RGB(255, 0, 0)
Label1.Caption = "Visual Basic 程序设计"
Me.Caption = "VB程序1"
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Command2.Enabled = False
Me.Caption = "单击“显示”按钮显示文字"
End Sub
广告 您可能关注的内容 |