Question

vb中如何设置点击Command1后出现Command2,text1等等,而没点击不会出现

Answer 1

Private Sub Command1_Click()
   Text1.Visible = True
   Command2.Visible = True
End Sub
Private Sub Form_Load()
   Text1.Visible = False
   Command2.Visible = False
End Sub

追问

如何设置点击Command3后关于Command1的Command2，Text1消失，显示
Command4,text2，同样没点击不会出现

追答

Private Sub Command1_Click()
   Text1.Visible = True
   Command2.Visible = True
End Sub
Private Sub Command3_Click()
   Text1.Visible = False
   Text2.Visible = True
   Command2.Visible = False
   Command4.Visible = True
End Sub
Private Sub Form_Load()
   Text1.Visible = False
   Text2.Visible = False
   Command2.Visible = False
   Command4.Visible = False
   
End Sub