vb的全局变量,为什么我总是不成功?

来源:百度知道 编辑:UC知道 时间:2024/06/08 06:02:41
form1:
通用声明:Public a As String
Private Sub Command1_Click()
Form2.Visible = True
If Text1.Text = 0 Then a = "ok":
If Text1.Text <> 0 Then a = "not"

End Sub

form2:
Private Sub Form_Click()
Print b
End Sub

Private Sub Form_Load()
b = Form1.a
End Sub
为什么我点了form2没有显示,还有为什么我form1里面if写完了不用写end if?反而写了运行不了?

我又添加了一个模块
Public a As String

form1:
Private Sub Command1_Click()
Form2.Visible = True
If Text1.Text = 0 Then a = "ok":
If Text1.Text <> 0 Then a = "not"

End Sub

form2:
Private Sub Form_Click()
Print b
End Sub

Private Sub Form_Load()
b = a
End Sub
还是点了form2没反应?

Form2.Visible = True 这一句太早,也就是执行这句之前 Form1.a 尚未赋值。挪到赋值语句之后执行该就行了。If 单行模式不需要 EndIf

试一下不用A到Z大小写字母,比如用AA

发给