[已解决]请教快捷键的问题（我自己思路错误，放弃。再次感谢！）

ferelove · 发表于 2010-7-2 10:03:25

本帖最后由 ferelove 于 2010-7-2 11:56 编辑

$Button1 = GUICtrlCreateButton("按钮&A", 136, 72, 75, 25)
如上，加个&A，该按键即有Alt+A的快捷键，并且在按键上有个带有下划线的A显示。挺好用的，
如果快捷键是Ctrl+A呢？不知道怎么弄了？请教各位。谢谢！

好像用以下方法虽然也可以设置为Ctrl+A，但按钮上不会显示带下划线的A，界面不直观。
Dim $Form1_AccelTable[1][2] = [["^a", $Button1]]
GUISetAccelerators($Form1_AccelTable)

gapkiller · 发表于 2010-7-2 10:08:32

"&A"的意思是把"A"设置为快捷键，如果当前focus在此button上，点A就相当于按了此button
Alt+A是windows自带的功能，即focus不在此button上，点Alt+A也能生效

ferelove · 发表于 2010-7-2 10:13:25

本帖最后由 ferelove 于 2010-7-2 10:16 编辑

谢谢楼上。
我的意思是想设置为Ctrl+某。该如何写呢？譬如设置该按钮的快捷键为Ctrl+1，并且在按键上有显示带下划线的1

410521a · 发表于 2010-7-2 10:22:14

回复 3# ferelove

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 206, 155, 242, 173)
$Button1 = GUICtrlCreateButton("Button1&a", 40, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Button2&B", 40, 88, 75, 25)
Dim $Form1_AccelTable[2][2] = [["^a", $Button1],["^b", $Button2]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"","你按了BUTTON1")
Case $Button2
MsgBox(0,"","你按了BUTTON2")
EndSwitch
WEnd

ferelove · 发表于 2010-7-2 10:33:07

谢谢4楼，可能是我表达不清楚。仍没达到要求。
4楼代码，一个按钮同时有了Ctrl+A和Alt+A快捷键。重复了。
再表达一下吧，譬如：
BUTTON1的快捷键是Alt+1
BUTTON2的快捷键是Ctrl+1
各按钮的快捷键不重复，并有带下划线显示。

410521a · 发表于 2010-7-2 10:50:58

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 206, 155, 242, 173)
$Button1 = GUICtrlCreateButton("Button1&k", 40, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Button2&1", 40, 88, 75, 25)
Dim $Form1_AccelTable[2][2] = [["!1", $Button1],["^1", $Button2]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
            Case $GUI_EVENT_CLOSE
                     Exit
            Case $Button1
                     MsgBox(0,"","你按了BUTTON1")
            Case $Button2
                     MsgBox(0,"","你按了BUTTON2")
      EndSwitch
WEnd

ferelove · 发表于 2010-7-2 11:08:34

谢谢410521a ！
当2个都要求为1时（只是其中一个按钮为Ctrl+1，另外一个按钮为Alt+1，并非是K等等其它字符）。
纯粹是偶想法错误。放弃。
再次感谢各位朋友！

xsjtxy · 发表于 2010-7-2 11:08:48

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 206, 155, 242, 173)
$Button1 = GUICtrlCreateButton("第一个&1", 40, 40, 75, 25)
$Button2 = GUICtrlCreateButton("第二个&1", 40, 88, 75, 25)

Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "exitt")
HotKeySet("^1", "Button1")
GUICtrlSetOnEvent($Button2, "Button2")

GUISetState(@SW_SHOW)
While 1
sleep(1)
WEnd

Func exitt()
exit
EndFunc

Func Button1()
msgbox(0,"","CTRL + 1第一个按钮")
EndFunc

Func Button2()
msgbox(0,"","ALT + 1 第二个按钮")
EndFunc

afan · 发表于 2010-7-2 13:05:59

本帖最后由 afan 于 2010-7-2 13:07 编辑

LS的例子可以达到LZ的要求~ 整理下~

Opt("GUIOnEventMode", 1)
HotKeySet("^1", "Button1")

GUICreate("Form1", 206, 155)
GUISetOnEvent(-3, "_exit")
$Button1 = GUICtrlCreateButton("(ctrl-1)第1个&1", 40, 40, 110, 25)
GUICtrlSetOnEvent($Button1, "Button1")
$Button2 = GUICtrlCreateButton("(alt-1)第2个&1", 40, 88, 110, 25)
GUICtrlSetOnEvent($Button2, "Button2")
GUISetState()

While 1
        Sleep(1)
WEnd

Func _exit()
        Exit
EndFunc   ;==>_exit

Func Button1()
        MsgBox(0, "", "CTRL+1 第1个按钮")
EndFunc   ;==>Button1

Func Button2()
        MsgBox(0, "", "ALT+1 第2个按钮")
EndFunc   ;==>Button2

dgrre碧湘娴 · 发表于 2010-7-4 03:28:07

有道理的就呀顶！

日本アニメ

yarsye · 发表于 2010-12-2 17:49:33

学习了帮你

		自动登录	找回密码
密码			加入

[GUI管理] [已解决]请教快捷键的问题（我自己思路错误，放弃。再次感谢！）

评分

评分

本帖子中包含更多资源

评分

评分