Tab-Menü über Schleife erstellen lassen

JBO

Ich hab im Grunde alles so gemacht, wie es das Tutorial es auf https://www.autoitscript.com/wiki/Tabs beschrieben ist.

Code

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)

$cTab = GUICtrlCreateTab(10, 10, 480, 350)
$cTab_0 = GUICtrlCreateTabItem("Tab 0")
$cTab_1 = GUICtrlCreateTabItem("Tab 1")
GUICtrlCreateTabItem("")

$cButton = GUICtrlCreateButton("Add controls", 10, 450, 80, 30)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cButton
            ; Correct
            GUISwitch($hGUI, $cTab_0)
            GUICtrlCreateLabel("Only on Tab 0", 40, 40, 200, 20)
            GUICtrlSetBkColor(-1, 0xCCFFCC)
            GUICtrlCreateTabItem("")
            GUISwitch($hGUI)
            ; Incorrect
            GUICtrlCreateLabel("OnTab 0 AND Tab 1", 40, 100, 200, 20)
            GUICtrlSetBkColor(-1, 0xFFCCCC)
    EndSwitch
WEnd

Alles anzeigen

Micha_he

Bin gerade am testen... Scheinbar funktioniert das GUISwitch() nicht wie wir beide es nutzen, die Objecte werden direkt auf der GUI und nicht auf dem Tabitem erzeugt. Ich habe aber den Grund noch nicht gefunden.

JBO

Zitat von Micha_he

die Objecte werden direkt auf der GUI und nicht auf dem Tabitem erzeugt

ja, das hab ich auch schon festgestellt.

Zitat von Micha_he

Ich habe aber den Grund noch nicht gefunden.

Den such ich jetzt schon seit ein paar Tagen -.-

JBO

Ich hab grade mal das $WS_CHILD aus dem Style für die GUI raus genommen. Dann wird es zwar nicht mehr über das Haupt-GUI gelegt, aber dann sind die Tabs alle richtig!

Also stellt sich jetzt die Frage, wie ich beides haben kann?

JBO

SOOO, nach langem "Hin und Her":

Code

Const $hRAWExportGUI = GUICreate( "", 600, 400, 0, 0, BitOR( $WS_POPUP, $WS_VISIBLE ), $WS_EX_MDICHILD, $hGUI)

Vielen Dank Euch allen für die HILFE!

Schöne Feiertage Euch allen!!!!

Velted

Hallo,

das Problem ist zwar schon gelöst, es hat mich aber trotzdem interessiert. Nach meinen Tests entsteht das Problem beim Zusammentreffen von $WS_EX_COMPOSITED und einem Tab-Control im Hauptfenster oder einem 'echten' Kindfenster ($WS_CHILD). $WS_EX_MDICHILD erzeugt offenbar einen anderen Fenstertyp:

C

#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

CreateGUI(0, "Null")

CreateGUI($WS_EX_COMPOSITED, "WS_EX_COMPOSITED")

MsgBox(0, "Und Tschüss!"

Func CreateGUI($ExStyleNumber, $ExStyleName)
   Local $sMsg
   Local $hGUI = GUICreate( "Beispiel mit ExStyle " & $ExStyleName, 600, 417, Default, Default, Default, BitOR($ExStyleNumber, $GUI_WS_EX_PARENTDRAG) )
   GUICtrlCreateTab( 10, 80, 580, 280 )
   For $I = 0 TO 2
      GUICtrlCreateTabItem( "Tab " & $I )
      $X = 20
      $Y = 110
      For $J = 0 TO 4
         GUICtrlCreateEdit( "Edit " & $J, $X, $Y + $J * 20, 80, 20, $ES_READONLY )
      Next
   Next
   GUICtrlCreateTabItem( "" )
   GUISetState( @SW_SHOW )

   While 1
      $sMsg = GUIGetMsg()
      Switch $sMsg
         Case $GUI_EVENT_CLOSE
            ExitLoop
      EndSwitch
   WEnd
   GUIDelete($hGUI)
EndFunc

Alles anzeigen

Eigentlich sollte das schon einmal aufgefallen sein. Ich habe aber keine Lust, danach zu suchen.

JBO 22. Dezember 2021 um 16:00