überprüfen ob ein tabsheet offen ist

[omer36]

also kurz gesagt:

ich habe mehrere tabsheet´s und würde gerne wissen, wie manns überprüft, welches grade "an" ist...


hab schon neweile gesucht, aber nix brauchbares gefunden...

mfg

[bassbanane]

Wäre praktisch wenn du uns sagst welches Programm du meinst.
Es gibt tausende Programme die Tabs haben.

[omer36]

hmm... mal überlegen...
wir sind hier im autoit bereich...

hmmm....


€nochmal ausfürhlicher

hab 3-4tabsheets, und in jedem ist eine edit...noch dazu ein button.
jenach welches tabsheet offen ist, soll die edit in dem offenen sheet geleert werden..

[bassbanane]

Schau dir mal den Befehl _GUICtrlTab_GetCurSel an

[suiluJ.]

Entweder:

 Spoiler

Func GetSelTab($Hwnd)
 Local $msg, $i= GUICtrlRead($Hwnd,1)
 Switch $i
        case $Tab1
        $msg = "Tab1"
	Case $Tab2
	$msg = "Tab2"
 EndSwitch
return $msg
EndFunc

$msg=GetSelTab($Hwnd)
If $msg="Tab1" Then
MsgBox(0,"Tab","Tab 1 ist offen")
Endif 
If $msg="Tab2" Then
MsgBox(0,"Tab","Tab 2 ist offen")
Endif

Oder:

 Spoiler

#include <GUITab.au3>
$msg=_GUICtrlTab_GetCurSel($Tab)
If $msg="Tab1" Then
MsgBox(0,"Tab","Tab 1 ist offen")
Endif 
If $msg="Tab2" Then
MsgBox(0,"Tab","Tab 2 ist offen")
Endif 
EndFunc

[PenGuin :O]

Quick 'n Dirty hier im "Direkt antworten":

#include <GUITab.au3>

Global $iTab = -1

AdlibRegister("_CheckTab", 20)

While Sleep(50)
WEnd

Func _CheckTab()
$iActTab = GUICtrlTab_GetCurSel($hGUI) ;GUI-Handle hier hin

If $iActTab <> $iTab Then
ConsoleWrite("Tab " & ($iActTab + 1) & @CRLF)
$iTab = $iActTab
EndFunc

Bei Fehler: Meldung posten, ich verbesser.

[omer36]

hmm.. iwie kapier ich das nihct so wirklich
wie müsste es hier aussehen, währe nett, wenn mal einer das machen könnte...

 Spoiler

PHP Code:

#include <GUITab.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 293, 385, 192, 124)
$Tab1 = GUICtrlCreateTab(4, 4, 277, 281)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Edit1 = GUICtrlCreateEdit("", 12, 44, 265, 233)
GUICtrlSetData(-1, "Edit1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Edit2 = GUICtrlCreateEdit("", 8, 40, 269, 241)
GUICtrlSetData(-1, "Edit2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$Edit3 = GUICtrlCreateEdit("", 12, 36, 261, 245)
GUICtrlSetData(-1, "Edit3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$Edit4 = GUICtrlCreateEdit("", 16, 52, 249, 229)
GUICtrlSetData(-1, "Edit4")
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("löschen", 44, 296, 129, 65, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

EndSwitch
WEnd 


also wenn zb tabsheet1 offen ist, und der button gedrückt wird, wird nur die edit1 geleert, wenn tabsheet2 offen ist, die edit2.. usw...

mfg

[| Moep |]

Zwar nicht so exotisch wie die anderen Versuche, aber funktionsgähig...

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 293, 385, 192, 124)
$Tab1 = GUICtrlCreateTab(4, 4, 277, 281)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Edit1 = GUICtrlCreateEdit("", 12, 44, 265, 233)
GUICtrlSetData(-1, "Edit1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Edit2 = GUICtrlCreateEdit("", 8, 40, 269, 241)
GUICtrlSetData(-1, "Edit2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$Edit3 = GUICtrlCreateEdit("", 12, 36, 261, 245)
GUICtrlSetData(-1, "Edit3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$Edit4 = GUICtrlCreateEdit("", 16, 52, 249, 229)
GUICtrlSetData(-1, "Edit4")
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("löschen", 44, 296, 129, 65, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Switch GUICtrlRead($Tab1)
				Case 0
					GUICtrlSetData($Edit1, "")
				Case 1
					GUICtrlSetData($Edit2, "")
				Case 2
					GUICtrlSetData($Edit3, "")
				Case 3
					GUICtrlSetData($Edit4, "")
			EndSwitch
	EndSwitch
WEnd

Edit, hab mal noch die überflüssigen includes entfernt, war ja nicht mit anzusehen

[omer36]

danke danke, genau sowas wollte ich ^^