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许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
公司主营业务:成都网站设计、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出双江免费做网站回馈大家。