应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 新手请问下面一段代码什么意思，详细点
91/1返回列表
查看: 1428  |  回复: 8
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

guitar吧

新虫 (初入文坛)

[求助] 新手请问下面一段代码什么意思，详细点已有3人参与

Private Sub cmdPause_Click()
    If pauseFlag = 0 Then
        timerFlag = 0
        Timer1.Enabled = False
        pauseFlag = 1
        cmdPause.Caption = "Continue..."
    Else
        timerFlag = 1
        pauseFlag = 0
        Timer1.Enabled = True
        cmdPause.Caption = "Pause"
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2015-07-08 10:23:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anjing1230

铜虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
就是对按钮的控制啊、
赞一下(1人) 回复此楼
每一天都要学习
2楼2015-07-08 10:54:56
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
guitar吧: 金币+5, ★★★★★最佳答案, 太感谢了 2015-07-11 23:17:54
If pauseFlag = 0 Then
        timerFlag = 0
        Timer1.Enabled = False ‘’’’’’’’’timer1 控件 不起作用
        pauseFlag = 1
        cmdPause.Caption = "Continue..."  ’’’’’’’’ 按钮的显示名称 变成 continue
    Else
        timerFlag = 1
        pauseFlag = 0   
        Timer1.Enabled = True  ’’’’’’’’  timer1 控件 起作用
        cmdPause.Caption = "Pause"   ’’’’’’’’ 按钮的显示名称 变成  pause
---------------------
timerFlag ，pauseFlag  应该是两个逻辑变量，用于记录timer控件 和 是否暂停 的状态。
赞一下(3人) 回复此楼
3楼2015-07-08 13:48:23
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木虫pursuer

木虫 (正式写手)
只学过c语言的路过，帮顶了

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
努力提高自己，努力再努力
4楼2015-07-08 23:44:53
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhouxiaochun

铁杆木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
vb6代码，单击按钮时，如果timer起作用，启动timer，单击完按钮后，按钮上的文字变为pause，否则，timer停止，同时按钮上的文字变为continue
赞一下(3人) 回复此楼
5楼2015-07-09 20:37:44
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guitar吧

新虫 (初入文坛)
谢谢大家的回复
回复此楼
6楼2015-07-11 23:18:28
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

guitar吧

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by deephill at 2015-07-08 13:48:23
If pauseFlag = 0 Then
        timerFlag = 0
        Timer1.Enabled = False ‘’’’’’’’’timer1 控件 不起作用
        pauseFlag = 1
        cmdPause.Caption = "Continue..."  ’’’’ ...

pauseFlag=0是暂停还是开启
赞一下 回复此楼
7楼2015-07-11 23:28:23
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

809192513

铜虫 (初入文坛)
看不懂呀，但是看到编程的帖子还是要顶一个。

[ 发自小木虫客户端 ]
赞一下 回复此楼
8楼2015-07-11 23:50:19
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

43fd6ys

木虫 (正式写手)
Private Sub cmdPause_Click() '按钮控件cmdPause的点击事件处理程序
赞一下 回复此楼
9楼2015-07-12 22:32:56
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 guitar吧 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭