标签：orm visible 表示 pre tin apt 条件选择 ase form
Sub 定义热键()
Form1.Hotkey1.Virtualkey = 121 //设置第一个热键 + 用于启动 暂停F10
Form1.Hotkey1.Register True //注册第一个热键
Form1.Hotkey3.Virtualkey = 123 //设置第二个热键 - 用于终止F12
Form1.Hotkey3.Register True//注册第二个热键
Form1.Hotkey2.Virtualkey = 115 //设置第三个热键 - 用于老板键F4
Form1.Hotkey2.Register True//注册第三个热键
Form1.Hotkey4.Virtualkey = 113 //设置第三个热键 - 用于老板键F5
Form1.Hotkey4.Register True//注册第三个热键
End Sub
Event Form1.Hotkey1.Hotkey
Select Case 启动状态 // 利用情况条件选择 设置启动状态不同的时候 按钮运行不同的语句
//启动状态含义 0 未启动或者终止 1-启动 2-暂停
Case 0
线程ID1 = BeginThread(main) //当启动状态为0时 运行开始线程
启动状态 = 1// 启动状态改变，启动状态值赋值1，表示现在已经是启动状态
form1.Button4.Visible = true
form1.Button5.Visible = true
form1.Button1.Visible = false
form1.Button4.caption = "暂停"
Case 1
PauseThread 线程ID1 //暂停该线程
启动状态 = 2// 启动状态改变，启动状态值赋值2，表示现在已经是暂停状态
form1.Button4.caption = "继续"
Case 2
ContinueThread 线程ID1 // 恢复线程
启动状态 = 1// 启动状态改变，启动状态值赋值1，表示现在已经是启动状态
form1.Button4.caption = "暂停"
End Select
End EventEvent Form1.Hotkey3.Hotkey
StopThread 线程ID1//终止线程
//这是终止按钮
启动状态 = 0//终止状态赋值
form1.Button1.Visible = true
form1.Button4.Visible = False
form1.Button5.Visible = false
End EventEvent Form1.Hotkey2.Hotkey
Select Case 窗口状态 // 0-隐藏 1-显示
Case 0
Call 窗口显示("G")
Call 窗口显示("H")
Call 窗口显示("P")
窗口状态 = 1
Case 1
Call 窗口隐藏("G")
Call 窗口隐藏("H")
Call 窗口隐藏("P")
窗口状态 = 0
End Select
End Event标签：orm visible 表示 pre tin apt 条件选择 ase form
原文地址：https://blog.51cto.com/12815848/2528029
