www.whkt.net > vB 如何实现CommAnD1两次点击,依次出现不同结果

vB 如何实现CommAnD1两次点击,依次出现不同结果

双击控件然后输入代码肯定没有问题 或代码贴出来看看 此代码在我电脑上运行没问题.可能性有:1.你的vb有问题,2.你的网络有问题(比如,你点击后网络还没反应过来,你又按enter,这时才反应过来),3.其他原因.代码贴出来看看 用web控件显示页面 也是需要时间下载完页面文件再慢慢显示出来 代码是没问题的 有问题的估计就是你网速了

定义全局变量s text_changed事件中s=text.text commond_click事件中 p=p+1 if(p..else msgbox""

Dim a As Integer '在通用这里声明Private Sub Command1_Click()If (a = 0) ThenText1 = "1"a = 1ElseText1 = "11"a = 0End IfEnd Sub

在单击事件里声明一个静态变量.static clicknum as integer '默认初始值是0 clicknum=clicknum+1 if(clicknum mod 2=1) then '奇数次 form1.clear else ' 偶数次 end end if

你应该用两个按钮来实现,把其中一个设置为不可见就可以了.

'方法一使用循环过程:Private Sub Form_Click() '点击窗口事件 Static a As Integer '静态变量 a = a + 1 'a累加一 For i = 1 To a '循环过程打印a个* Print "*"; Next Print '换行End Sub'方法二使用String函数:Private Sub Form_Click() '点击窗口事件 Static a As Integer '静态变量 a = a + 1 'a累加一 Print String(a, "*") '窗口打印a个*符号End Sub'请参考采纳.

Private Sub Command1_Click()Dim Chick As IntegerRandomizeChick = Int(Rnd * 2 + 1)If Chick - 1 Then MsgBox "123"Else MsgBox "321

Private Sub Command1_Click() Dim a As Integer Randomize a = Int(Rnd() * 10) Select Case a Case 0: MsgBox "0" Case 1: MsgBox "1" Case 2: MsgBox "2" Case 3: MsgBox "3" Case 4: MsgBox "4" Case 5: MsgBox "5" Case 6: MsgBox "6" Case 7: MsgBox "7" Case 8: MsgBox "8" Case 9: MsgBox "9" Case 10: MsgBox "10" End Select End Sub

如果是每天也就是中间可能关闭程序的话,那需要把你单击的次数(或者上一次单击后显示文字位置)记到一个文件里,这样就可以实现你说的功能了!按钮事件里就是把上次的单击位置加1 然后用mid("你的全部文字",上次的单击位置加1,1)函数显示本次文字,然后记下本次位置到文件中

private sub label1_click() static Flag as boolenflag=not(falg)if flag=true the '事件1else then'事件2end ifend sub

相关搜索:

网站地图

All rights reserved Powered by www.whkt.net

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