www.ctrt.net > vB怎样判断按钮是否被点击过

vB怎样判断按钮是否被点击过

在工程中添加一个模块Module1,在模块中定义一个全局变量,如:public a as Boolean ,这样将窗体2中的Command1_Click()事件中给a赋值,然后在窗体1的timer_timer事件里判断a的值就可以了。

这个问题比较容易解决。控件数组中辨别控件的唯一属性是index属性,问题的入手点也就在这里。 比如: private sub command1_click(index as integer) print command1(index).caption end sub 这时你单击了控件数组中的某一个按钮,窗体上就会打...

这个好办,先在通用部分定义一个全局变量,如add为布尔型,添加一个Timer控件,在Command按钮的MouseDown事件中设add的值为TRUE,激活Timer控件在Command按钮的MouseUp事件中设add的值为FALSE,在Timer控件的Timer事件中判断add的值,如果为TRUE...

Option Explicit Dim flag As boolean '用布尔型较方便。 Private Sub Command1_Click() If flag = false Then MsgBox "no use" flag = true Else MsgBox "used" End If End Sub Private Sub Form_Load() flag = false End Sub

1、可以在form_unload事件里进行判断。 2、在 form_unload 事件 写下如下代码可以防止窗口被关闭,又能检测的窗口关闭按钮是否被点击。

Private Sub Command1_Click() MsgBox "123" Command2_Click End Sub Private Sub Command2_Click() Me.Caption = "1111111" End Sub

定义一个全局变量“F”(boolean)用来记录按钮是否被按过 在form的load事件里赋值F=false 在command的click事件里赋值F=true 这样在需要的时候只要参看一下F的值就可以确定按钮是否被按过了(false则没按过,true则按过了) 希望对你有帮助~

你好, 只需要判断Checkbox的Value是否为1即可。 Private Sub Command1_Click() If Checkbox1.Value = 1 Then Msgbox "Checked" End If End Sub

Private Sub Command1_Click() Dim i As Integer i = MsgBox("现在打开百度", vbYesNo, "提示") If i = vbYes Then Text1.Text = 100 If i = vbNo Then Text1.Text = 200 End Sub

定义一个全局的布尔类型的变量,保存状态,按钮点击后修改这个变量,第二个按钮点击时候,判断变量是否被改变了。 比如像下面这样 Dim flag As Boolean Private Sub Command1_Click() flag = True End Sub Private Sub Command2_Click() If flag...

网站地图

All rights reserved Powered by www.ctrt.net

copyright ©right 2010-2021。
www.ctrt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com