详细写下吧？
追答'假设a按钮是 Command1
'b按钮是 Command2
'方法1
Private Sub Command1_Click()
msgbox "你点击了按钮a“
End Sub
Private Sub Command2_Click()
msgbox "你点击了按钮b“
End Sub
'方法2
dim aa as string
Private Sub Command1_Click()
aa= "你点击了按钮a“
call aatxt
End Sub
Private Sub Command2_Click()
aa= "你点击了按钮b“
call aatxt
End Sub
Private Sub aatxt
msgbox aa
end sub
Private Sub Command1_Click()
'在这里输入按钮a被点击后执行的动作内容
End Sub
双击按钮b也是这样操作。
Private Sub Command2_Click()'这里Command后的数字代表那个按钮，对应的
'在这里输入按钮b被点击后执行的动作内容
End Sub追问
是要的if语句。要这样写：if 某个窗体上的command1被点击，那么会怎么样，if 某个窗体上的command2被点击，那么会怎么样。
追答你要的是主窗口 来判断子窗口的按钮是否被点击过吧？
在子窗口运用全局变量
在主窗口用时钟if循环判断，当子窗口的按钮被点击过后，更改变量。
主窗口循环判断变量不是默认值后执行你想做的动作。
举个例子好吧
本回答被提问者采纳vb按钮如何点击第一次触发(1)事件,点击第二次触发(2)事件?
加一个全局变量a，单击一次累加1(在最上面定义dim a as long)单击事件里加入以下 a=a+1 if a mod 2 =0 then (2)事件 else (1)事件 end if
VB 如何实现按一个键产生一个变量,另外一个按钮检测到这个变量并产生响...
写个类 clsTest event IDChanged event IDChanging(OldID as integer,NewID as integer)dim varID as integer property get ID() as integer id = varID end property property let ID(v As integer)if varid <> V then raiseevent IDChaging(varid,v)varid=v raiseevent IDChaged endif end...
vb.net 中单击button一次是一个事件再次点击又是另一个事件的代码是
EventArgs) Handles Button1.Click i = i + 1 If i = 1 Then MsgBox("我是代码一") ElseIf i = 2 Then MsgBox("我是代码二" & Now) Else MsgBox("我是其他") End If End Sub
vb6.0 怎样表示按钮被按过,是用在IF语句中,如果一个按钮被按过,就跳出...
可以用一个全局变量（给个默认值）来记录，当点击按钮后。变量记录一个值，然后根据这个值判断一个按钮是否被点击过。
VB如何实现A按钮(1)至少执行一次,才能执行B按钮(2)
设置一个程序集或全局变量如C，类型为逻辑型。默认值为false。在B按钮单击的代码是加一个判断语句，如果C为真则执行后面代码，如果C为假，则不执行。在A按钮单击的代码里加一条语句：C=true 即可。即当C被单击后，C的值为真。Dim C As BooleanPrivate Sub Command1_Click() C = True '增加...
...我想让程序点击按钮后暂停,再点一下继续执行,有谁知道该怎样写?_百 ...
在你的程序你面设置一个参数ZANTING，如果按钮1点击，则ZANTING=1，程序进入死循环，如果按钮2点击，则ZANTING=0，程序跳出死循环 代码如下：在你的程序里面写如下代码：waitdone2:If ZANTING = 1 Then System.Threading.Thread.Sleep(100)GoTo waitdone2 End If If ZANTING = 0 Then GoTo NEXT...
vb 点击一个button运行一个无限循环,点击另一个button使循环终止...
Option Explicit Dim i Dim flag As BooleanPrivate Sub Command1_Click() For i = 1 To 10000000000000# i = i + 1 Text1 = i DoEvents If flag Then Debug.Print flag Exit For Else End If NextEnd SubPrivate Sub Command2_Click() flag = Tr...
关于vb中的if语句的问题 比如:如果按a键则返回假值该怎么写
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 97 Then KeyAscii = 98 End If End Sub 这样输入a会显示b
VB函数if怎么用?
语句组 End If 当 <条件>的值为True，执行“语句组”，否则就不执行“语句组”。if语句的一种格式如下：例1：x = 100 If x >5 Then '这里你要理解因为x=100，所以对于 x >5的判断结果为True Print "Ok"End If 这个代码结果，输出"Ok"。以上代码就是：“如果x大于5，就输出OK”例2：x...
VB中点击一个按钮程序运行,如何弹出个显示个消息框提示正在运行,再点 ...
你是想弹出无数个提示框，点击另外一个按钮就让它停止弹出对话框对不对？很简单啊，你在循环的时候加入一个判断条件就可以了（对不对？）条件满足才循环，条件一旦不满足就不循环就是了。把你的程序改成如下：Dim Switch as Boolean '这条很重要,定义一个全局变量,作用就是判断.Private Sub Form...
