Tab button/ label... doenst load right

[Headsniper1997]

Hello,

i´ve got a problem with tabsheets

i created a little Hospitalsimulator. But when i start the Script the first side doenst show the content right, only if i click on a other page and click back to the first page it will be shown right

 

expandcollapse popup

#include <INet.au3>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>

;Global $aArray[4] = ["Paracetamol 1g  i.v. bei Bedarf" , "Novalgin 1g  p.o.  1-1-1-1"]
;Global $Linie1 = FileReadLine ("Anordnungen.txt", 1)
$sList = ""
;For $i = 0 To UBound($aArray) - 1
 ;   $sList &= "|" & $aArray[$i]
;Next

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Patientensim", 615, 437, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 615, 437)
$TabSheet1 = GUICtrlCreateTabItem("Fallbeschreibung")
            ;GUISwitch($Form1,$Tabsheet1)
            ;GUICtrlSetState(-1, $GUI_SHOW)
            $Label4 = GUICtrlCreateLabel("Herr Peters ist 56 Jahre alt und gibt bei der Anamnese Husten und ein Rasseln auf der Lunge an. Bei der Vitalzeichenmessung stellte sich eine erhöhte Temperatur raus.", 50 , 50, 500, 300)
$TabSheet2 = GUICtrlCreateTabItem("Patientenbett")
            GUISwitch($Form1,$Tabsheet2)
            $Pic1 = GUICtrlCreatePic("C:\Users\axelf\Desktop\patbett.jpg", 216, 48, 321, 337)
            $Button1 = GUICtrlCreateButton("Aktueller Zustand", 40, 50, 153, 57)
$TabSheet3 = GUICtrlCreateTabItem("Anordnungen")
            GUISwitch($Form1,$Tabsheet3)
            local $Linie1 = FileReadLine ("Anordnungen.txt", 1)
            local $Linie2 = FileReadLine ("Anordnungen.txt", 2)
            $Label1 = GUICtrlCreateLabel("Aktuelle Medikamentenanordnungen", 50 , 50, 200, 20)
            $Label3 = GUICtrlCreateLabel("Medikament 1", 50 , 103, 100, 20)
            $hCombo = GUICtrlCreateCombo($Linie1, 250, 100, 200, 20)
            $hCombo1 = GUICtrlCreateCombo($Linie2, 250, 153, 200, 20)
            $Label2 = GUICtrlCreateLabel("Medikament 2", 50 , 153, 100, 20)
            $Button_Speichern = GUICtrlCreateButton("Anordnung aktuallisieren", 40, 250, 153, 57)
            $Button_abrufen = GUICtrlCreateButton("Anordnung abrufen", 250, 250, 153, 57)
            GUICtrlCreateTabItem("")
            ;GUISetState(@SW_SHOW)
            GUICtrlSetData($hCombo, "Inhalation mit NaCl 3% 1-1-1-1|Paracetamol 1g  i.v. bei Bedarf")
            GUICtrlSetData($hCombo1, "Inhalation mit NaCl 3% 1-1-1-1|Paracetamol 1g  i.v. bei Bedarf")
            GUISetState()
$TabSheet4 = GUICtrlCreateTabItem("Diagnosen")
            GUISwitch($Form1,$Tabsheet4)
            $Button3 = GUICtrlCreateButton("Diagnose Stellen", 40, 50, 153, 57)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
            $Line1 = FileReadLine ("Anordnungen.txt", 1)
            $Line2 = FileReadLine ("Anordnungen.txt", 2)

            If Not FileExists("C:\Users\axelf\Desktop\Anordnungen.txt") Then
            $Line1 = ""
            EndIf


            if $Line1 = "" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich habe 39°C gemessen und huste sehr verschleimt")
            EndIf

            If $Line1 = "Paracetamol 1g  i.v. bei Bedarf" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Beim messen sind es jetzt 37,3°C")
            ElseIf $Line2 = "Paracetamol 1g  i.v. bei Bedarf" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Beim messen sind es jetzt 37,3°C")
            EndIf

            If $Line1 = "Inhalation mit NaCl 3% 1-1-1-1"  Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich kann auch schon viel besser atmen und der Husten und Schleim ist auch nicht mehr so schlimm")
            ElseIf $Line2 = "Inhalation mit NaCl 3% 1-1-1-1" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich kann auch schon viel besser atmen und der Husten und Schleim ist auch nicht mehr so schlimm")
            EndIf


         Case $Button_Speichern
               FileDelete ("Anordnungen.txt")
               $C= GUICtrlRead($hCombo)
               $C1= GUICtrlRead($hCombo1)
               FileWrite ("Anordnungen.txt", $C & @CRLF & $C1)

               Case $Button_abrufen
                  $Fread = FileRead("Anordnungen.txt")

                  MsgBox (1, "Werte", "Das sind die aktuellen anordnungen:" & @CRLF & $Fread & @CRLF)


    EndSwitch
WEnd

 

[faustf]

for me with last version of autoit in windows 10 work great

[Headsniper1997]

 

this how it looks like at my PC, also with the last version

[Headsniper1997]

ah now its working, i deleted

 

GUICtrlCreateTabItem("")
GUISetState()

at tabsheet 3 now its working greate with this final code

 

expandcollapse popup

#include <INet.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>

$sList = ""


#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Patientensim", 615, 437, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 615, 437)

$TabSheet1 = GUICtrlCreateTabItem("Fallbeschreibung")
            $Label4 = GUICtrlCreateLabel("Herr Peters ist 56 Jahre alt und gibt bei der Anamnese Husten und ein Rasseln auf der Lunge an. Bei der Vitalzeichenmessung stellte sich eine erhöhte Temperatur raus.", 50 , 50, 500, 300)


$TabSheet2 = GUICtrlCreateTabItem("Patientenbett")
            GUISwitch($Form1,$Tabsheet2)
            $Pic1 = GUICtrlCreatePic("C:\Users\axelf\Desktop\patbett.jpg", 216, 48, 321, 237)
            $Button1 = GUICtrlCreateButton("Aktueller Zustand", 40, 50, 153, 57)


$TabSheet3 = GUICtrlCreateTabItem("Anordnungen")
            GUISwitch($Form1,$Tabsheet3)
            local $Linie1 = FileReadLine ("Anordnungen.txt", 1)
            local $Linie2 = FileReadLine ("Anordnungen.txt", 2)
            $Label1 = GUICtrlCreateLabel("Aktuelle Medikamentenanordnungen", 50 , 50, 200, 20)
            $Label3 = GUICtrlCreateLabel("Medikament 1", 50 , 103, 100, 20)
            $hCombo = GUICtrlCreateCombo($Linie1, 250, 100, 200, 20)
            $hCombo1 = GUICtrlCreateCombo($Linie2, 250, 153, 200, 20)
            $Label2 = GUICtrlCreateLabel("Medikament 2", 50 , 153, 100, 20)
            $Button_Speichern = GUICtrlCreateButton("Anordnung aktuallisieren", 40, 250, 153, 57)
            $Button_abrufen = GUICtrlCreateButton("Anordnung abrufen", 250, 250, 153, 57)
            GUICtrlSetData($hCombo, "Inhalation mit NaCl 3% 1-1-1-1|Paracetamol 1g  i.v. bei Bedarf")
            GUICtrlSetData($hCombo1, "Inhalation mit NaCl 3% 1-1-1-1|Paracetamol 1g  i.v. bei Bedarf")

$TabSheet4 = GUICtrlCreateTabItem("Diagnosen")
            GUISwitch($Form1,$Tabsheet4)
            $Button3 = GUICtrlCreateButton("Diagnose Stellen", 40, 50, 153, 57)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
            $Line1 = FileReadLine ("Anordnungen.txt", 1)
            $Line2 = FileReadLine ("Anordnungen.txt", 2)

            If Not FileExists("C:\Users\axelf\Desktop\Anordnungen.txt") Then
            $Line1 = ""
            EndIf


            if $Line1 = "" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich habe 39°C gemessen und huste sehr verschleimt")
            EndIf

            If $Line1 = "Paracetamol 1g  i.v. bei Bedarf" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Beim messen sind es jetzt 37,3°C")
            ElseIf $Line2 = "Paracetamol 1g  i.v. bei Bedarf" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Beim messen sind es jetzt 37,3°C")
            EndIf

            If $Line1 = "Inhalation mit NaCl 3% 1-1-1-1"  Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich kann auch schon viel besser atmen und der Husten und Schleim ist auch nicht mehr so schlimm")
            ElseIf $Line2 = "Inhalation mit NaCl 3% 1-1-1-1" Then
            MsgBox (1, "Aktueller Zustand", "Herr Peters:" & @CRLF & "Ich kann auch schon viel besser atmen und der Husten und Schleim ist auch nicht mehr so schlimm")
            EndIf


         Case $Button_Speichern
               FileDelete ("Anordnungen.txt")
               $C= GUICtrlRead($hCombo)
               $C1= GUICtrlRead($hCombo1)
               FileWrite ("Anordnungen.txt", $C & @CRLF & $C1)

               Case $Button_abrufen
                  $Fread = FileRead("Anordnungen.txt")

                  MsgBox (1, "Werte", "Das sind die aktuellen anordnungen:" & @CRLF & $Fread & @CRLF)


    EndSwitch
WEnd