Question

vb 如何一个变量在多个控件使用

Private Sub Command1_Click()
Dim mo As Integer
mo = Val(Text1.Text) + Val(Text2.Text) '按钮1下面定义了一次变量(通过计算得来的)
Label1.Caption = mo / 5
End Sub

Private Sub Command2_Click()
Dim mo As Integer
mo = Val(Text1.Text) + Val(Text2.Text) '按钮2下面又定义了一次变量(通过计算得来的)
Label1.Caption = mo / 7
End Sub

这样的话如果有多个控件都要用到MO这个变量,那每次都要定义且计算一次,很麻烦,如何才能定一次就可以用在多个控件里呀(注意:这个MO的变量是可变的,因为它是随着text1 和 text2而变化,我不想每个控件里都计算一次MO)

Answer 1

在窗体模块（代码编辑器显示“通用”字样）或标准模块里声明它为全局变量。
Option Explicit
Dim mo As Integer '在这里声明

Private Sub Command1_Click()
mo = Val(Text1.Text) + Val(Text2.Text) '按钮1下面定义了一次变量(通过计算得来的)
Label1.Caption = mo / 5
End Sub
Private Sub Command2_Click()
mo = Val(Text1.Text) + Val(Text2.Text) '按钮2下面又定义了一次变量(通过计算得来的)
Label1.Caption = mo / 7
End Sub

Answer 2

Dim mo As Integer '全局的

Private Sub Text1_Change() 'Text内容改变时从新计算
mo = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Text2_Change()
Call Text1_Change
End Sub

Private Sub Command1_Click()
Label1.Caption = mo / 5
End Sub
Private Sub Command2_Click()
Label1.Caption = mo / 7
End Sub