| |
| |
|
| - Página 1 - |
|
Detlef
Tussing | Yo escribir con un XProfan Prog Daten en un .DAT Expediente en esta con un 2. Prog aufzurufen , y auszuführen.
Um el Aufruf des 2.Prog leichter a hacer, lass Yo gleichzeitig una Batchdatei erzeugen Prog2.exe Daten.DAT doch en el Aufruf se siempre el störende Windows CMD Bilschirm adecuado.
Kann al verhindern, oder hay otro Möglichkeiten? |
|
| |
| |
| |
|
|
| |
| |
| - Página 3 - |
|
Detlef
Tussing | Como bin Yo ya otra vez con uno neuen Cuestión
kann mann el, porque lo así simplemente aussieht
AddFiles *.DAT
Wahl$ = @ListBox$(Wähle Expediente:, 7)
anstelle meiner ChoichBox Fahrzeug en el oben genannten EDITOR.PRF
einbauen, con el Función CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm Yo no está claro |
|
| |
| |
| |
|
|
 | @¡Hola Detlef
con el Función CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm Yo no está claro
¿Por qué kommst Usted así no está claro ? - Usted musst el Listbox una handle% geben. Dann hast Usted mehr Möglichkeiten. Wenn el Listbox el Ventana principal kommt, entonces %HWnd. Soll ellos aber en una Dialogfenster, entonces a Punto de %HWND el handle% des Dialogfensters:
KompilierenMarcaSeparaciónDECLARE 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&)
| 05.05.2007 ▲ | |
|
| |
|
|
Detlef
Tussing | ¡Hola Horst
En
MovelisttoHandle(list&)de XProfan10
bekomm Yo el Fehlermeldung
Función no en dieses Fensterobjekt anwendbar |
|
| |
| |
| |
|
|
| @Detlef
Usted musst sólo una Ventana redactar-
Sorry tener He olvidado. 
Füge antes el ersten CLEARLIST una CLS una.
Dann debería lo klappen.
Natürlich kannst Usted auch con
WINDOW links%,oben%-rechts%,unten%
una Ventana principal con Su Maßen redactar |
|
| |
| |
| |
|
|
Detlef
Tussing | ¡Hola Horst
Aber el Fuktion el Yo en
AddFiles *.DAT
Wahl$ = @ListBox$(Wähle Expediente:, 7)
erziele tener Todavía no !
en el Editor.prf, hatte me IF geholfen el ChoiceBox5 Fahrzeug editierbar a hacer, el se ejecuta auch pero yo tener no verstanden por qué. Nun bräuchte Yo el Función el Yo sólo todos Fahrzeuge aufgelistet bekomme, ellos veränder kann, ader auch neue Fahrzeuge abspeichern kann. Bisher podría Yo sólo el en el Prog gelisteten Fahrzeuge sehen, sin embargo auch neue eintragen pero no sehen.
kannst du me más helfen ? |
|
| |
| |
| |
|
| |
| |
| - Página 4 - |
|
|
| @¡Hola Detlef
Also, qué Su Programa hacer se, kann Yo así no erkennen.
Um Usted aber veces el Möglichkeiten el Listbox nahe a bringen, tener Yo Usted en el ZIP-Expediente hier el Vorlagen de Gerhard Putschalka angehangen. - Entpacke el Expediente veces en un directorio y probiere veces todos Beispiele por. Usted wirst determinado el encontrar, qué Usted necesidad  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | ¡Hola Detlef,
Tal vez hilft Usted que aquí más:
KompilierenMarcaSeparaciónDef 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
Saludo
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 05.05.2007 ▲ |
|
| |
|
|
Detlef
Tussing | 
Gracias euch beiden, así bin Yo ya una ganzes Stück más |
|
| |
| |
| |
|
|
Detlef
Tussing | El Listbox Yo erfolgreich eingebunden
ni Cuestión a choicebox, si en el beigefügten prog el una en el choicebox gewählt habe,offnet se una neue box. Wenn Yo entonces otra vez nein wähle debería el 2.Box otra vez verschwinden, como heist dafür el Befehl??
declarar box2&,ende%,r$,n2%,texto3&,box3&,de$
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&,de)
AddChoice(box2&,una)
@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
Texto3&=Createtext(%Hwnd,de:,180,330,90,20)
box3&=Create(choicebox,%Hwnd,0,280,327,50,500)
AddChoice(box3&,5) a
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
@sendmessage(Box3&,$14E,de$,0,0)
ENDPROC |
|
| |
| |
| |
|
|
| DestroyWindow(choicebox&)
Damit Es el Box vernichtet. Usted musst ellos also en Bedarf otra vez neu aufbauen: CREATE(usw... |
|
| |
| |
| |
|
|
Detlef
Tussing | Das funktioniert no  |
|
| |
| |
| |
|
|
Frank
Abbing | Damit se deine Choicebox definitiv vernichtet. Was se daran porque no trabajo?
Yo möchte dich auch bitten, no Sammeltreads entstehen que se. Wenn du Fragen a una neuen Problema hast, erstelle Por favor, auch una neuen Hilo. |
|
| |
| |
| |
|
(1.109)
Deutsch
English
Français
Español
Italia