private sub command1._click()
if command1.caption="单数" then
command1.caption="双数"
else
command1.caption="单数"
end if
end sub
if command1.caption="单数" then
command1.caption="双数"
else
command1.caption="单数"
end if
end sub
解决方案 »
- 任何地方创建对象都需要 Set obj = nothing 吗?
- 第一天看VB程序的比菜鸟还菜的问题。。。(急!)应该很简单。。50分!
- 金蝶k3二次开发bos 单据转换
- 扩充话题五个角,也散点分!
- 如何判断一个数是偶数?
- 请问为什么ClipBoard这样的对象就能直接用,而有些对象就得Set XXX=CreateObject("XXX")呢?
- 目前位置,有没有人知道怎么从VB打开本地连接 状态对话框啊?
- 我想保存桌面图象,可是不知为什么不能保存整个桌面呢?
- 如何将数据直接输出到打印端口?
- 我家里的车在辽宁营口出事了,谁有认识辽宁营口交通队、公安局的朋友请帮忙。或帮忙转发,谢谢各位了!
- 做个局域网查询系统,大家出个方案。
- 关于文件关联的问题
if cb_1.caption="单数" then
cb_1.caption="双数"
else
cb_1.caption="单数"
end if
Static bl As Boolean
If bl = False Then
Command1.Caption = "单数"
Else
Command1.Caption = "双数"
End If
bl = Not bl
End Sub