Meinst du das so?
Spoiler anzeigen
#include "OwnTab.au3"
[/autoit] [autoit][/autoit] [autoit]GUICreate("Funkey's OwnTab-UDF Example 2", 500, 345)
GUISetBkColor(0xbbbbbb)
Local $aTabText[4] = ["Item 1", "Much More Longer Item 2", "Pic", "Status"] ;Declare the regions for the OwnTab-control
Global $aCtrlTab = _OwnTabCreate($aTabText, 10, 10, 480, 300, 25, 0xD5D5D5, 0xCFE0E7, 0xCFE0E7)
Local $aTabTip[4] = ["Tip Item 1", "Tip Item 2", "Tip Item 3", "Tip Item 4"]
_OwnTabSetTip($aCtrlTab, $aTabTip) ;set the tooltips for the OwnTab-control
#Region Tab1
_OwnTabAdd($aCtrlTab) ;Start controls tab1
Global $Edit1 = GUICtrlCreateEdit("Edit in Tab1", 20, 50, 300, 50, 0)
Global $Button1 = GUICtrlCreateButton("Simulate an alarm", 20, 120, 300, 20)
#EndRegion Tab1
#Region Tab2
_OwnTabAdd($aCtrlTab) ;Start controls tab2
Global $Edit2 = GUICtrlCreateEdit("Edit in Tab2", 20, 150, 300, 50, 0)
Global $Label2 = GUICtrlCreateLabel("Label in Tab2", 20, 220, 300, 20, 0x201)
GUICtrlSetBkColor(-1, -2) ;$GUI_BKCOLOR_TRANSPARENT
#EndRegion Tab2
#Region Tab3
_OwnTabAdd($aCtrlTab) ;Start controls tab3
Global $Edit3 = GUICtrlCreatePic(@DocumentsCommonDir & '\Eigene Bilder\Beispielbilder\Winter.jpg', 20, 45, 460, 280)
#EndRegion Tab3
#Region Tab4
_OwnTabAdd($aCtrlTab) ;Start controls tab4
Global $Button4 = GUICtrlCreateButton("Acknowledge the alarm", 20, 120, 300, 20)
#EndRegion Tab4
_OwnTabEnd($aCtrlTab) ;End OwnTab
_OwnTabSwitch($aCtrlTab, 1) ;inizialize the OwnTab
GUISetState()
_OwnTabHover($aCtrlTab, 0xFFFF88) ;start hover-function if you want
Local $msg
Do
$msg = GUIGetMsg()
For $a = 1 To UBound($aCtrlTab, 1) - 1
If $msg = $aCtrlTab[$a][0] Then
_OwnTabSwitch($aCtrlTab, $a)
_Function($a)
EndIf
Next
If $msg = $Button1 Then _OwnTabSetAlarm($aCtrlTab, 4, 0xFF0000, 0xFF0000)
If $msg = $Button4 Then _OwnTabReSetAlarm($aCtrlTab, 4)
Sleep(10)
Until $msg = -3
Func _Function($iIndex)
MsgBox(0, "OwnTab-Control", "Es wurde Register " & $iIndex & " ausgewählt.")
EndFunc ;==>_Function
Das kannst du doch machen wie du gerade lustig bist.