来个表哥帮忙写个 按钮 快捷键

笑笑二郎

来个表哥帮忙写个跨窗口快捷键  能自定义
读取配置项 按Ctrl+XXX 按下某个按钮
跨窗口里面配置好后保存并启动了
按下Ctrl+某键 自动按下启动窗口页面的某个按钮
搞10个可自定义设置的吧


补充内容 (2023-9-13 11:16):
来个成品呗

Tz小雨

  

' 定义全局变量用于存储自定义快捷键
Dim shortcutKeys[10]:STRING
' 主窗口
窗口 1, "主窗口", 300, 200, 400, 300
文本框 101, "请在下方输入自定义快捷键（Ctrl+键）：", 20, 20, 360, 30
输入框 102, "", 20, 60, 200, 30
按钮 103, "保存", 240, 60, 60, 30
文本框 104, "按下Ctrl+某键自动按下的按钮：", 20, 100, 360, 30
列表框 105, 20, 140, 360, 100, "按钮1|按钮2|按钮3|按钮4|按钮5|按钮6|按钮7|按钮8|按钮9|按钮10"
窗口结束
' 配置窗口
窗口 2, "配置窗口", 200, 150, 400, 300
文本框 201, "请选择要配置的快捷键：", 20, 20, 360, 30
列表框 202, 20, 60, 360, 150, ""
按钮 203, "确定", 160, 220, 60, 30
窗口结束
' 处理主窗口的事件
窗口事件 1, 初始化
' 初始化自定义快捷键
For i = 1 To 10
shortcutKeys[i] = ""
Next
窗口 1, "显示"
窗口事件 1, 单击
' 单击保存按钮，保存自定义快捷键
If 控件类型 = 103 Then
keyIndex = Val (获取控件文本 (102))
If keyIndex >= 1 And keyIndex <= 10 Then
shortcutKeys[keyIndex] = 获取控件文本 (102)
刷新列表框 105
Else
弹出消息框 "请输入1到10之间的数字作为快捷键编号！"
End If
End If
' 单击某个按钮，配置对应的快捷键
If 控件类型 >= 111 And 控件类型 <= 120 Then
keyIndex = 控件类型 - 110
打开窗口 2, "显示"
清空列表框 202
For i = 1 To 10
列表框添加项目 202, "按钮" + Str (i)
Next
End If
窗口事件 1, 关闭
' 保存配置
文件操作 1, "写入文本", "config.txt"
For i = 1 To 10
文件操作 2, "写入文本", shortcutKeys[i]
Next
文件操作 3, "关闭文件"
退出
窗口事件 1, 快捷键按下
' 处理自定义快捷键
For i = 1 To 10
If 快捷键 = "Ctrl+" + shortcutKeys[i] Then
' 触发按钮点击事件
触发控件事件 1, 110 + i, "单击"
End If
Next
' 处理配置窗口的事件
窗口事件 2, 单击
' 单击确定按钮，保存配置并关闭配置窗口
If 控件类型 = 203 Then
keyIndex = 列表框获取选中项目 (202)
If keyIndex <> "" Then
keyIndex = Val (Mid (keyIndex, 3))
shortcutKeys[keyIndex] = 获取控件文本 (201)
刷新列表框 105
关闭窗口 2
End If
End If
' 读取配置文件
文件操作 1, "打开文件", "config.txt"
For i = 1 To 10
文件操作 2, "读取一行文本", shortcutKeys[i]
Next
文件操作 3, "关闭文件"
窗口 1, "显示"

' 定义全局变量用于存储自定义快捷键<br /> Dim shortcutKeys[10]:STRING<br /> <br /> ' 主窗口<br /> 窗口 1, "主窗口", 300, 200, 400, 300<br />     文本框 101, "请在下方输入自定义快捷键（Ctrl+键）：", 20, 20, 360, 30<br />     输入框 102, "", 20, 60, 200, 30<br />     按钮 103, "保存", 240, 60, 60, 30<br />     文本框 104, "按下Ctrl+某键自动按下的按钮：", 20, 100, 360, 30<br />     列表框 105, 20, 140, 360, 100, "按钮1|按钮2|按钮3|按钮4|按钮5|按钮6|按钮7|按钮8|按钮9|按钮10"<br /> 窗口结束<br /> <br /> ' 配置窗口<br /> 窗口 2, "配置窗口", 200, 150, 400, 300<br />     文本框 201, "请选择要配置的快捷键：", 20, 20, 360, 30<br />     列表框 202, 20, 60, 360, 150, ""<br />     按钮 203, "确定", 160, 220, 60, 30<br /> 窗口结束<br /> <br /> ' 处理主窗口的事件<br /> 窗口事件 1, 初始化<br />     ' 初始化自定义快捷键<br />     For i = 1 To 10<br />         shortcutKeys<i> = ""<br />     Next<br />     窗口 1, "显示"<br /> 窗口事件 1, 单击<br />     ' 单击保存按钮，保存自定义快捷键<br />     If 控件类型 = 103 Then<br />         keyIndex = Val(获取控件文本(102))<br />         If keyIndex >= 1 And keyIndex <= 10 Then<br />             shortcutKeys[keyIndex] = 获取控件文本(102)<br />             刷新列表框 105<br />         Else<br />             弹出消息框 "请输入1到10之间的数字作为快捷键编号！"<br />         End If<br />     End If<br />     ' 单击某个按钮，配置对应的快捷键<br />     If 控件类型 >= 111 And 控件类型 <= 120 Then<br />         keyIndex = 控件类型 - 110<br />         打开窗口 2, "显示"<br />         清空列表框 202<br />         For i = 1 To 10<br />             列表框添加项目 202, "按钮" + Str(i)<br />         Next<br />     End If<br /> 窗口事件 1, 关闭<br />     ' 保存配置<br />     文件操作 1, "写入文本", "config.txt"<br />     For i = 1 To 10<br />         文件操作 2, "写入文本", shortcutKeys<i><br />     Next<br />     文件操作 3, "关闭文件"<br />     退出<br /> 窗口事件 1, 快捷键按下<br />     ' 处理自定义快捷键<br />     For i = 1 To 10<br />         If 快捷键 = "Ctrl+" + shortcutKeys<i> Then<br />             ' 触发按钮点击事件<br />             触发控件事件 1, 110 + i, "单击"<br />         End If<br />     Next<br /> <br /> ' 处理配置窗口的事件<br /> 窗口事件 2, 单击<br />     ' 单击确定按钮，保存配置并关闭配置窗口<br />     If 控件类型 = 203 Then<br />         keyIndex = 列表框获取选中项目(202)<br />         If keyIndex <> "" Then<br />             keyIndex = Val(Mid(keyIndex, 3))<br />             shortcutKeys[keyIndex] = 获取控件文本(201)<br />             刷新列表框 105<br />             关闭窗口 2<br />         End If<br />     End If<br /> <br /> ' 读取配置文件<br /> 文件操作 1, "打开文件", "config.txt"<br /> For i = 1 To 10<br />     文件操作 2, "读取一行文本", shortcutKeys<i><br /> Next<br /> 文件操作 3, "关闭文件"<br /> <br /> 窗口 1, "显示"

笑笑二郎

Tz小雨 发表于 2023-9-13 11:05
[e=0]' 定义全局变量用于存储自定义快捷键
Dim shortcutKeys[10]:STRING

有成品嘛

Tz小雨

笑笑二郎 发表于 2023-9-13 13:36
有成品嘛

代码在这里呀，自己练习一下。