Deutsch
Forum

Batch-Datei oder was mach ich?

 
- 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?
 
Gruß Detlef Tussing
Windows XP, XProfan 10
10.04.2007  
 



 
- 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
 
Gruß Detlef Tussing
Windows XP, XProfan 10
05.05.2007  
 



@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:
KompilierenMarkierenSeparieren
DECLARE 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
 
05.05.2007  
 




Detlef
Tussing
Hallo Horst
Bei

MovelisttoHandle(list&)ab XProfan10

bekomm ich die Fehlermeldung

Funktion nicht auf dieses Fensterobjekt anwendbar
 
Gruß Detlef Tussing
Windows XP, XProfan 10
05.05.2007  
 



@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
 
05.05.2007  
 




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 ?

5 kB
Hochgeladen:05.05.2007
Ladeanzahl84
Herunterladen
 
Gruß Detlef Tussing
Windows XP, XProfan 10
05.05.2007  
 



 
- 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

25 kB
Kurzbeschreibung: Listbox-Beispiele...
Hochgeladen:05.05.2007
Ladeanzahl48
Herunterladen
 
05.05.2007  
 




Jörg
Sellmeyer
Hallo Detlef,
Vielleicht hilft Dir das hier weiter:
KompilierenMarkierenSeparieren
Def ListBoxStringSel(1) GetString$(&(1),GetCurSel(&(1)))
Declare LB&,Btn&,Wert$,Position%
Cls
LB& = Create(ListBox,%hwnd,1,10,80,400,300)
Btn&=Create(Button,%hwndndern,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
 
Gruß Detlef Tussing
Windows XP, XProfan 10
06.05.2007  
 




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
 
Gruß Detlef Tussing
Windows XP, XProfan 10
07.05.2007  
 



DestroyWindow(choicebox&)

Damit ist die Box vernichtet. Du musst sie also bei Bedarf wieder neu aufbauen: CREATE(usw...
 
07.05.2007  
 




Detlef
Tussing
Das funktioniert nicht
 
Gruß Detlef Tussing
Windows XP, XProfan 10
07.05.2007  
 




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.
 
07.05.2007  
 




Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

7.578 Betrachtungen

Unbenanntvor 0 min.
Jürgen Strahl08.06.2022
Walter04.04.2022
supernova04.12.2013
Wolfgang15.11.2013
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie