Hallo,
ich habe folgendes Problem.
Ich fülle in einem Formular die Eingabefelder und möchte dann ein anderes Formular öffnen und die Daten dort (formatiert) anzeigen.
Aber es klappt nicht. Statt mir den Feldinhalt anzuzeigen, zeigt er nur 5 an. Anbei mein Code.
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
;#include "_ArraySize.au3"
Dim $v_Text1,$v_Text2,$v_Text3,$v_Text4, $v_EURO1,$v_EURO2
dim $Computername
dim $user_name
dim $v_user_name, $v_string
Dim $zaehler = -1 ; Indexwert vor erstem Eintrag
Dim $v_AUSRICHTUNG = ""
Dim $v_Format = ""
Dim $v_update = "N"
Dim $v_vorlname = "Vorlagenname falsch"
Dim $v_Anzahl = "0"
Dim $v_art17 = "0"
dim $anz_eintraege_array
dim $i
dim $string
#Region ### START Koda GUI section ### Form=c:\autoit\standard.kxf
$Standard = GUICreate("Standard", 850, 671, 5, 5)
GUISetFont(10, 400, 0, "Arial")
$Hersteller = GUICtrlCreateLabel("Hersteller/Artikel:", 16, 8, 112, 20)
$Standard_Text1 = GUICtrlCreateInput("", 160, 8, 300, 24)
GUICtrlSetLimit(-1, 25)
$Standard_Text2 = GUICtrlCreateInput("", 160, 32, 300, 24)
GUICtrlSetLimit(-1, 25)
$Standard_Text3 = GUICtrlCreateInput("", 160, 56, 300, 24)
GUICtrlSetLimit(-1, 25)
$Highlight = GUICtrlCreateLabel("Highlight:", 16, 88, 58, 20)
$Standard_Text5 = GUICtrlCreateInput("", 160, 88, 300, 24)
GUICtrlSetLimit(-1, 25)
$Artikelbeschreibung = GUICtrlCreateLabel("Artikelbeschreibung:", 16, 120, 122, 20)
$Standard_Text4 = GUICtrlCreateInput("", 160, 120, 300, 24)
GUICtrlSetLimit(-1, 200)
$VK = GUICtrlCreateLabel("VK:", 16, 232, 26, 20)
$Standard_EURO1 = GUICtrlCreateInput("", 160, 232, 121, 24)
$UVP = GUICtrlCreateLabel("UVP", 16, 280, 31, 20)
$Label1 = GUICtrlCreateLabel("VK bisher:", 16, 256, 65, 20)
$Standard_EURO2 = GUICtrlCreateInput("", 160, 256, 121, 24)
$Standard_ART14 = GUICtrlCreateCombo("", 160, 280, 121, 25,$CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "1 UVP|2 ehem. UVP")
$Groesse = GUICtrlCreateLabel("Größe:", 500, 8, 45, 20)
$Standard_Format = GUICtrlCreateCombo("", 600, 8, 169, 25,$CBS_DROPDOWNLIST+$WS_VSCROLL)
GUICtrlSetData(-1, "A0 hoch|A0 quer|A1 hoch|A1 quer|A2 hoch|A2 quer|A3 hoch|A3 quer|A4 hoch|A4 quer|A5 hoch|A6 hoch|A6 quer|Etikett 1|Etikett 2|Etikett 3","A3 hoch")
$Anzahl = GUICtrlCreateLabel("Anzahl:", 500, 40, 48, 20)
$Standard_DruckAnz = GUICtrlCreateInput("1", 600, 40, 153, 24)
$Standard_Button_Hauptmenue = GUICtrlCreateButton("<< Hauptmenü", 24, 616, 200, 41, 0)
$Standard_Button_anzeigen = GUICtrlCreateButton("anzeigen", 300,616,200,41,0)
$Standard_Button_speichern = GUICtrlCreateButton("speichern", 500, 616, 200, 41, 0)
;GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt ("GUIOnEventMode",1)
;events
;GUISetOnEvent($GUI_EVENT_CLOSE, "onexit")
GUICtrlSetOnEvent($Standard_Button_speichern,"_Standard_speichern")
GuiCtrlSetonEvent($Standard_Button_anzeigen,"_Plakat_anzeigen")
GUICtrlSetOnEvent($Standard_Button_Hauptmenue,"_Hauptmenue")
;PLAKAT Standard
#Region ### START Koda GUI section ### Form=c:\autoit\plakat.kxf
$Plakat = GUICreate("Plakat Standard", 850, 671, 5, 5)
GUISetFont(10, 400, 0, "Arial")
$Hersteller_Text1 = GUICtrlCreateLabel((GUICtrlRead($Standard_Text1)), 30, 8, 500, 50)
GUICtrlSetFont(-1, 20, 600, 2, "Arial")
$Hersteller_Text2 = GUICtrlCreateLabel($Standard_Text2, 30, 50, 500, 50)
GUICtrlSetFont(-1, 20, 600, 2, "Arial")
$Preis = GUICtrlCreateLabel(GUICtrlRead($Standard_EURO1), 30, 150, 300, 80)
guictrlsetfont(-1, 50, 800,2,"Arial")
GUICtrlSetColor(-1, 0xff0000) ; Rot
$Plakate_Button_zurueck = GUICtrlCreateButton("<< zurück", 24, 616, 250, 41, 0)
;GUISetState(@SW_SHOW)
;guisetstate(@SW_HIDE,$Standard)
#EndRegion ### END Koda GUI section ###
Opt ("GUIOnEventMode",1)
;events
GUICtrlSetOnEvent($Plakate_button_zurueck, "_zurueck_Standard")
#Region ### START Koda GUI section ### Form=hauptmenue.kxf
$Hauptmenue = GUICreate("- Hauptmenue - ", 700, 780, 5, 5)
$Label1 = GUICtrlCreateLabel("Was möchten Sie erstellen?", 64, 16, 475, 36)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button_Standard = GUICtrlCreateButton("Standard", 80, 70, 270, 40, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button_beenden = GUICtrlCreateButton("beenden", 80, 655, 270, 40, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Opt("GuiOnEventMode",1)
;events #########
GUICtrlSetOnEvent($Button_Standard,"_Fenster_Standard")
GUICtrlSetOnEvent($Button_beenden,"_Beenden")
;**********************************************************************************************************************
GUISwitch($Hauptmenue)
GUISetState(@SW_SHOW,$Hauptmenue)
;***********************************************************************************************************************
While 1
Sleep (500)
WEnd
Func _Fenster_standard()
GUISetState(@sw_show,$Standard)
GUISetState(@sw_hide,$Hauptmenue)
endfunc
Func _Hauptmenue()
GUISetState(@SW_SHOW,$Hauptmenue)
GUISetState(@SW_HIDE,$Standard)
EndFunc
Func _beenden()
$iMsgBoxAnswer= msgbox(36,"exit","Wirklich beenden?")
Select
Case $iMsgBoxAnswer = 6 ;Ja
Exit
Case $iMsgBoxAnswer = 7 ;Nein
EndSelect
EndFunc
FUNC _Standard_speichern()
msgbox (0,"Speichern","Hier ist normalerweise die Speicherfunktion hinterlegt")
EndFunc
Func _Plakat_anzeigen()
msgbox (0,"XXX","Standard")
msgbox (0,"text 1",GUICtrlRead($Standard_Text1))
msgbox (0,"text 2",GUICtrlRead($Standard_Text2))
msgbox (0,"euro 1",GUICtrlRead($Standard_euro1))
GUISetState(@SW_SHOW,$Plakat)
;guisetstate(@SW_HIDE,$Standard)
EndFunc
func _zurueck_Standard()
GUISetState(@SW_HIDE,$Hauptmenue)
GUISetState(@SW_SHOW,$Standard)
GUISetState(@SW_HIDE,$Plakat)
EndFunc