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://scyanting.com/article/diehei.html