XProfan

- 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

@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:
Kompilieren Markieren Separieren

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

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

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

editor.prf	5 kB

Hochgeladen:	05.05.2007

Ladeanzahl:
		Herunterladen

Gruß Detlef Tussing
Windows XP, XProfan 10

- 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

BOXES.ZIP	25 kB

Kurzbeschreibung:	Listbox-Beispiele...

Hochgeladen:	05.05.2007

Ladeanzahl:
		Herunterladen

Jörg
Sellmeyer

Hallo Detlef,
Vielleicht hilft Dir das hier weiter:
Kompilieren Markieren Separieren

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,%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 ...

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

DestroyWindow(choicebox&)

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

Detlef
Tussing

Das funktioniert nicht

Gruß Detlef Tussing
Windows XP, XProfan 10

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.