l4ever 发表于 2009-7-25 21:46:06

点击控件弹出菜单是如何写的?

本帖最后由 l4ever 于 2009-7-25 23:07 编辑

我表述可能不是很清楚,所以抓图了

图上点击三角弹出一个新的菜单.

netegg 发表于 2009-7-25 21:48:06

帮助里有关于这种组合框的建立

zpmc123 发表于 2017-3-27 14:47:19

回复 1# l4ever


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

Local $hGui, $OptionsBtn, $OptionsDummy, $OptionsContext, $OptionsCommon, $OptionsFile, $msg
Local $OptionsExit, $HelpBtn, $HelpDummy, $HelpContext, $HelpWWW, $HelpAbout
$hGui = GUICreate("My GUI", 170, 40)

$OptionsBtn = GUICtrlCreateButton("&Options", 10, 10, 70, 20, $BS_FLAT)

; At first create a dummy control for the options and a contextmenu for it
$OptionsDummy = GUICtrlCreateDummy()
$OptionsContext = GUICtrlCreateContextMenu($OptionsDummy)
$OptionsCommon = GUICtrlCreateMenuItem("Common", $OptionsContext)
$OptionsFile = GUICtrlCreateMenuItem("File", $OptionsContext)
GUICtrlCreateMenuItem("", $OptionsContext)
$OptionsExit = GUICtrlCreateMenuItem("Exit", $OptionsContext)


$HelpBtn = GUICtrlCreateButton("&Help", 90, 10, 70, 20, $BS_FLAT)

; Create a dummy control and a contextmenu for the help too
$HelpDummy = GUICtrlCreateDummy()
$HelpContext = GUICtrlCreateContextMenu($HelpDummy)
$HelpWWW = GUICtrlCreateMenuItem("Website", $HelpContext)
GUICtrlCreateMenuItem("", $HelpContext)
$HelpAbout = GUICtrlCreateMenuItem("About...", $HelpContext)


GUISetState()

While 1
      $msg = GUIGetMsg()

      Switch $msg
                Case $OptionsExit, $GUI_EVENT_CLOSE
                        ExitLoop

                Case $OptionsBtn
                        ShowMenu($hGui, $msg, $OptionsContext)

                Case $HelpBtn
                        ShowMenu($hGui, $msg, $HelpContext)

                Case $HelpAbout
                        MsgBox(64, "About...", "GUICtrlGetHandle-Sample")
      EndSwitch
WEnd
GUIDelete()

; Show a menu in a given GUI window which belongs to a given GUI ctrl
Func ShowMenu($hWnd, $CtrlID, $nContextID)
      Local $arPos, $x, $y
      Local $hMenu = GUICtrlGetHandle($nContextID)

      $arPos = ControlGetPos($hWnd, "", $CtrlID)

      $x = $arPos
      $y = $arPos + $arPos

      ClientToScreen($hWnd, $x, $y)
      TrackPopupMenu($hWnd, $hMenu, $x, $y)
EndFunc   ;==>ShowMenu


; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
      Local $stPoint = DllStructCreate("int;int")

      DllStructSetData($stPoint, 1, $x)
      DllStructSetData($stPoint, 2, $y)

      DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))

      $x = DllStructGetData($stPoint, 1)
      $y = DllStructGetData($stPoint, 2)
      ; release Struct not really needed as it is a local
      $stPoint = 0
EndFunc   ;==>ClientToScreen


; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
      DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc   ;==>TrackPopupMenu

jingzhinvr 发表于 2017-4-5 19:53:22

菜单美化谁会
页: [1]
查看完整版本: 点击控件弹出菜单是如何写的?