溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
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
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
