‘每个按扭设置一个布尔变量flag,主窗体里检测这些flag就可以了 ’eg. ''''''''''''' boolean flag1,flag2....... test_fun() ........ if flag1=true then ... else ... if flag2=ture then ... else ... '''''''''''''''''' sub command1_click() flag1=not flag1 end sub'''' and so on ...........
'Code of Form1: Dim iButtonClicked As IntegerSub Command1_Click() iButtonClicked = 1; End SubSub Command2_Click() iButtonClicked = 2; End SubSub Command3_Click() iButtonClicked = 3; End Sub'Code in frmMain: Form1.iButtonClicked
’eg.
'''''''''''''
boolean flag1,flag2.......
test_fun()
........
if flag1=true then ...
else ...
if flag2=ture then ...
else ...
''''''''''''''''''
sub command1_click()
flag1=not flag1
end sub'''' and so on ...........
Dim iButtonClicked As IntegerSub Command1_Click()
iButtonClicked = 1;
End SubSub Command2_Click()
iButtonClicked = 2;
End SubSub Command3_Click()
iButtonClicked = 3;
End Sub'Code in frmMain:
Form1.iButtonClicked