Français
Forum

ListBox zum Verzeichnisinhalt Montrer benutzen

 

Torsten
Rümker
comment oui dans qui Aider trop Profan joli trop lesen ist, peux on avec qui Message ~lb_dir une Listbox provoquer den le contenu des aktuellen Verzeichnisses Montrer trop laisser.
c'est pourquoi habe je la fois folgende Zeilen Verfaßt zum testen.
KompilierenMarqueSéparation
 $H Messages.ph
DECLARE LB&
CLS
LB& = CREATE("LISTBOX",%HWND,"",0023,0023,0302,0401)
SendMessage (LB&, ~lb_dir, $4038, "*.*")
SETFOCUS(%HWND)
WAITINP

Allerdings stürzt qui Interpreter chaque fois ab, si il versucht cela ganze zum courir trop apporter.
et je viens simple pas sur elle comme richtig appeler doit.

comment toujours pour chacun Aider reconnaissant

Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
15.05.2006  
 




RGH
Salut,
qui dernier paramètre de SendMessage darf naturellement ne...aucune String son, mais doit qui Adresse sur qui Suchmaske son. So gehts:
KompilierenMarqueSéparation
 $H Messages.ph
Declare Lb&, dir$
Cls
Lb& = Create("LISTBOX",%Hwnd,"",0023,0023,0302,0401)
dir$ = "*.*"
Sendmessage (Lb&, ~Lb_dir, $4038, Addr(dir$))
Setfocus(%Hwnd)
Waitin
>

Salut
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
15.05.2006  
 




Nico
Madysa
Würde cela pas aussi aller?
KompilierenMarqueSéparation
Declare Lb&
Cls
Lb& = Create("LISTBOX",%Hwnd,"",0023,0023,0302,0401)
ClearList
AddFiles "*.*"
MoveListToList(Lb&)
Waitinp
 
Nico Madysa
15.05.2006  
 




Torsten
Rümker
bien sûr serait deine Solution aussi marcher.
mais comme so souvent ist, sieht on den forêt avant lauter Bäumen pas.
ou bien anders: pourquoi simple wenns aussi schwer allez.
[Éditer] Mir fällt grad un, pourquoi je la méthode pas genutzt hatte, je voulais seulement Verzeichnisse avons [/Éditer]
merci sur jeden le cas pour qui répondre.

MfG
Torsten

PS: je sollte mir vraie lente merken, cela on aucun Cordes transfert peux.
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
15.05.2006  
 




Michael
Wodrich
[quote-part:8c07f72e55]PS: je sollte mir vraie lente merken, cela on aucun Cordes transfert peux.[/quote-part:8c07f72e55]
On peut un peu mogeln...
KompilierenMarqueSéparation
!
 $H Messages.ph
--------------------------
Declare global_txt$

Proc txt$

    Parameters derText$
    global_txt$ = derText$
    Return Addr(global_txt$)  geht leider nicht mit "derText$", da nach
    EndProc  Verlassen der Funktion nicht mehr verfügbar.
    --------------------------
    Declare LB&
    Cls
    LB& = Create("LISTBOX",%hWnd,"",0023,0023,0302,0401)
    SendMessage (LB&, ~LB_Dir, $4038, txt$("*.*"))
    SetFocus(%hWnd)
    
Programmieren, das spannendste Detektivspiel der Welt.
16.05.2006  
 




Torsten
Rümker
Tja, était alles très hilfreich, malheureusement habe je seulement im Nachhinein gemerkt,
le moi cela quoi je là rausbekomme gar pas brauche.

j'ai encore einmal nachgedacht. Alles quoi il me faut, ist qui Possibilité,
une Verzeichnisstruktur darzustellen. So une Art Treeview, comment im Windows - Explorer sur qui linken page.
Es soll pour une Verzeichnis-sélection-Dialog son, den je chez qui installation meines Wettbewerbsbeitrages
verwenden voudrais.

MfG
Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
16.05.2006  
 




Uwe
''Pascal''
Niemeier
allô gens!
[quote-part:c8bc61b7c5]On peut un peu mogeln... [/quote-part:c8bc61b7c5]
oui, pourquoi pas...
KompilierenMarqueSéparation
!
 $ Messages.ph
 $ Windows.ph
....snipp
~SendMessageA(LB&, ~LB_Dir, $4038, "*.*")/pre>

Remember: depuis Profan 7.? sommes Literate (Text dans Anführungsstrichen) comme paramètre pour APIs erlaubt...
@Torsten: sur meiner inoffiziellen HP [...]  liegt un Beispiel pour quelque chose comme, mais pour deine Zwecke ist cela eigendlich überdimensioniert... (TvDemo + FileBrowser)
Reicht ChooseDir$ pas?

SeeYou
Pascal
 
16.05.2006  
 




Torsten
Rümker
[quote-part:fbc75d2c1a=Uwe Pascal Niemeier]
Reicht ChooseDir$ pas?[/quote-part:fbc75d2c1a]
si Je l' Choosedir comme Element sur une eigenen Dialog bekomme, ensuite serait es reichen.
So wirkt cela ganze Ding sur dem Bildschirm quelque chose sortir de, au cours de qui installation.
Aussi ist es schwieriger Verzeichnisse hinzuzufügen.

MfG
Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
16.05.2006  
 




Michael
Wodrich
ici une klitzekleine Erweiterung (Pascals Tipp encore pas eingearbeitet).

seulement Verzeichnisse et Laufwerke:
KompilierenMarqueSéparation
 $H c:\profan\include\Messages.ph
--------------------------
Declare global_txt$

Proc txt$

    Parameters derText$
    global_txt$ = derText$
    Return Addr(global_txt$)  geht leider nicht mit "derText$", da nach
    EndProc  Verlassen der Funktion nicht mehr verfügbar.
    --------------------------
    Declare LB&
    Cls
    LB& = Create("LISTBOX",%hWnd,"",0023,0023,0302,0401)
    SendMessage (LB&, ~LB_Dir, $4038, txt$("*.*"))
    SetFocus(%hWnd)
    Declare anz&
    anz& = GetCount(LB&) - 1

    WhileLoop anz&, 0, -1

        Case Left$(GetString$(LB&,&loop),1) <> "[" : DeleteString(LB&,&loop)

    EndWhile

    WaitInput

belle Grüße
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
16.05.2006  
 




Torsten
Rümker
je crois avec cela peux je quoi anfangen.
Sieht zwar pas so joli aus comment je es volontiers hätte, serait mais sur jeden le cas
qui installation optique aufpeppen.
la fois un un peu testen.
merci pour qui Tips.

MfG
Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
17.05.2006  
 




Torsten
Rümker
So cela Montrer funktioniert oui pas mal,
maintenant brauche je seulement encore Aider um herauszubekommen, si sur une Eintrag simple ou bien doppelt geklickt wurde.
je peux oui avec GetFocus abfragen si qui Listbox angeklickt wurde, et ensuite den aktuellen Eintrag auslesen.
mais comment merke je si qui Eintrag per Double-cliquez sur selektiert wurde?

MfG
Torsten
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
18.05.2006  
 




Peter
Max
Müller
hi,
KompilierenMarqueSéparation
XProfan X3, X4ß, Win 10.1
18.05.2006  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.763 Views

Untitledvor 0 min.
Georg21.01.2021
RudiB.05.04.2020
rquindt11.04.2018
Peter Max Müller18.11.2017
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie