Q语言 界面控制　以按钮开关方式启动线程实例源码

Event form1.Butt01.Click  
    If form1.Butt01.BackColor="008000" then　　//以按钮颜色判定
        form1.Butt01.BackColor="FF0000"　　　//变换颜色
        form1.Butt01.caption = "《停止占星》"　//改按钮名称为正在运行，并随时点击停止
        线程ID01 = BeginThread(鬼谷占星)　　//以线程方式启动过程　　鬼谷占星（）
    Else 
        form1.Butt01.BackColor="008000"　　　//恢复颜色
        form1.Butt01.caption = "【鬼谷占星】"　//恢复按钮名称
        StopThread 线程ID01　　//结束线程
    End if 
End Event

－－－－－－－－－－－－－－－－－－－

Sub 鬼谷占星()
    call 全局变量设置("1","D")　　　
    占星次数 = Clng(Form1.InputBox2.text)　　//通过界面设置参数
    占星方式 = Clng( Form1.ComboBox13.ListIndex )                     //通过界面设置参数
    Call Lib.子程序.自动占星(占星方式,占星次数)　　//过程子程序
    form1.Butt01.BackColor="008000"
    form1.Butt01.caption = "【鬼谷占星】"
    call 全局变量设置("0","D")
End Sub