在VB中,怎样做才能使按钮单击一次,按钮名称显示为A,再单击显示B,如此在A,B间循环?请各位高手指点...

作者&投稿:宫骨 (若有异议请与网页底部的电邮联系)
VB按钮 点击一下为1 再次点击为0 再点击为1 如此循环 怎么实现~

Private Sub Command1_Click()
If Command1.Caption = "1" Then
Command1.Caption = "0"
Else
Command1.Caption = "1"
End If
End Sub
以上可以实现你的要求!如再有疑问,请追问!

F2和F3是全局热键吗?不是的话,就非常简单了。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub form1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 113 '表示按下F2

Timer1.Enabled = True

Case 114

Timer1.Enabled = False '按下F3

End Select


End Sub

Private Sub Timer1_Timer()

SendKeys "{F8}"
Sleep 500
SendKeys "1"
Sleep 500
SendKeys "{ENTER}"
End Sub

如果是全局热键,稍微麻烦点,不过我这里也有现成的代码。你加我百度HI我传给你.

楼上搞错了好像,应该把事件写在Command的Click()事件里面
Private Sub Command1_Click()
If Command1.Caption = "A" Then
Command1.Caption = "B"
ElseIf Command1.Caption = "B" Then
Command1.Caption = "A"
Else
Command1.Caption = "A"
End If
End Sub

'放置一个按钮,把按钮的名称改为command1
Private Sub Command1_Click()
If Command1.Caption = "A" Then
Command1.Caption = "B"
Else
Command1.Caption = "A"
End if
end sub

在button1_click事件写:

if button1.caption="A" Then
button1.caption="B"
else
button1.caption="A"
end if

Private Sub Form_Load()
If Command1.Caption = "A" Then
Command1.Caption = "B"
ElseIf Command1.Caption = "B" Then
Command1.Caption = "A"
Else
Command1.Caption = "A"
End If
End Sub


VB该怎么才能学好?
5、根据自己的方向挑选高级教程的书籍,多跟人交流,分析分析别人的程序如何实现。尝试自己编写类似的,分析有哪些是能改进的。我自己的经验差不多如此,我大学不是学计算机的,可以说毕业后完全自学vb,有段时间为了写串口程序,晚上搞通宵,后来我发现有压力才有动力。虽然我现在不算高手,但是早已不是...

VB要怎么学才算是精通呢?
接下来你可以熟悉一下VB企业版提供的那么多控件的应用了,VB提供的控件很多,你最好逐个参考MSDN做有一些小程序试一下,不必记住所有控件的接口,但你要知道以后用到的时候怎么查资料。数据库开发是VB中很重要的一块,你不能错过,建议刚开始的可以使用ADO控件编写一些小程序,但如果熟悉了之后最好使用...

VB制作可以编辑的表格,怎么才能做到呢(在线等!)
但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。三、 VB与EXCEL的相互勾通:充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:...

在VB中的一些控件,要怎么做才能随着窗口的变化而变化呢,谢谢各位高手帮 ...
在窗体的 Private Sub Form_Resize() '窗体的大小改变事件 End Sub 里写代码 设置控件相对FORM的TOP跟LET,如 Private Sub Form_Resize() '窗体的大小改变事件 command1.top=form1.top+100 command1.left=form1.left+100 End Sub

VB中怎么加入一个标签
1、首先我们新建一个工程,并新建一个标准Exe工程。2、这时候我们找到工具箱中标签框。3、这时候我们可以直接双击控件即可成功绘制。4、或者我们可以选中他,然后在页面上绘制。5、如果对它的外观不满意,我们在属性窗口中修改。6、双击控件即可进入代码窗口。完成效果图。

在vb中,怎样做才能将webbrowser 控件的滚动条去掉?
下面的代码很全面。可以参考一下。 Dim WithEvents M_Dom As HTMLDocument '禁止用户在“WebBrowser”控件中使用鼠标右键 Private Function M_Dom_oncontextmenu() As Boolean '#禁止用户在“WebBrowser”控件中使用鼠标右键 M_Dom_oncontextmenu = False '# End Function '# Private ...

VB中,如何做到关闭程序后变量的值仍然保留?
可以把这个值写入注册表,文档或数据库。程序关闭后,变量肯定会被清空的

请问题在vb中我如何才能够做到点一下command按钮发生一个事件,再点一...
Private Sub timer1_Click()timer1.enable=not timer1.enable If timer1.enable=true then ...Else timer1.enable=false End If End Sub 这样点击一次go,再点stop,再点go...哥们,记得给分阿。

VB如何才能做进入游戏才可以用
Set ret = ListView1.ListItems.Add(, "first" & CStr(i), exename) '将进程名添加到第一项中 ListView1.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID '将进程ID添加到第二项中 i = i + 1 theloop = ProcessNext(snap, proc)Wend CloseHandle snap '关闭进程“...

如何编写高质量的VB代码
这样做的原因是因为只有在模块中的函数或变量被调用时,VB才将模块加载到内存中;当VB应用程序退出时,才会从内存中卸载这些模块。如果代码中只有一个模块,VB就只会进行一次加载操作,这样代码的效率就得到了提高;反之如果代码中有多个模块,VB会进行多次加载操作,代码的效率会降低。17. 使用对象数组当设计用户界面时,...

伊吾县19337486986: 在VB中,怎样做才能使按钮单击一次,按钮名称显示为A,再单击显示B,如此在A,B间循环?请各位高手指点... -
方士爱捷: Private Sub Form_Load() If Command1.Caption = "A" Then Command1.Caption = "B" ElseIf Command1.Caption = "B" Then Command1.Caption = "A" Else Command1.Caption = "A" End If End Sub

伊吾县19337486986: VB如何实现按钮只单击一次就消失不再显示 -
方士爱捷: Private Sub Command1_Click() Command1.Visible = False End Sub

伊吾县19337486986: 怎么在VB中编程:如果单击一次命令按钮则记录一次 -
方士爱捷: 声明全局变量(代码页最顶输入) Dim count as long 双击窗体,在窗体载入时间中输入 Private Sub Form1_Load() count = 0 End Sub 双击命令按钮,转到命令按钮事件 Private Sub Command1_Click() count = count + 1 End Sub

伊吾县19337486986: 怎样在VB中实现敲回车键执行单击一个按钮的功能? -
方士爱捷: 根据你这个窗体,觉得这样设置就可以实现你要的功能. 将 确定键 的 default 设置为 true 这样就可以了.当你在text里输入内容后直接按回车.即执行了确定按钮.

伊吾县19337486986: VB中的按钮控件,怎么实现单击一下,按钮保持按下状态,再按一下,再抬起? -
方士爱捷: 按钮控件无法实现像您说的那样 可以用Check控件来代替 将其Style属性设置为1-Graphical 外形就和按钮一样了按钮控件和Check控件都有picture这个属性 通过它可以在上面加图片

伊吾县19337486986: VB怎样使按钮在一天之内只能点击一次?
方士爱捷: 也不算太难啦 Private Sub Command1_Click() If Command1.Tag = Date Then MsgBox "你今天已经按过了" Exit Sub Else Command1.Tag = Date MsgBox "今天第一次按" End If End Sub 不过这个程序的缺点是,如果关闭程序再开的话还是能按这个键,如果你想实现无论如何一天都只能按一次的话,建议还是用一个文档保存按键信息.

伊吾县19337486986: VB中如何单击一次按钮发送一次数据,否则按照内置程序发送!单击一次发送一次,谢谢 -
方士爱捷: 放置一个timer(触发时间你自己定义).然后把事件写在timer的执行中.在放置一个按键,当按键按下当等于1时按照得到的按键去发送数据 当没按,也就是0时,按照预设值发送.

伊吾县19337486986: VB 中 怎么设置 单击事件啊 -
方士爱捷: 那要看是设置什么控件了,有的控件是在设计窗体界面时双击控件后,就可以在代码窗体中自动添加了该控件的单击事件,如 按钮控件;有的控件自动添加的不是单击事件,如 文本控件,它添加的是 Change() 事件;而有的控件没有单击事...

伊吾县19337486986: vb中,我想实现单击一次按钮标签显示1,单击第二次显示2 -
方士爱捷: Private Sub Command1_Click() Static N As Integer N = N + 1 Label1.Caption = NEnd Sub

伊吾县19337486986: 如何在vb窗体设计中设置单击按钮事件过程 -
方士爱捷: VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值.Option ExplicitPrivate Sub Command1_Click() Form2.Text1 = Me.Text1End SubPrivate Sub Command2_Click() Form2.ShowEnd SubPrivate Sub Form_Load() Text1 = "VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值."End Sub

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网