VB高手来.

2024-12-29 17:56:32
推荐回答(2个)
回答1:

Private Sub Command1_Click()
Text1.Visible = False
End Sub

Private Sub Command2_Click()
Text1.Visible = True
End Sub

Private Sub Form_Load()
Text1.Font.Size = 16
Command1.Caption = "隐藏文本框"
Command2.Caption = "显示文本框"
End Sub

回答2:

Private Sub Form_Load()
Command1.Caption = "隐藏文本框"
Command2.Caption = "显示文本框"
End Sub

Private Sub Command1_Click()
Text1.Visible = False
End Sub

Private Sub Command2_Click()
Text1.Visible = True
Text1.Text = "VB程序设计"
Text1.FontSize = 16

End Sub