|
楼主 |
发表于 2024-8-8 22:06:23
|
显示全部楼层
<火山程序 类型 = "通常" 版本 = 1 />
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"500, 300\"" 标题 = "我的主窗口">
{
变量 标签1 <类型 = 标签 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"29, 70, 360, 64\"" 标题 = "标签1">
变量 关闭设备 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 102\r\npos = \"197, 6, 160, 48\"" 标题 = "关闭设备">
变量 km <类型 = 键鼠魔盒1>
变量 连接设备 <类型 = 按钮 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 103\r\npos = \"21, 6, 152, 48\"" 标题 = "连接设备">
方法 按钮_被单击 <接收事件 类型 = 整数 注释 = "当按钮被单击后发送此事件">
参数 来源对象 <类型 = 按钮 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 关闭设备)
{
km.关闭设备 ()
}
如果 (来源对象 == 连接设备)
{
km.连接设备ID (047E,C07E)
如果 (km.连接设备 () == 1)
{
调试输出 ("设备已连接")
标签1.标题 = "设备已连接"
}
调试输出 ("未发现设备")
标签1.标题 = "未发现设备"
}
返回 (0)
}
}
|
|