VB的一些代码

来源：百度知道 编辑：UC知道 时间：2024/06/25 20:42:02
能帮我解释一下这些代码吗 谢谢你
Private Sub Command4_Click()
Dim m As Integer
Label2.Visible = True
Label3.Visible = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Text1.Visible = False
Text2.Visible = True
Text3.Visible = True
Label1.Visible = False
Command4.Enabled = False
Command2.Enabled = False
Command3.Enabled = False

End Sub

Private Sub Form_Load()
Command2.Enabled = False
Command3.Enabled = False
Label1.Visible = True
Text1.Visible = False
Label2.Visible = False
Label3.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Text2.Visible = False
Text3.Visible = False
End Sub

Private Sub Option1_Click()
Dim m As Integer
If Option1.Value = True Then
For m = 1 To 66
If sname(m) = Text2.Text Then
Text3.Text = kch(m) & &q

Private Sub Command4_Click()
Dim m As Integer
Label2.Visible = True'下面那些是要能看见或者要看不见的
Label3.Visible = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Text1.Visible = False
Text2.Visible = True
Text3.Visible = True
Label1.Visible = False
Command4.Enabled = False'下面是变成灰色的（不能用）
Command2.Enabled = False
Command3.Enabled = False

End Sub

Private Sub Form_Load()
Command2.Enabled = False'下面俩是不能用的
Command3.Enabled = False
Label1.Visible = True'下面是要看得见或者看不见的
Text1.Visible = False
Label2.Visible = False
Label3.Visible = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Text2.Visible = False
Text3.Visible = False
End Sub

Private Sub Option1_Click()
Dim m As Integer
If Option1.Value = True Then'第一个单选按钮被选中
For m = 1 To 66