xcycom 发表于 2010-4-15 19:47:03

请教一个按钮问题

新手不明白啊,请帮我解解

如果我用一个按钮(开始/暂停)控制一段语句
if$a1   then
    ******
   后面第二个按钮控制这段语句其中的一段(开始/暂停)
    if $b1 then
         *********
         后面第三个按钮控制这段语句其中的一段(开始/暂停)
      if $b1 then
         *********
         endif
    endif
endif

要怎么样写Func部分
最好能给个整体的模式

nmgwddj 发表于 2010-4-15 20:02:54

本帖最后由 nmgwddj 于 2010-4-15 20:05 编辑

HotKeySet('{F3}', 'Start')
HotKeySet('{F4}', 'Pause')
Pause()
Func Start()
        While 1
                MsgBox(0, '', '脚本开始', 1)
                Sleep(3000)
        WEnd
EndFunc   ;==>Start
Func Pause()
        While 1
                Sleep(100)
        WEnd
EndFunc   ;==>Pause按F3开始 F4暂停

xcycom 发表于 2010-4-15 21:20:53

回复 2# nmgwddj


    谢谢。你可能误解了我的意思。我是说的3个按钮

131738 发表于 2010-4-15 21:56:37

******
3个按钮写3段 Func 自定义函数,“ ****** ”指向各自的自定义函数

lanfengc 发表于 2010-4-15 22:18:29

;公共部分。以下2种方法都使用这3个热键定义语句。 随便从下面的2种方法中选一种。
HotKeySet("{F9}","firstfunc")
HotKeySet("{F10}","secondfunc")
HotKeySet("{F11}","thirdfunc")

;第一种方法开始------------------------------
;这种方法是3个独立的标志变量分别控制各自的执行程序
;如果需要停止某一子程序,必须按相应的热键才可停止。
Global $FLG1=0
Global $FLG2=0
Global $FLG3=0
While 1
        If $FLG1 Then
                MsgBox(0,"1","1")
        EndIf
        If $FLG2 Then
                MsgBox(0,"2","2")
        EndIf
        If $FLG3 Then
                MsgBox(0,"3","3")
        EndIf
        Sleep(200)
WEnd
Func firstfunc()
        $FLG1=Not $FLG1
EndFunc

Func secondfunc()
        $FLG2=Not $FLG2
EndFunc

Func thirdfunc()
        $FLG3=Not $FLG3
EndFunc
;第一种方法结束---------

;第二种开始-----------
;这种方法使用一个标志位控制3个子程序。
;任意按一个热键都将终止其他的子程序的执行。
Global $FLG=0
While 1
        Sleep(200)
        Select
                Case $FLG=1
                        MsgBox(0,"1","1")
                Case $FLG=2
                        MsgBox(0,"2","2")
                Case $FLG=3
                        MsgBox(0,"3","3")
        EndSelect
WEnd

Func firstfunc()
        $FLG=1
EndFunc

Func secondfunc()
        $FLG=2
EndFunc

Func thirdfunc()
        $FLG=3
EndFunc

;第二种结束-----------                       
                       
页: [1]
查看完整版本: 请教一个按钮问题