1.- Cuando abro un opción de menú me sale la ventana hija , hasta aquí , todo perfecto. Pero si intento abrir otra opción del menú no me abre la otra ventana hija, tengo que cerrar la otra ventana.
2.-Cuando pulso en la ventana padre ($MainForm) no me cierra todas las ventanas, me cierra solo la ventana hija abierta y tengo que pulsar otra vez para cerrar la ventana padre.
Código: Seleccionar todo
#include <GuiEdit.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TabConstants.au3>
$MainForm = GUICreate("aplitec",@DesktopWidth,@DesktopHeight-30,0,0)
$ParentWin_Pos = WinGetPos($Mainform, "")
;Menú
$Menu = GUICtrlCreateMenu("Archivos ")
$Options = GUICtrlCreateMenuItem("Serie", $Menu)
$nuevo = GUICtrlCreateMenuItem("Forma de pagos", $Menu)
;$SaveItem = GUICtrlCreateMenuItem("Almacen", $Menu)
;$PrintItem = GUICtrlCreateMenuItem("", $Menu)
;$MenuSep1 = GUICtrlCreateMenuItem("", $Menu)
;$RunScriptItem = GUICtrlCreateMenuItem("", $Menu)
;$MenuSep1 = GUICtrlCreateMenuItem("", $Menu)
$ExitItem = GUICtrlCreateMenuItem("Salir", $Menu)
GUISetState()
debut()
Func debut()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISwitch($MainForm)
GUIDelete()
Exit
Case $Options
serie()
Case $nuevo
nuevo()
Case $ExitItem
GUISwitch($MainForm)
GUIDelete()
Exit
EndSwitch
WEnd
EndFunc
Func serie()
$Preferences = GUICreate("Child Se", 600, 400, $ParentWin_Pos[0] + 300, $ParentWin_Pos[1] + 200, -1, -1, $MainForm)
$PageControl1 = GUICtrlCreateTab(8, 8, 580, 377)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("Général")
$Label1 = GUICtrlCreateLabel("Titre par défaut :", 32, 56, 84, 18)
$titreDefaut = GUICtrlCreateInput("", 120, 53, 265, 22)
GUICtrlCreateTabItem("")
$OK = GUICtrlCreateButton("&OK", 246, 272, 75, 25, $WS_GROUP)
$Annuler = GUICtrlCreateButton("Annuler", 326, 272, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
;GUISetState(@SW_DISABLE, $MainForm)
;$titreIni=IniRead("options.ini","Options","titre","")
;GUICtrlSetData($titreDefaut,$titreIni)
While 1
$pMsg = GUIGetMsg()
Select
Case $pMsg=$GUI_EVENT_CLOSE Or $pMsg=$Annuler
GUISetState(@SW_ENABLE, $MainForm)
GUISwitch($MainForm)
GUIDelete($Preferences)
Return
Case $pMsg=$OK
;$titre=GUICtrlRead($titreDefaut)
;IniWrite("Options.ini","Options","titre",$titre)
GUISwitch($MainForm)
GUIDelete($Preferences)
Return
EndSelect
WEnd
EndFunc
Func nuevo()
$nuevowin = GUICreate("Forma de pago", 600, 400, $ParentWin_Pos[0] + 300, $ParentWin_Pos[1] + 200, -1, -1, $MainForm)
$PageControl1 = GUICtrlCreateTab(8, 8, 580, 377)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("Général")
$Label1 = GUICtrlCreateLabel("Titre par défaut :", 32, 56, 84, 18)
$titreDefaut = GUICtrlCreateInput("", 120, 53, 265, 22)
GUICtrlCreateTabItem("")
$OK = GUICtrlCreateButton("&OK", 246, 272, 75, 25, $WS_GROUP)
$Annuler = GUICtrlCreateButton("Annuler", 326, 272, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
;GUISetState(@SW_DISABLE, $MainForm)
;$titreIni=IniRead("options.ini","Options","titre","")
;GUICtrlSetData($titreDefaut,$titreIni)
While 1
$puMsg = GUIGetMsg()
Select
Case $puMsg=$GUI_EVENT_CLOSE Or $puMsg=$Annuler
GUISetState(@SW_ENABLE, $MainForm)
GUISwitch($MainForm)
GUIDelete($nuevowin)
Return
Case $puMsg=$OK
;$titre=GUICtrlRead($titreDefaut)
;IniWrite("Options.ini","Options","titre",$titre)
GUISwitch($MainForm)
GUIDelete($nuevowin)
Return
EndSelect
WEnd
EndFunc
Aplitec