首页 > 代码库 > AutoIt上路03-添加工具栏

AutoIt上路03-添加工具栏

AutoIt上路03-添加工具栏

  按照我的设计,程序中会有多个界面,用以实现不同的管理主题。其中程序运行后有个默认界面,然后根据需要再打开更多界面;如果有多个界面打开,则显示在标签卡中,通过标签切换显示。
技术分享

本文实现标签卡功能,描述其基本用法。
  1。在窗体内创建标签卡控件,GUICtrlCreateTab
  2。为标签卡添加点击事件处理,GUICtrlSetOnEvent
  3。为标签卡添加标签,GUICtrlCreateTabItem
  4。根据需要为标签头设置图片
  5。结束选项标签页的定义,GUICtrlCreateTabItem(“”)

AutoIt内置创建标签卡的函数,提供了基本功能,用户定义函数目录\GUI参考\标签选项卡管理 中提供了更为丰富的函数,两者可以结合使用;当然仅使用自定义函数也可以做出高级功能的应用。

    1. #include <GUIConstantsEx.au3>
    2. #include <GuiTab.au3> ; 用户自定义函数
    3. #include <GuiToolbar.au3>
    4. #include <GuiImageList.au3>
    5. #include <WinAPI.au3>
    6. #include <WindowsConstants.au3>
    7.  
    8. Opt("GUIOnEventMode", 1)
    9.  
    10. Global $itemInToolbar
    11.  
    12. $guiWelcome = GUICreate("威格灵", 400, 200)
    13. GUISetOnEvent($GUI_EVENT_CLOSE, "Func_GUI_EVENT_CLOSE")
    14. $menuFile = GUICtrlCreateMenu ( "文件 &F")
    15. $itemOpenInMenuFile = GUICtrlCreateMenuItem("打开", $menuFile)
    16. GUICtrlCreateMenuItem("", $menuFile)
    17. $itemExitInMenuFile = GUICtrlCreateMenuItem("退出", $menuFile)
    18. GUICtrlSetOnEvent($itemExitInMenuFile, "Func_GUI_EVENT_CLOSE")
    19. $toolbar = _GUICtrlToolbar_Create($guiWelcome)
    20. _GUICtrlToolbar_AddBitmap($toolbar, 1, -1, $IDB_STD_SMALL_COLOR)
    21. Local Enum $id_New = 1000, $id_Open, $id_Save, $id_Find, $id_Help
    22. _GUICtrlToolbar_AddButton($toolbar, $id_New, $STD_FILENEW)
    23. _GUICtrlToolbar_AddButton($toolbar, $id_Open, $STD_FILEOPEN)
    24. _GUICtrlToolbar_AddButton($toolbar, $id_Save, $STD_FILESAVE)
    25. _GUICtrlToolbar_AddButtonSep($toolbar)
    26. _GUICtrlToolbar_AddButton($toolbar, $id_Find, $STD_FIND)
    27. _GUICtrlToolbar_AddButtonSep($toolbar)
    28. _GUICtrlToolbar_AddButton($toolbar, $id_Help, $STD_HELP)
    29.  
    30. ; 1。创建标签卡控件(x-距离窗体左边,y-距离窗体顶边,wh),注意上面的工具条也占用高度,同时菜单栏底边设为0
    31. $tabWelcome = GUICtrlCreateTab ( 1, 28, 398, 130) ; 标签头的高度约 22
    32. ; 2。为标签卡添加点击事件处理
    33. GUICtrlSetOnEvent($tabWelcome, "Func_TabWelcome")
    34. ; 3。添加标签(标题)。起始索引为0
    35. $item0InTabWelcome = GUICtrlCreateTabItem("工程师记录")
    36. ; 4。在标签内添加控件。标签内的控件位置都是相对于窗体的,而不是此标签卡
    37. GUICtrlCreateLabel("文本 0", 3, 52, 50, 20)
    38. ; 5。添加新的标签
    39. $item1InTabWelcome = GUICtrlCreateTabItem("产品展示")
    40. GUICtrlCreateCombo("", 3, 52, 160, 120) ; 下拉框
    41. GUICtrlSetData(-1, "数字地理教室|数字数学教师|数字化学教室|互动物理教室|崔维友作品|vigiles", "崔维友作品") ; 添加项目,默认选中 "崔维友作品"
    42.  
    43. $item2InTabWelcome = GUICtrlCreateTabItem("学校信息管理")
    44. GUICtrlSetState(-1, $GUI_SHOW) ; 将首先显示
    45. GUICtrlCreateButton("确定", 3, 52, 50, 22)
    46. ;----------------------------------------- 可选 start ----------------------------------------
    47. ; 创建图像列表(ImageList)控件
    48. $imgList = _GUIImageList_Create()
    49. ; 添加一或多个图像到图像列表(图像列表控件,调用WinAPI.au3创建单色位图)
    50. _GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0xFF0000, 16, 16))
    51. _GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0x00FF00, 16, 16))
    52. _GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0x0000FF, 16, 16))
    53. ;设置(标签选项卡)控件关联的图像列表(标签卡,图像列表)
    54. _GUICtrlTab_SetImageList($tabWelcome, $imgList)
    55. ; 设置(标签选项卡)的标签图像(标签卡,标签索引-始于0,图像索引-始于0
    56. _GUICtrlTab_SetItemImage($tabWelcome, 0, 0)
    57. _GUICtrlTab_SetItemImage($tabWelcome, 1, 1)
    58. _GUICtrlTab_SetItemImage($tabWelcome, 2, 2)
    59. ;----------------------------------------- 可选 end ------------------------------------------
    60. ; 6。结束选项标签页的定义
    61. GUICtrlCreateTabItem("")
    62.  
    63. ; 后于标签卡创建,会在其顶层。注意xy,否则可能遮挡标签卡
    64. GUICtrlCreateLabel("文本 3", 1, 160, 50, 20)
    65.  
    66. GUISetState(@SW_SHOW, $guiWelcome)
    67.  
    68. GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
    69.  
    70. ;-------------------------------- 分割线 -----------------------------
    71. While 1
    72. Sleep(200)
    73. WEnd
    74.  
    75. Func Func_GUI_EVENT_CLOSE ()
    76. Exit
    77. EndFunc
    78.  
    79. ; 响应标签卡点击事件
    80. Func Func_TabWelcome ()
    81. ; 获得标签索引。@GUI_CtrlId宏命令,获取刚刚点击的控件ID
    82. $ctrlId = GUICtrlRead (@GUI_CtrlId)
    83. ; 获得标签标题文本(控件,索引)
    84. $itemText = _GUICtrlTab_GetItemText(@GUI_CtrlId, $ctrlId)
    85. MsgBox(0, "提示", "你点击的标签卡:" & $ctrlId & " - " & $itemText )
    86. EndFunc
    87.  
    88. Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
    89. ; 未改动,内容略
    90. EndFunc

AutoIt上路03-添加工具栏