17267.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行
HTML
23 行
<html> <head> <title>Re: 怎样写才可以使电脑知道(command)已经被人按过?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 怎样写才可以使电脑知道(command)已经被人按过?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:stupis@ms5.url.com.tw">小瓜瓜</a> on August 15, 1999 at 00:00:04:<p>In Reply to: <a href="17258.html">Re: 怎样写才可以使电脑知道(command)已经被人按过?</a> posted by j on August 14, 1999 at 19:44:52:<p>: : 如题<p>: 小弟的做法是宣告一个公用变数来判断<p>: Dim a As Boolean<p>: Private Sub Command1_Click()<br>: If a = False Then<br>: a = True<br>: MsgBox "没有被人按过"<br>: Else<br>: MsgBox "有被人按过"<br>: End If<br>: End Sub<p>善用Tag属性<br> Private Sub Command1_Click()<p> If Command1.Tag = "" Then<br> Command1.Tag = "1"<br> Else<br> MsgBox "有被人按过"<br> End If<p> End Sub<p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17267--></ul><!--end: 17267--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?