XProfan

- page 3 -

Detlef
Tussing

là suis je encore avec einer neuen Frage

peux homme cela, weil es so simple aussieht

AddFiles *.DAT
l'élection$ = @ListBox$(Wähle Dossier:, 7)

anstelle meiner ChoichBox véhicule im dessus genannten EDITOR.PRF
einbauen, avec qui Funktion CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm je pas bien sûr

Gruß Detlef Tussing
Windows XP, XProfan 10

@allô Detlef

avec qui Funktion CREATE(LISTBOX,%HWND,LISTBOX,0013,0023,0132,0255) komm je pas bien sûr

pourquoi viens Du avec cela pas bien sûr ? - Du musst qui Listbox un handle% donner. ensuite la hâte Du plus Opportunités. si qui Listbox sur cela Hauptfenster venez, ensuite %HWnd. Soll vous mais sur un Dialogfenster, ensuite à Stelle de %HWND cela handle% des Dialogfensters:
Kompilieren Marque Séparation

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&)

Detlef
Tussing

allô Horst
chez

MovelisttoHandle(list&)ab XProfan10

bekomm je qui Fehlermeldung

Funktion pas sur cet Fensterobjekt anwendbar

Gruß Detlef Tussing
Windows XP, XProfan 10

@Detlef
Du musst seulement un la fenêtre erstellen-
Sorry hab J'ai oublié.

Füge avant dem ersten CLEARLIST un CLS un.

ensuite sollte es marcher.
Bien sûr peux Du aussi avec

WINDOW à gauche%,dessus%-à droite%,unten%

un Hauptfenster avec Deinen Maßen erstellen

Detlef
Tussing

allô Horst
mais qui Fuktion qui je chez

AddFiles *.DAT
l'élection$ = @ListBox$(Wähle Dossier:, 7)

erziele hab je encore pas !

dans dem Editor.prf, hatte mir IF geholfen qui ChoiceBox5 véhicule editierbar trop faire, cela fonctionne aussi mais je hab es pas verstanden pourquoi. eh bien bräuchte je qui Funktion le moi seulement alle Fahrzeuge aufgelistet bekomme, vous veränder peux, ader aussi neue Fahrzeuge abspeichern peux. Bisher konnte je seulement qui im Prog gelisteten Fahrzeuge voyons, cependant aussi neue eintragen mais pas voyons.

peux du mir plus aider ?

editor.prf	5 kB

Hochgeladen:	05.05.2007

Downloadcounter:
		Download

Gruß Detlef Tussing
Windows XP, XProfan 10

- page 4 -

@allô Detlef

alors, quoi Dein Programme faire soll, peux je so pas erkennen.

Um Dir mais fois le Opportunités qui Listbox proche trop apporter, hab je Dir dans qui ZIP-Dossier ici qui Vorlagen de Gerhard Putschalka angehangen. - Entpacke qui Dossier la fois dans un Verzeichnis et probiere la fois alle Beispiele par. Du wirst bestimmt cela trouver, quoi Du brauchst

BOXES.ZIP	25 kB

Kurzbeschreibung:	Listbox-Beispiele...

Hochgeladen:	05.05.2007

Downloadcounter:
		Download

Jörg
Sellmeyer

allô Detlef,
peut-être hilft Dir que voici plus:
Kompilieren Marque Séparation

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

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Detlef
Tussing

merci euch beiden, avec cela suis je déjà un ganzes Stück plus

Gruß Detlef Tussing
Windows XP, XProfan 10

06.05.2007 ▲

Detlef
Tussing

qui Listbox habe je erfolgreich eingebunden

encore une Frage zur choicebox, si im beigefügten prog cela un dans qui choicebox gewählt habe,offnet sich une neue box. si je ensuite wieder non wähle sollte qui 2.Box wieder verschwinden, comment heist pour qui Befehl??

declare box2&,ende%,r$,n2%,text3&,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&,aus)
AddChoice(box2&,un)
@sendmessage(Box2&,$14E,n2%,1,0)
SETFOCUS(%HWND)
WHILENOT ENDE%

si %clé = 255
elseif GETFOCUS(box2&)Relais2
r$=gettext$(box2&)
Si r$=ein
licht
endif
ENDIF
WEND

proc licht
Text3&=Createtext(%Hwnd,de:,180,330,90,20)
box3&=Create(choicebox,%Hwnd,0,280,327,50,500)
AddChoice(box3&,5) jusqu'à
AddChoice(box3&,6)
AddChoice(box3&,7)
AddChoice(box3&,8)
@sendmessage(Box3&,$14E,de$,0,0)
endproc

Gruß Detlef Tussing
Windows XP, XProfan 10

DestroyWindow(choicebox&)

avec cela ist qui Box vernichtet. Du musst vous alors chez besoin wieder récente aufbauen: CREATE(usw...

Detlef
Tussing

cela funktioniert pas

Gruß Detlef Tussing
Windows XP, XProfan 10

Frank
Abbing

avec cela wird deine Choicebox définitif vernichtet. quoi soll daran car pas marcher?

je voudrais toi aussi bitten, aucun Sammeltreads entstehen trop laisser. si du Fragen trop einem neuen Problem la hâte, erstelle s'il te plaît aussi une neuen Fil.