AutoIt上路03-添加工具欄

　　按照我的設計，程序中會有多個界面，用以實現不同的管理主題。其中程序運行后有個默認界面，然后根據需要再打開更多界面；如果有多個界面打開，則顯示在標簽卡中，通過標簽切換顯示。

本文實現標簽卡功能，描述其基本用法。
　　1。在窗體內創建標簽卡控件，GUICtrlCreateTab
　　2。為標簽卡添加點擊事件處理，GUICtrlSetOnEvent
　　3。為標簽卡添加標簽，GUICtrlCreateTabItem
　　4。根據需要為標簽頭設置圖片
　　5。結束選項標簽頁的定義，GUICtrlCreateTabItem(“”)

AutoIt內置創建標簽卡的函數，提供了基本功能，用戶定義函數目錄\GUI參考\標簽選項卡管理 中提供了更為豐富的函數，兩者可以結合使用；當然僅使用自定義函數也可以做出高級功能的應用。

#include <GUIConstantsEx.au3>

#include <GuiTab.au3> ; 用戶自定義函數

#include <GuiToolbar.au3>

#include <GuiImageList.au3>

#include <WinAPI.au3>

#include <WindowsConstants.au3>

?

Opt("GUIOnEventMode", 1)

?

Global $itemInToolbar

?

$guiWelcome = GUICreate("威格靈", 400, 200)

GUISetOnEvent($GUI_EVENT_CLOSE, "Func_GUI_EVENT_CLOSE")

$menuFile = GUICtrlCreateMenu ( "文件 &F")

$itemOpenInMenuFile = GUICtrlCreateMenuItem("打開", $menuFile)

GUICtrlCreateMenuItem("", $menuFile)

$itemExitInMenuFile = GUICtrlCreateMenuItem("退出", $menuFile)

GUICtrlSetOnEvent($itemExitInMenuFile, "Func_GUI_EVENT_CLOSE")

$toolbar = _GUICtrlToolbar_Create($guiWelcome)

_GUICtrlToolbar_AddBitmap($toolbar, 1, -1, $IDB_STD_SMALL_COLOR)

Local Enum $id_New = 1000, $id_Open, $id_Save, $id_Find, $id_Help

_GUICtrlToolbar_AddButton($toolbar, $id_New, $STD_FILENEW)

_GUICtrlToolbar_AddButton($toolbar, $id_Open, $STD_FILEOPEN)

_GUICtrlToolbar_AddButton($toolbar, $id_Save, $STD_FILESAVE)

_GUICtrlToolbar_AddButtonSep($toolbar)

_GUICtrlToolbar_AddButton($toolbar, $id_Find, $STD_FIND)

_GUICtrlToolbar_AddButtonSep($toolbar)

_GUICtrlToolbar_AddButton($toolbar, $id_Help, $STD_HELP)

?

; 1。創建標簽卡控件（x-距離窗體左邊，y-距離窗體頂邊，w，h），注意上面的工具條也占用高度，同時菜單欄底邊設為0

$tabWelcome = GUICtrlCreateTab ( 1, 28, 398, 130) ; 標簽頭的高度約 22

; 2。為標簽卡添加點擊事件處理

GUICtrlSetOnEvent($tabWelcome, "Func_TabWelcome")

; 3。添加標簽（標題）。起始索引為0

$item0InTabWelcome = GUICtrlCreateTabItem("工程師記錄")

; 4。在標簽內添加控件。標簽內的控件位置都是相對于窗體的，而不是此標簽卡

GUICtrlCreateLabel("文本 0", 3, 52, 50, 20)

; 5。添加新的標簽

$item1InTabWelcome = GUICtrlCreateTabItem("產品展示")

GUICtrlCreateCombo("", 3, 52, 160, 120) ; 下拉框

GUICtrlSetData(-1, "數字地理教室|數字數學教師|數字化學教室|互動物理教室|崔維友作品|vigiles", "崔維友作品") ; 添加項目，默認選中 "崔維友作品"

?

$item2InTabWelcome = GUICtrlCreateTabItem("學校信息管理")

GUICtrlSetState(-1, $GUI_SHOW) ; 將首先顯示

GUICtrlCreateButton("確定", 3, 52, 50, 22)

;----------------------------------------- 可選 start ----------------------------------------

; 創建圖像列表(ImageList)控件

$imgList = _GUIImageList_Create()

; 添加一或多個圖像到圖像列表（圖像列表控件，調用WinAPI.au3創建單色位圖）

_GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0xFF0000, 16, 16))

_GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0x00FF00, 16, 16))

_GUIImageList_Add($imgList, _WinAPI_CreateSolidBitmap($guiWelcome, 0x0000FF, 16, 16))

;設置(標簽選項卡)控件關聯的圖像列表（標簽卡，圖像列表）

_GUICtrlTab_SetImageList($tabWelcome, $imgList)

; 設置(標簽選項卡)的標簽圖像（標簽卡，標簽索引-始于0，圖像索引-始于0）

_GUICtrlTab_SetItemImage($tabWelcome, 0, 0)

_GUICtrlTab_SetItemImage($tabWelcome, 1, 1)

_GUICtrlTab_SetItemImage($tabWelcome, 2, 2)

;----------------------------------------- 可選 end ------------------------------------------

; 6。結束選項標簽頁的定義

GUICtrlCreateTabItem("")

?

; 后于標簽卡創建，會在其頂層。注意x、y，否則可能遮擋標簽卡

GUICtrlCreateLabel("文本 3", 1, 160, 50, 20)

?

GUISetState(@SW_SHOW, $guiWelcome)

?

GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

?

;-------------------------------- 分割線 -----------------------------

While 1

Sleep(200)

WEnd

?

Func Func_GUI_EVENT_CLOSE ()

Exit

EndFunc

?

; 響應標簽卡點擊事件

Func Func_TabWelcome ()

; 獲得標簽索引。@GUI_CtrlId宏命令，獲取剛剛點擊的控件ID

$ctrlId = GUICtrlRead (@GUI_CtrlId)

; 獲得標簽標題文本（控件，索引）

$itemText = _GUICtrlTab_GetItemText(@GUI_CtrlId, $ctrlId)

MsgBox(0, "提示", "你點擊的標簽卡：" & $ctrlId & " - " & $itemText )

EndFunc

?

Func _WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)

; 未改動，內容略

EndFunc

轉載于:https://www.cnblogs.com/itviplearning/p/7047080.html

總結

以上是生活随笔為你收集整理的AutoIt上路03-添加工具栏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。