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

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

公司主营业务：成都网站设计、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出双江免费做网站回馈大家。
分享名称：Q语言界面控制　以按钮开关方式启动线程实例源码-创新互联
分享URL：http://dzwzjz.com/article/diehei.html