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 
 2x Listbox ?
Autor: peter (---.pools.arcor-ip.net)
Datum:   04.01.22 20:09

Hallo guten Tag.

Ich habe in diesem Programm 2 Listboxen.
Eine Listbox kann ich nur mit dem Notepad++ öffnen.

If Clicked(lb1) geht nur .

Ich kann nur eine MoveListProc anlegen.
Möchte aber für die lb1 eine andere Entscheidung für das auslesen.

Danke.

--------------------------------
Declare Handle lb,lb1, liste,liste1, ME, btn1, btn2, btn3, btn4, btn5
Declare Long ende

Declare string a
declare string b
declare string datei
declare string datei1

declare int i

ende = 0
Set("RegEx", 1)

Window 1300,10-0290, 700
lb = Create("Listbox", %HWnd, 0, 10, 110, 200, 400)
liste = Create("List", 0)

lb1 = Create("Listbox", %HWnd, 0, 10, 10, 200, 80)
liste1 = Create("List", 0)

btn1 = Create("Button", %HWnd, "put fth", 10, 520, 80, 25)
btn2 = Create("Button", %HWnd, "rm fth", 10, 545, 80, 25)
btn3 = Create("Button", %HWnd, "next", 100, 520, 80, 25)
btn4 = Create("Button", %HWnd, "next rs232", 100, 545, 80, 25)
btn5 = Create("Button", %HWnd, "sprite", 100, 570, 80, 25)

ChDir "d:\vscode_zx\cspect\pebi-fth\"
ClearList
AddFiles "*.*"
Move("ListToHandle", liste)
ClearList
Set("MoveListMode", 1)
Move("HandleToList", liste)
Move("ListToHandle", lb)

ChDir "d:\vscode_zx\cspect\pebi-lib\"
ClearList
AddFiles "*.*"
Move("ListToHandle", liste1)
ClearList
Set("MoveListMode", 1)
Move("HandleToList", liste1)
Move("ListToHandle", lb1)


WhileNot ende
WaitInput

If Clicked(btn1)
Assign #2,"d:\\vscode_zx\\cspect\\pebi-fth\\make-nex1.bat"
Rewrite #2
print #2,"hdfmonkey.exe mkdir d:\vscode_zx\cspect\systemnext.img fth"
datei1=" "
i=0
a="hdfmonkey.exe put d:\vscode_zx\cspect\systemnext.img "
b=" /fth/"

whilenot datei1=""
datei1 = GetString$(lb,i)
Print #2,a+datei1+b+datei1
i=i+1
endwhile

Close #2
ChDir "d:\\vscode_zx\\cspect\\pebi-fth\\"
shell "make-nex1.bat"
endif

If Clicked(btn2)
Assign #2,"d:\\vscode_zx\\cspect\\pebi-fth\\make-nex1.bat"
Rewrite #2
print #2,"hdfmonkey.exe mkdir d:\vscode_zx\cspect\systemnext.img fth"
datei1=" "
i=0
a="hdfmonkey.exe rm d:\vscode_zx\cspect\systemnext.img "
b=" /fth/"

whilenot datei1=""
datei1 = GetString$(lb,i)
Print #2,a+b+datei1
i=i+1
endwhile

Close #2
ChDir "d:\\vscode_zx\\cspect\\pebi-fth\\"
shell "make-nex1.bat"
endif

If Clicked(btn3)
datei="CSpect.exe -w2 -zxnext -nextrom -exit -brk -tv -mmc=d:\\vscode_zx\\cspect\\systemnext.img"
WinExec ("d:\\vscode_zx\\cspect\\"+datei,1)
endif

If Clicked(btn4)
datei="CSpect.exe -w2 -zxnext -nextrom -exit -brk -tv" + " -com=COM1:115200 -mmc=d:\\vscode_zx\\cspect\\systemnext.img"
WinExec ("d:\\vscode_zx\\cspect\\"+datei,1)
endif

If Clicked(btn5)
ChDir "d:\\vscode_zx\\cspect\\"
shell "UDGeedNext.exe"
ChDir "d:\vscode_zx\cspect\pebi-fth\"
endif

If Clicked(lb)
datei = GetString$(lb, GetCurSel(lb))
WinExec ("d:\\notepad++\\notepad++.exe " + datei,1)
EndIf

If Clicked(lb1)
datei = GetString$(lb1, GetCurSel(lb1))
WinExec ("d:\\notepad++\\notepad++.exe " + datei,1)
EndIf
EndWhile

Set("MoveListMode", 0)
Set("RegEx", 0)

End

MoveListProc
Parameters string s, int i
If Get("MoveListMode") = 1
If InStr("((?i)Exe|(?i)Log|(?i)Bat|~[|~])", s) = 0
AddString(0, s)
EndIf
EndIf
EndProc

---------------------------------------



Nachricht bearbeitet (04.01.22 20:13)

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

 Beiträge Autor  Datum
 2x Listbox ?  Neu
peter 04.01.22 20:09 
 Re: 2x Listbox ?  Neu
Heinz Brill 05.01.22 07:29 
 Re: 2x Listbox ?  Neu
peter 05.01.22 09:26 
 Re: 2x Listbox ?  Neu
Heinz Brill 05.01.22 11:09 
 Re: 2x Listbox ?  Neu
peter 05.01.22 12:43 


 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