Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   01.01.22 18:43

Hab das leider noch nicht so richtig hinbekommen.
Reicht es denn nicht, bei einem Klick auf die Listbox
die entsprechende Datei in einem MultiEdit anzuzeigen
bzw. Editieren ?

 Declare Handle lb, liste, ME, btn1
 Declare Long ende
 Declare String datei
 
 ende = 0
 Set("RegEx", 1)
 
 Window 600, 400
 btn1  = Create("Button", %HWnd, "Ende", 10, 10, 60, 25)
 lb    = Create("Listbox", %HWnd, 0, 10, 50, 200, 150)
 ME    = Create("MultiEdit", %HWnd, "", 250, 50, 300, 150)
 liste = Create("List", 0) ' unsichtbare Listbox zum Zwischen-Kopieren
 
 
 ChDir "C:\Temp"  ' PFAD anpassen
 ClearList
 AddFiles "*.*"
 Move("ListToHandle", liste)
 ClearList
 Set("MoveListMode", 1)
 Move("HandleToList", liste)
 Move("ListToHandle", lb)
 
 WhileNot ende
   WaitInput
   If Clicked(btn1)
      ende = 1
   ElseIf Clicked(lb)
      datei = GetString$(lb, GetCurSel(lb))
      SetText ME, ""
      ClearList
      Move("FileToList", datei)
      Move("ListToHandle", ME)
   EndIf
 EndWhile
 
 Set("MoveListMode", 0)
 Set("RegEx", 0)
 End
 
 MoveListProc
 Parameters string s, int i
 If Get("MoveListMode") = 1
    If InStr("((?i)Exe|(?i)Bat|~[|~])", s) = 0
       AddString(0, s)
    EndIf
 EndIf
 EndProc
 


Das geht doch viel einfacher und schneller.

H.Brill
XProfan X4 + FreeProfan

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 19.12.21 13:49 
 Re: Hat sich erledigt.  Neu
p. specht 19.12.21 22:37 
 Re: Hat sich erledigt.  Neu
Heinz Brill 20.12.21 07:23 
 Re: Hat sich erledigt.  Neu
p. specht 20.12.21 13:34 
 Re: Hat sich erledigt.  Neu
peter 30.12.21 11:12 
 Re: Hat sich erledigt.  Neu
Heinz Brill 30.12.21 17:47 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 19:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 30.12.21 21:32 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 30.12.21 21:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 10:57 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 31.12.21 13:46 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 31.12.21 17:08 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 11:00 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 01.01.22 13:58 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 01.01.22 18:43 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 09:09 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
Heinz Brill 02.01.22 09:28 
 Re: Hat sich erledigt oder nicht ? (Beispiel ist jetzt drin)  Neu
peter 02.01.22 13:39 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org