Sieht ziemlich gut aus. Ich habe versucht mit dem UDF etwas auf die Schnelle zu basteln, bin da aber auch gleich in ein Problem reingelaufen.
Wenn ich ein Button, Radio Buttons oder eine Input box über die Ribbonsbar positioniere funktionieren die nicht. Was mache ich da falsch?
Spoiler anzeigen
#include 'modernGui.au3'
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiTab.au3>
#Include <GuiButton.au3>
#Include <GuiEdit.au3>
#Include <GuiListBox.au3>
$MAIN_WINDOW = GUICreate ( "SDOC2", 620,500 ,-1,-1 )
GUISetBkColor( 0x99B9E3 )
$hBar = _modernGui_Bar_Create($MAIN_WINDOW, 0, 0, 800 ,0 )
$hMain = _modernGui_Bar_CreateTab( $hBar , ' Main ' )
$hMain_Area_Credentials = _modernGui_Bar_CreateTabArea ( $hMain, 'Credentials' , 220 )
$hMain_Area_Format = _modernGui_Bar_CreateTabArea ( $hMain, 'Output format' , 170 )
$hMain_Area_Status = _modernGui_Bar_CreateTabArea ( $hMain, 'Status' , 200 )
$Button_Einfuegen1 = _modernGui_Bar_CreateGrandButton($hMain_Area_Credentials,@ScriptDir&'\images\icons\513.png')
$hScan = _modernGui_Bar_CreateTab( $hBar , ' Scan ' )
$hScan_Area_Settings = _modernGui_Bar_CreateTabArea ( $hScan, ' Settings ' , 300)
$hExport = _modernGui_Bar_CreateTab( $hBar , ' Export ' )
$hExport_Area_Format = _modernGui_Bar_CreateTabArea ( $hExport, ' Format ' , 300)
_modernGui_Bar_SetVisibleTab( $hMain)
$Tab = GUICtrlCreateTab(0, 25, 619, 470, $TCS_FIXEDWIDTH) ;~ =========================================== Create Tabs
;$hTab = GUICtrlGetHandle($Tab)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet0") ; ------- TAB 1 Start
$InpUserID = GUICtrlCreateInput("Domain\UserID", 70, 38, 137, 20)
$InpPassword = GUICtrlCreateInput("Password", 70, 65, 137, 21, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$Radio_TXT = GUICtrlCreateRadio("Text", 250, 50, 50, 17)
$Radio_OnlyDB = GUICtrlCreateRadio("DB", 330, 50, 40, 17)
$Systeminput = GUICtrlCreateInput("", 60, 155, 200, 22)
$Button_1 = GUICtrlCreateButton("Add System", 320, 155, 91, 25, $BS_DEFPUSHBUTTON)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet1") ; ------- TAB 2 Start
$Eulatext = @CRLF & @TAB & "Bla Bla Bla Bla" & @CRLF & @CRLF & _
@TAB & "Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla " & @CRLF & @CRLF & _
@TAB & "Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla Bla" & @CRLF & _
@TAB & "Bla Bla Bla Bla" & @CRLF & _
@TAB & "Bla Bla Bla Bla" & @CRLF
$Label_EulaText = GUICtrlCreateLabel($Eulatext, 15, 137, 590, 330, -1, -1)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0x00344D)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet3") ; ------- TAB 3 Start
$Button_2 = GUICtrlCreateButton("Button_1", 40, 45, 91, 25)
GUICtrlSetState($Tab, $GUI_HIDE)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $Button_1
MsgBox (64,"test_1", "Button 1 funktionirt")
Case $Button_2
MsgBox (64,"test_2", "Button 2 funktionirt")
Case -3
Exit
EndSwitch
Switch _modernGui_Bar_GetMsg($MAIN_WINDOW)
Case $hMain
_modernGui_Bar_SetVisibleTab( $hMain )
_GUICtrlTab_SetCurFocus($Tab, 0)
Case $hScan
_modernGui_Bar_SetVisibleTab( $hScan)
_GUICtrlTab_SetCurFocus($Tab, 1)
Case $hExport
_modernGui_Bar_SetVisibleTab( $hExport )
_GUICtrlTab_SetCurFocus($Tab, 2)
GUISetState(@SW_SHOW, $MAIN_WINDOW)
EndSwitch
WEnd