找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 GUI 交流 』 › 如何给GUICtrlCreateMenu添加动作
返回列表 发新帖
查看: 4343|回复: 10

[交流] 如何给GUICtrlCreateMenu添加动作

 火 [复制链接]
CFL875801950
发表于 2016-12-21 14:04:19 | 显示全部楼层 |阅读模式
悬赏1金钱已解决
本帖最后由 CFL875801950 于 2016-12-24 17:45 编辑

利用GUICtrlCreateMenu创建一个帮助菜单，想实现的功能是，当点击帮助菜单的时候，能弹出来一个msgbox消息框

最佳答案

chzj589

查看完整内容

回复 7# CFL875801950 有几个不对，修改了，你试看看 [AU3] #include #include #include #include #include Example1() Func Example1() Local $msg, $jchu, $bg, $jxue, $bzhu, $jszc, $qdong Local $jchu_1, $jchu_2, $jchu_3, $jchu_4 Local $bg_1, $bg_2, $bg_3, $bg_4, $bg_5 Local $jxue_1, $jxue_2, $jxue_3 Local $qdong_1,$qdong_2, $qdong_3, $qdong_4 GUICre ...
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
chzj589
发表于 2016-12-21 14:04:20 | 显示全部楼层
回复 7# CFL875801950
有几个不对，修改了，你试看看

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

Example1()

Func Example1()
        Local $msg, $jchu, $bg, $jxue, $bzhu, $jszc, $qdong
        Local $jchu_1, $jchu_2, $jchu_3, $jchu_4
        Local $bg_1, $bg_2, $bg_3, $bg_4, $bg_5
        Local $jxue_1, $jxue_2, $jxue_3
        Local $qdong_1,$qdong_2, $qdong_3, $qdong_4

        GUICreate("FROM") ; 创建一个居中显示的 GUI 窗口
        GUISetState(@SW_SHOW) ; 显示一个空白的窗口

        $jchu = GUICtrlCreateMenu("基础软件") ;创建基础软件菜单选项
        $jchu_1 = GUICtrlCreateMenuItem("搜狗输入法", $jchu)
        $jchu_2 = GUICtrlCreateMenuItem("谷歌浏览器", $jchu)
        $jchu_3 = GUICtrlCreateMenuItem("火狐浏览器", $jchu)
        $jchu_4 = GUICtrlCreateMenuItem("360压缩", $jchu)

        $bg = GUICtrlCreateMenu("办公软件") ;创建办公软件菜单选项
        $bg_1 = GUICtrlCreateMenuItem("office 2013", $bg)
        $bg_2 = GUICtrlCreateMenuItem("播放器", $bg)
        $bg_3 = GUICtrlCreateMenuItem("看图工具", $bg)
        $bg_4 = GUICtrlCreateMenuItem("微信", $bg)
        $bg_5 = GUICtrlCreateMenuItem("企业QQ", $bg)

        $jxue = GUICtrlCreateMenu("教学软件") ;创建教学软件菜单选项
        $jxue_1 = GUICtrlCreateMenuItem("Adobe CC", $jxue)
        $jxue_2 = GUICtrlCreateMenuItem("Adobe CS6", $jxue)
        $jxue_3 = GUICtrlCreateMenuItem("Autodesk", $jxue)

        $qdong = GUICtrlCreateMenu("驱动程序") ;创建驱动程序菜单选项
        $qdong_1 = GUICtrlCreateMenuItem("票据打印机", $qdong)
        $qdong_2 = GUICtrlCreateMenuItem("证卡打印机", $qdong)
        $qdong_3 = GUICtrlCreateMenuItem("HP_M128fw", $qdong)
        $qdong_4 = GUICtrlCreateMenuItem("HP 1025nw", $qdong)

        $bzhu = GUICtrlCreateMenu("帮助") ;创建帮助菜单选项
        $jszc = GUICtrlCreateMenuItem("帮助",$bzhu) ;创建技术支持菜单选项
        GUICtrlCreateButton("安装", 10, 300, 100)
        GUICtrlCreateButton("取消", 286, 300, 100)

        ; 运行界面,直到窗口被关闭
        While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                                Exit
                        Case $jszc
                               MsgBox($MB_SYSTEMMODAL,"回答","测试")
                EndSwitch
        WEnd
EndFunc
回复

举报

chzj589
发表于 2016-12-21 15:28:44 | 显示全部楼层
还不会看帮助文件？？？？？

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <StaticConstants.au3>

Example()

Func Example()
    Local $sDefaultstatus = "准备就绪"
    GUICreate("菜单控件 GUI", 300, 200)
    Local $idFilemenu = GUICtrlCreateMenu("文件 &F")
    Local $idFileitem = GUICtrlCreateMenuItem("打开", $idFilemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    Local $idHelpmenu = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("保存", $idFilemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    Local $idInfoitem = GUICtrlCreateMenuItem("信息", $idHelpmenu)
    Local $idExititem = GUICtrlCreateMenuItem("退出", $idFilemenu)
    Local $idRecentfilesmenu = GUICtrlCreateMenu("最近的文件", $idFilemenu, 1)
    GUICtrlCreateMenuItem("", $idFilemenu, 2) ; 创建分隔线
    Local $idViewmenu = GUICtrlCreateMenu("查看", -1, 1) ; 创建在 "?" 之前的菜单
    Local $idViewstatusitem = GUICtrlCreateMenuItem("状态栏", $idViewmenu)
    GUICtrlSetState(-1, $GUI_CHECKED)
        $menu6 = GUICtrlCreateMenu("帮助[&H]")
        $MenuItem22 = GUICtrlCreateMenuItem("关于[&G]", $menu6)
    GUICtrlCreateButton("确定", 50, 130, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    Local $idCancelbutton = GUICtrlCreateButton("取消", 180, 130, 70, 20)
    Local $idStatuslabel = GUICtrlCreateLabel($sDefaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))
    GUISetState(@SW_SHOW)
    Local $sFile
    ; 循环到用户退出.
    While 1
        Switch GUIGetMsg()
            Case $idFileitem
                $sFile = FileOpenDialog("选择文件...", @TempDir, "所有文件 (*.*)")
                If @error <> 1 Then GUICtrlCreateMenuItem($sFile, $idRecentfilesmenu)
            Case $idViewstatusitem
                If BitAND(GUICtrlRead($idViewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                    GUICtrlSetState($idViewstatusitem, $GUI_UNCHECKED)
                    GUICtrlSetState($idStatuslabel, $GUI_HIDE)
                Else
                    GUICtrlSetState($idViewstatusitem, $GUI_CHECKED)
                    GUICtrlSetState($idStatuslabel, $GUI_SHOW)
                EndIf
            Case $GUI_EVENT_CLOSE, $idCancelbutton, $idExititem
                ExitLoop
            Case $idInfoitem
                MsgBox($MB_SYSTEMMODAL, "信息", "只是一个测试...")
                        Case $MenuItem22
                                MsgBox($MB_SYSTEMMODAL, "回答", "弹出来一个　msgbox　消息框...")
        EndSwitch
    WEnd
    GUIDelete()
EndFunc   ;==>Example
回复

举报

CFL875801950
 楼主| 发表于 2016-12-21 15:44:10 | 显示全部楼层
回复 2# chzj589


    帮助菜单没有下来的关于选项，可以实现吗，点击帮助，就直接出现MsgBox($MB_SYSTEMMODAL, "回答", "弹出来一个　msgbox　消息框...")
回复

举报

chzj589
发表于 2016-12-21 15:51:15 | 显示全部楼层
回复 3# CFL875801950
GUICtrlCreateMenu是主项目，不能接受命令
GUICtrlCreateMenuItem是子项目
把关于改为帮助
$menu6 = GUICtrlCreateMenu("帮助[&H]")
$MenuItem22 = GUICtrlCreateMenuItem("帮助[&G]", $menu6)
回复

举报

CFL875801950
 楼主| 发表于 2016-12-21 16:22:53 | 显示全部楼层
回复 4# chzj589


    方便使用QQ吗，我看了你发的，然后自己写的会在case 报错
回复

举报

chzj589
发表于 2016-12-21 16:25:49 | 显示全部楼层
回复 5# CFL875801950
把你写的代码发上来！
不好意思，我很少用QQ
回复

举报

CFL875801950
 楼主| 发表于 2016-12-21 16:34:47 | 显示全部楼层
回复 6# chzj589

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

Example1()


Func Example1()
        Local $msg, $jchu, $bg, $jxue, $bzhu, $jszc, $qdong
        Local $jchu_1, $jchu_2, $jchu_3, $jchu_4
        Local $bg_1, $bg_2, $bg_3, $bg_4, $bg_5
        Local $jxue_1, $jxue_2, $jxue_3
        Local $qdong_1,$qdong_2, $qdong_3, $qdong_4

        GUICreate("FROM") ; 创建一个居中显示的 GUI 窗口
        GUISetState(@SW_SHOW) ; 显示一个空白的窗口
       
        $jchu = GUICtrlCreateMenu("基础软件") ;创建基础软件菜单选项
        $jchu_1 = GUICtrlCreateMenuItem("搜狗输入法", $jchu)
        $jchu_2 = GUICtrlCreateMenuItem("谷歌浏览器", $jchu)
        $jchu_3 = GUICtrlCreateMenuItem("火狐浏览器", $jchu)
        $jchu_4 = GUICtrlCreateMenuItem("360压缩", $jchu)
       
        $bg = GUICtrlCreateMenu("办公软件") ;创建办公软件菜单选项
        $bg_1 = GUICtrlCreateMenuItem("office 2013", $bg)
        $bg_2 = GUICtrlCreateMenuItem("播放器", $bg)
        $bg_3 = GUICtrlCreateMenuItem("看图工具", $bg)
        $bg_4 = GUICtrlCreateMenuItem("微信", $bg)
        $bg_5 = GUICtrlCreateMenuItem("企业QQ", $bg)
       
        $jxue = GUICtrlCreateMenu("教学软件") ;创建教学软件菜单选项
        $jxue_1 = GUICtrlCreateMenuItem("Adobe CC", $jxue)
        $jxue_2 = GUICtrlCreateMenuItem("Adobe CS6", $jxue)
        $jxue_3 = GUICtrlCreateMenuItem("Autodesk", $jxue)
       
        $qdong = GUICtrlCreateMenu("驱动程序") ;创建驱动程序菜单选项
        $qdong_1 = GUICtrlCreateMenuItem("票据打印机", $qdong)
        $qdong_2 = GUICtrlCreateMenuItem("证卡打印机", $qdong)
        $qdong_3 = GUICtrlCreateMenuItem("HP_M128fw", $qdong)
        $qdong_4 = GUICtrlCreateMenuItem("HP 1025nw", $qdong)
       
        $bzhu = GUICtrlCreateMenu("帮助") ;创建帮助菜单选项
       
        $jszc = GUICtrlCreateMenu("?") ;创建技术支持菜单选项
       
        GUICtrlCreateButton("安装", 10, 300, 100)
        GUICtrlCreateButton("取消", 286, 300, 100)
EndFunc

        ; 运行界面,直到窗口被关闭
        While 1
               
                $nMsg = GUIGetMsg()
               
                Switch $nMsg
                       
                        Case $GUI_EVENT_CLOSE
                               
                                Exit
                               
                        Case $bzhu
                               
                                MsgBox($MB_SYSTEMMODAL,"回答","测试")

                EndSwitch
        WEnd
回复

举报

CFL875801950
 楼主| 发表于 2016-12-21 17:20:44 | 显示全部楼层
回复 8# chzj589


    谢谢，虽然不是太明白为什么要这样写，但是已经知道怎么写了
回复

举报

zpmc123
发表于 2017-1-10 11:41:19 | 显示全部楼层
都很历害啊
回复

举报

zpmc123
发表于 2017-3-29 13:37:28 | 显示全部楼层
如何自定义GUICtrlCreateMenu位置
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-18 17:56 , Processed in 0.072962 second(s), 18 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表