| |
|
|
- Seite 1 - |
|
Detlef Tussing | ich schreibe mit einem XProfan Prog Daten in eine .DAT Datei um diese mit einem 2. Prog aufzurufen , und auszuführen. Um den Aufruf des 2.Prog leichter zu machen, lass ich gleichzeitig eine Batchdatei erzeugen Prog2.exe Daten.DAT doch bei dem Aufruf wird immer der störende Windows CMD Bilschirm angezeigt. Kann man das verhindern, oder gibt es andere Möglichkeiten? |
|
|
| |
|
|
|
| |
|
- Seite 3 - |
|
Detlef Tussing | Da bin ich schon wieder mit einer neuen Frage
kann mann das, weil es so einfach aussieht
AddFiles *.DAT Wahl$ = @ListBox$(Wähle Datei:, 7)
anstelle meiner ChoichBox Fahrzeug im oben genannten EDITOR.PRF einbauen, mit der Funktion CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm ich nicht klar |
|
|
| |
|
|
|
| @Hallo Detlef
mit der Funktion CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm ich nicht klar
Warum kommst Du damit nicht klar ? - Du musst der Listbox ein handle% geben. Dann hast Du mehr Möglichkeiten. Wenn die Listbox auf das Hauptfenster kommt, dann %HWnd. Soll sie aber auf ein Dialogfenster, dann an Stelle von %HWND das handle% des Dialogfensters: KompilierenMarkierenSeparierenDECLARE list&,x%,y%,xb%,yh%,font%
font%=CREATE(FONT,ARIAL,16,6,0,0,0) Font auswählen
x%=20 diese 4 Werte anpassen
y%=50
xB%=250
yh%=400
-----------------------------------------------------------------
WINDOW 0,0-%MaxX,%MaxY
CLEARLIST
list&=CREATE(LISTBOX,%HWND,,x%,y%,xb%,yh%)
SetFont list&,font%
AddFiles *.dat wenn nötig mit Pfad
MoveListToList(list&)
MoveListToHandle(list&)ab XProfan10
WAITINPUT
DesTroywindow(list&)
CLEARLIST
Der Code ist ungeprüft. Denke aber, dass er läuft |
|
|
| |
|
|
|
Detlef Tussing | Hallo Horst Bei
MovelisttoHandle(list&)ab XProfan10
bekomm ich die Fehlermeldung
Funktion nicht auf dieses Fensterobjekt anwendbar |
|
|
| |
|
|
|
| @Detlef Du musst erst ein Fenster erstellen- Sorry hab ich vergessen.
Füge vor dem ersten CLEARLIST ein CLS ein.
Dann sollte es klappen. Natürlich kannst Du auch mit
WINDOW links%,oben%-rechts%,unten%
ein Hauptfenster mit Deinen Maßen erstellen |
|
|
| |
|
|
|
Detlef Tussing | Hallo Horst Aber die Fuktion die ich bei
AddFiles *.DAT Wahl$ = @ListBox$(Wähle Datei:, 7)
erziele hab ich noch nicht !
in dem Editor.prf, hatte mir IF geholfen die ChoiceBox5 Fahrzeug editierbar zu machen, das läuft auch aber ich hab es nicht verstanden warum. Nun bräuchte ich die Funktion das ich erst alle Fahrzeuge aufgelistet bekomme, sie veränder kann, ader auch neue Fahrzeuge abspeichern kann. Bisher konnte ich nur die im Prog gelisteten Fahrzeuge sehen, jedoch auch neue eintragen aber nicht sehen.
kannst du mir weiter helfen ? |
|
|
| |
|
|
| |
|
- Seite 4 - |
|
|
| @Hallo Detlef
Also, was Dein Programm machen soll, kann ich so nicht erkennen.
Um Dir aber mal die Möglichkeiten der Listbox nahe zu bringen, hab ich Dir in der ZIP-Datei hier die Vorlagen von Gerhard Putschalka angehangen. - Entpacke die Datei mal in ein Verzeichnis und probiere mal alle Beispiele durch. Du wirst bestimmt das finden, was Du brauchst |
|
|
| |
|
|
|
Jörg Sellmeyer | Hallo Detlef, Vielleicht hilft Dir das hier weiter: KompilierenMarkierenSeparierenDef ListBoxStringSel(1) GetString$(&(1),GetCurSel(&(1)))
Declare LB&,Btn&,Wert$,Position%
Cls
LB& = Create(ListBox,%hwnd,1,10,80,400,300)
Btn&=Create(Button,%hwnd,Ändern,430,20,60,30)
EnableWindow Btn&,0
ChDir $WinPath
AddFiles *.ini
MoveListToHandle(LB&)
While 1
WaitInput
If Clicked(LB&)
EnableWindow Btn&,(GetCurSel(LB&) > -1)
ElseIf Clicked(Btn&)
Position% = GetCurSel(LB&)
Wert$ = InPut$(ListBoxStringSel(LB&) + ändern in:,Eintrag ändern:,ListBoxStringSel(LB&))
If %button = 1
DeleteString(LB&,Position%)
InsertString(LB&,Position%,Wert$)
EndIf
EndIf
Wend
Gruß Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 05.05.2007 ▲ |
|
|
|
|
Detlef Tussing | Danke euch beiden, damit bin ich schon ein ganzes Stück weiter |
|
|
| |
|
|
|
Detlef Tussing | Die Listbox habe ich erfolgreich eingebunden
noch eine Frage zur choicebox, wenn im beigefügten prog das ein in der choicebox gewählt habe,offnet sich eine neue box. Wenn ich dann wieder nein wähle sollte die 2.Box wieder verschwinden, wie heist dafür der Befehl??
declare box2&,ende%,r$,n2%,text3&,box3&,von$ DEF GETSYSCOLOR(1) !USER32,GetSysColor Def @FindWindowEx(4) !USER32,FindWindowExA WINDOWSTYLE 31 WINDOW SUB(DIV(%MAXX,2),DIV(940,2)),SUB(DIV(%MAXY,2),DIV(500,2))-660,500 SETTRUECOLOR 1 CLS GETSYSCOLOR(1)15 SETDIALOGFONT 1
box2&=Create(choicebox,%Hwnd,0,520,250,50,500) AddChoice(box2&,aus) AddChoice(box2&,ein) @sendmessage(Box2&,$14E,n2%,1,0) SETFOCUS(%HWND) WHILENOT ENDE%
if %key = 255 elseif GETFOCUS(box2&)Relais2 r$=gettext$(box2&) If r$=ein licht endif ENDIF WEND
proc licht Text3&=Createtext(%Hwnd,von:,180,330,90,20) box3&=Create(choicebox,%Hwnd,0,280,327,50,500) AddChoice(box3&,5) bis AddChoice(box3&,6) AddChoice(box3&,7) AddChoice(box3&,8) @sendmessage(Box3&,$14E,von$,0,0) endproc |
|
|
| |
|
|
|
| DestroyWindow(choicebox&)
Damit ist die Box vernichtet. Du musst sie also bei Bedarf wieder neu aufbauen: CREATE(usw... |
|
|
| |
|
|
|
Detlef Tussing | Das funktioniert nicht |
|
|
| |
|
|
|
Frank Abbing | Damit wird deine Choicebox definitiv vernichtet. Was soll daran denn nicht funktionieren?
Ich möchte dich auch bitten, keine Sammeltreads entstehen zu lassen. Wenn du Fragen zu einem neuen Problem hast, erstelle bitte auch einen neuen Thread. |
|
|
| |
|
|