English
Forum

ListBox to Directory Contents Show using

 

Torsten
Rümker
How Yes in the Help Profan beautiful To reading is, can with the Message ~lb_dir a Listbox join whom Content the current Verzeichnisses Show To let.
therefore have I time following Lines Verfaßt to that testing.
CompileMarkSeparation
 $H Messages.ph
DECLARE LB&
CLS
LB& = CREATE("LISTBOX",%HWND,"",0023,0023,0302,0401)
SendMessage (LB&, ~lb_dir, $4038, "*.*")
SETFOCUS(%HWND)
WAITINP

though crashes the Interpreter jedesmal ex, if it attempts the whole to that walk To bring.
what about me come simply not on it as correctly. hot must.

How always for each Help grateful

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




RGH
Hi,
the last Parameter of SendMessage must naturally no String his, separate must The address on The Suchmaske his. so GEHTS:
CompileMarkSeparation
 $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
>

Greeting
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
05/15/06  
 




Nico
Madysa
would be not too weg?
CompileMarkSeparation
Declare Lb&
Cls
Lb& = Create("LISTBOX",%Hwnd,"",0023,0023,0302,0401)
ClearList
AddFiles "*.*"
MoveListToList(Lb&)
Waitinp
 
Nico Madysa
05/15/06  
 




Torsten
Rümker
clear would your Solution too functions.
but as so often is, sees one whom woods not sheer trees.
or differently: Why simply ifs too heavy goes.
[Edit] me falls strain one, why I The method not used having, I wished only directories having [/Edit]
thanks in any case for Answer.

MfG
Torsten

PS: I ought to me Real slow remember, the one no Strings transfer can.
 
Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2
05/15/06  
 




Michael
Wodrich
[quote:8c07f72e55]PS: I ought to me Real slow remember, the one no Strings transfer can.[/quote:8c07f72e55]
one can yes a little mogeln...
CompileMarkSeparation
!
 $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.
05/16/06  
 




Torsten
Rümker
Tja, was everything very helpful, unfortunately have I first in the Nachhinein Pinned,
that I the I there rausbekomme none need.

I have once more thought. everything I need, is the Possibility,
a Verzeichnisstruktur darzustellen. so a manner Treeview, How in the windows - Explorer on the left Page.
it should for a directory-selection-dialog his, whom I with the installation of my Wettbewerbsbeitrages
use would like.

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




Uwe
''Pascal''
Niemeier
Hello people!
[quote:c8bc61b7c5]one can yes a little mogeln... [/quote:c8bc61b7c5]
Yes, Why not...
CompileMarkSeparation
!
 $ Messages.ph
 $ Windows.ph
....snipp
~SendMessageA(LB&, ~LB_Dir, $4038, "*.*")/pre>

Remember: since Profan 7.? are Literate (Text in Anführungsstrichen) as Parameter for APIs allows...
@Torsten: On of my inoffiziellen HP [...]  lying an example for something like, but for your tack is the eigendlich überdimensioniert... (TvDemo + FileBrowser)
Reicht ChooseDir$ not?

SeeYou
Pascal
 
05/16/06  
 




Torsten
Rümker
[quote:fbc75d2c1a=Uwe Pascal Niemeier]
Reicht ChooseDir$ not?[/quote:fbc75d2c1a]
If I the Choosedir as element on a own dialog get, then would it wealthy.
so works the whole thing on-screen something leave, during the installation.
Also is it tougher directories hinzuzufügen.

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




Michael
Wodrich
here a klitzekleine expansion (Pascals Tipp not yet eingearbeitet).

only directories and drives:
CompileMarkSeparation
 $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

Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
05/16/06  
 




Torsten
Rümker
I faith so can I what begin.
sees of course not so beautiful from How I it gladly had, would but In any drop
The installation optisch aufpeppen.
time one little testing.
thanks for hints.

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




Torsten
Rümker
so the Show functions Yes integrally well,
now need I only yet Help circa to get, whether on a entry simply or twice clicked watts.
I can Yes with GetFocus inquire whether The Listbox klicked watts, and then whom actually entry read.
but How observe I whether the entry by Double click selektiert watts?

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




Peter
Max
Müller
hi,
CompileMarkSeparation
XProfan X3, X4ß, Win 10.1
05/18/06  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

3.780 Views

Untitledvor 0 min.
Georg01/21/21
RudiB.04/05/20
rquindt04/11/18
Peter Max Müller11/18/17
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie