7,789
社区成员
发帖
与我相关
我的任务
分享vb module模块中的定义问题
就是我在运行程序的时候，查找的时候吧，从另一个窗口传回来一个值，然后进行修改，运用的是模块中的变量，但是没效果，我没有详细地学过模块中如何定义的，测试过了好像应该就是数据没传过来我是这样定义的public a as variant，谢谢大家了~
...全文
请发表友善的回复…
发表回复
chinaboyzyq 2010-05-21
- 打赏
- 举报
工程--添加模块（添加Module1）
在Module1里添加如下代码：
Option Explicit
Public a As Variant
在form1里添加如下代码：
Private Sub Command1_Click()
MsgBox a
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
在from2里添加如下代码：
Option Explicit
Private Sub Command1_Click()
a = 5
End Sub
运行程序进行测试.
在Module1里添加如下代码：
Option Explicit
Public a As Variant
在form1里添加如下代码：
Private Sub Command1_Click()
MsgBox a
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
在from2里添加如下代码：
Option Explicit
Private Sub Command1_Click()
a = 5
End Sub
运行程序进行测试.
jabulin 2010-05-21
- 打赏
- 举报
看起来没问题啊，LZ调试一下代码，看看你在给公用变量赋值的时候是否正常，我想问题可能出在赋值上面
