Deutsches AutoHotkey Homepage AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
 
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

variable in Gui, Add, ComboBox

 
Neues Thema eröffnen   Neue Antwort erstellen    AutoHotkey Community Foren-Übersicht -> Ich brauche Hilfe!
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
fredchf



Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland

BeitragVerfasst am: Fr Okt 27, 2006 11:13 am    Titel: variable in Gui, Add, ComboBox Antworten mit Zitat

hallo,
meine gui soll mein kleines backupprogramm verwalten und steuern helfen.
im tab einstellungen habe ich eine ComboBox die den gewählten beziehungsweise den eingegebenen wert in eine ini-datei schreiben soll.
Code:
Gui, Add, ComboBox, ginterv2 vinterva R10 x6 y43 w80 h30 , 1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30

2 probleme:
    die variable vinterva bleibt leer
    ginterv2 wird schon nach tippen der ersten zahl ausgelöst und verhindert so,das ein mehrstelliger wert eingegeben werden kann


das komplette script ist hier:
LSTGui.ahk
diese dateien gehören zum script:
Backup1.ahk
mybackup.ini
Backup2.lst

Question
_________________
Mit freundlichen Grüßen
fredchf
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
AGU
Gast





BeitragVerfasst am: Fr Okt 27, 2006 1:19 pm    Titel: Antworten mit Zitat

Kann deine ComboBox in deinem (kompletten) Script nicht finden.

Zitat:
die variable vinterva bleibt leer
Erst ein Gui, Submit, NoHide füllt die angeschlossene Variable.

Zitat:
ginterv2 wird schon nach tippen der ersten zahl ausgelöst und verhindert so,das ein mehrstelliger wert eingegeben werden kann
Was das gLabel deiner Combobox angeht, ein Zitat aus der Doku:
Zitat:
A g-label such as gMySubroutine may be listed in the control's options. This would cause the MySubroutine label to be launched automatically whenever the user selects a new item.

Wenn du also in den Code deiner Subroutine ein Gui, Submit, NoHide mit reinnimmst, sollte eigentlich bei einer mehrstelligen Eingabe spätestens bei Eingabe der zweiten Zahl der richtige Eintrag ausgewählt und dementsprechend auch der Variablen zugewiesen werden.
Weiteres könnte man aber erst sagen, wenn du die "interv2" Subroutine reinstellst.
____________________
Gruß
AGU
Nach oben
fredchf



Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland

BeitragVerfasst am: Sa Okt 28, 2006 4:15 am    Titel: Antworten mit Zitat

hallo agu,
danke für deine antwort.Very Happy
Zitat:
Kann deine ComboBox in deinem (kompletten) Script nicht finden.

sorry ,
habe eine falsche version hochgeladen,korrigiert!!
,
,
Zitat:
Gui, Submit, NoHide

mein englisch ist nicht gut,in der doku habe ich keine beispiele dazu gefunden.
weiß also immer noch nicht wie der befehl in mein script eingebaut werden muß
_________________
Mit freundlichen Grüßen
fredchf
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
fredchf



Anmeldedatum: 18.09.2006
Beiträge: 716
Wohnort: Deutschland

BeitragVerfasst am: Sa Okt 28, 2006 4:59 am    Titel: Antworten mit Zitat

hallo agu,
ich habe es doch noch geschafft!
das war der entscheidene hinweis:
Zitat:
Wenn du also in den Code deiner Subroutine ein Gui, Submit, NoHide mit reinnimmst

vielen dank! Very Happy
ich bin mit dem script auch so erstmal zufrieden,will nur noch kosmetische änderungen vornehmen

Code:
;
; AutoHotkey Version: 1.0
; Language:       Deutsch
; Platform:       Win9x/NT
; Author:         fredchf
;
; Script Function:
;   Backupauftrag-Datei(lst) erstellen
;
F1=Back.tmp
F2=Backup2.lst
SetTimer, Reload ,1000
SetTimer, Reload2 ,1000
IniRead, Folder2, mybackup.ini, Section3, key
IniRead, interv, mybackup.ini, Section4, key ;liest aus ini-Datei

Gui, Add, Tab, x-4 y3 w640 h670 , Allgemein|Einstellungen
  Gui, Tab, Einstellungen
    Gui, Add, ComboBox, ginterv2 vinterva R10 x6 y43 w80 h30 , 1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30
    Gui, Submit, NoHide
    Gui, Add, Text, x116 y43 w290 h30 , Backupintervall in Tagen
    Gui, Add, Button, x506 y103 w100 h30 ggetp, ändern,
    Gui, Add, Text, x6 y103 w480 h30 vFolder2,
    Gui, Add, Text, x406 y43 w100 h30 , aktuell
    Gui, Add, Text, x506 y43 w50 h30 vinterv,
    Gui, Add, GroupBox, x3 y25 w610 h55 , Intervall
    Gui, Add, GroupBox, x3 y85 w610 h55 , Sicherungspfad
  Gui, Tab, Allgemein
    Gui, Add, Button, x6 y28 w110 h30 gdathinz, Dateien hinzufügen
    Gui, Add, Button, x136 y28 w100 h30 gbtnok, OK
    Gui, Add, Button, x256 y28 w100 h30 gbtnabb, Abbruch
    Gui, Add, Button, x486 y270 w-310 h-220 , Button
    Gui, Add, Button, x6 y70 w110 h30 gordhin, Ordner hinzufügen
    Gui, Add, ListBox, x16 y123 w610 h240 vdata22,
    Gui, Add, Text, x16 y103 w310 h20 , Auftrag um diese Dateien o. Ordner erweitern
    Gui, Add, Text, x366 y33 w265 h80 , #zum hinzufügen OK oder Übernehmen`n#mit Autostart kann eine Verknüpfung im Autostart erstellt oder gelöscht werden!
    Gui, Add, ListBox, x16 y393 w610 h285 vdata2,
    Gui, Add, Button, x136 y70 w100 h30 gueber, Übernehmen
    Gui, Add, Button, x256 y70 w100 h30 gautos, Autostart"
    Gui, Add, Text, x16 y363 w340 h30 , bereits im Auftrag
    Gui, Add, Button, x256 y103 w50 h20 gopen1, ...
    Gui, Add, Button, x256 y363 w50 h20 gopen2, ...
    ; Generated using SmartGUI Creator 4.0
    Gui, Show, x131 y91 h674 w645, Backup-Datei erstellen/erweitern
    GuiControl, , Folder2, %Folder2%
    GuiControl, , interv, %interv%
    Return

interv2:
Gui, Submit, NoHide
  If interva =
    {
      MsgBox, nix drin
      Exit
    }
  IniWrite, %interva%, mybackup.ini, Section4, key ;schreibt in ini-Datei
  IniRead, interv, mybackup.ini, Section4, key ;liest aus ini-Datei
  GuiControl, , interv, %interv%
Return
getp:
  FileSelectFolder, Folder2, , 1, Ordner wählen ;Ordner wählen
  If Folder2 =
      Exit
  IniWrite, %Folder2%\, mybackup.ini, Section3, key ;schreibt in ini-Datei
  GuiControl, , Folder2, %Folder2%
Return

open1:
  IfExist, %A_ScriptDir%\Back.tmp
      Run, notepad.exe "%A_ScriptDir%\Back.tmp"
Return
open2:
  Run, notepad.exe "%A_ScriptDir%\Backup2.lst"
Return
ueber:
  IfExist, back.tmp
    {
      FileRead, ordner, back.tmp ;temporäre datei auslesen
      FileAppend, %ordner%, Backup2.lst ;der Backup-Datei hinzufügen
      FileDelete, Back.tmp ;temporäre datei löschen
      Return
    }
Return
autos:
  IfNotExist, %A_StartMenuCommon%\Programme\Autostart\Backup.lnk
    {
      FileCreateShortcut, %A_ScriptDir%\Backup1.exe, %A_StartMenuCommon%\Programme\Autostart\Backup.lnk, %A_ScriptDir%\, , , ,
      MsgBox, Verknüpfung in %A_StartMenuCommon%\Programme\Autostart\ eingetragen
      Return
    }
  FileDelete, %A_StartMenuCommon%\Programme\Autostart\Backup.lnk
  MsgBox, Verknüpfung in %A_StartMenuCommon%\Programme\Autostart\ wurde gelöscht!!!
Return
reload: ;Liste aktualisieren
  I:=0
  GuiControl, ,data22, |
  Loop
    {
      I += 1
      FileReadLine,AA, %F1%, %i%
      If ErrorLevel <> 0
          Break
      GuiControl, ,DATA22,%AA%
    }
Return
reload2: ;Liste aktualisieren
  I:=0
  GuiControl, ,data2, |
  Loop
    {
      I += 1
      FileReadLine,AA, %F2%, %i%
      If ErrorLevel <> 0
          Break
      GuiControl, ,DATA2,%AA%
    }
Return

Return
dathinz: ;Button Dateien Hinzufügen
  FileSelectFile, File, M, %A_MyDocuments%, Dateien wählen, Alle Dateien (*.*) ;Dateien wählen
  If File =
    {
      Exit
    }
  Loop, Parse, File, `n ;zerteilt den string am zeilenumbruch
    {
      If A_Index = 1
          pat1 = %A_LoopField% ;inhalt der ersten schleife in pat2 speichern
      If A_Index > 1
          FileAppend, %pat1%\%A_LoopField%`n, Back.tmp ;in temporäre datei schreiben
      Continue
    }
Return

btnok: ;OK-Button
  IfExist, back.tmp
    {
      FileRead, ordner, back.tmp ;temporäre datei auslesen
      FileAppend, %ordner%, Backup2.lst ;der Backup-Datei hinzufügen
      FileDelete, Back.tmp ;temporäre datei löschen
      ExitApp
    }
  ExitApp
ordhin: ;Taste Ordner hinzufügen
  FileSelectFolder, Folder, , 1, Ordner wählen ;Ordner wählen
  If Folder =
      Exit
  FileAppend, %Folder%`n, Back.tmp
Return

btnabb:
  FileDelete, Back.tmp
  ExitApp
GuiClose:
  FileDelete, Back.tmp
  ExitApp


_________________
Mit freundlichen Grüßen
fredchf
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    AutoHotkey Community Foren-Übersicht -> Ich brauche Hilfe! Alle Zeiten sind GMT
Seite 1 von 1

 
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.


Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de