Sets the Unicode character format flag for the control.
#Include <GuiTab.au3>
_GUICtrlTabSetUnicodeFormat($h_tabcontrol, $i_bool)
Parameters
$h_tabcontrol | control id/control hWnd |
$i_bool | Determines the character set that is used by the control. If this value is nonzero, the control will use Unicode characters. If this value is zero, the control will use ANSI characters. |
Return Value
Returns the previous Unicode format flag for the control.
Remarks
None.
Related
_GUICtrlTabGetUnicodeFormat
Example
#include <GUIConstants.au3>
#include <GuiTab.au3>
opt('MustDeclareVars', 1)
Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK
Dim $msg, $Status, $format = 0, $button, $ret
GUICreate("Tab Set Unicode Format", 300, 200) ; will create a dialog box that when displayed is centered
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)
$tab = GUICtrlCreateTab(10, 10, 200, 100)
$tab0 = GUICtrlCreateTabItem("tab0")
GUICtrlCreateLabel("label0", 30, 80, 50, 20)
$tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
$tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
GUICtrlCreateTabItem("") ; end tabitem definition
$tab1 = GUICtrlCreateTabItem("tab----1")
GUICtrlCreateLabel("label1", 30, 80, 50, 20)
$tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
$tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
GUICtrlCreateTabItem("") ; end tabitem definition
$tab2 = GUICtrlCreateTabItem("tab2")
GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
GUICtrlCreateLabel("label2", 30, 80, 50, 20)
$tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
GUICtrlCreateTabItem("") ; end tabitem definition
GUICtrlCreateLabel("label3", 20, 130, 50, 20)
$button = GUICtrlCreateButton("Set", 200, 130, 90, 30)
$Status = GUICtrlCreateLabel("", 0, 180, 300, 20, BitOR($SS_SUNKEN, $SS_CENTER))
GUISetState()
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $button
$ret = _GUICtrlTabSetUnicodeFormat ($tab, $format)
If ($ret) Then
GUICtrlSetData($Status, "Now ANSI Characters, was Unicode Format")
Else
GUICtrlSetData($Status, "Now Unicode Format, was ANSI Characters")
EndIf
$format = Not $format
EndSelect
WEnd