Italia
Fonte/ Codesnippets

Gridbox Testata Listview Nachtr

 

Jörg
Sellmeyer

 $H commctrl.ph
 $H structs.ph
Struct LV_COLUMN = ~LV_COLUMN

Proc LV_SetColumnText

    Parameters Hdl&,Index%,Text$
    Declare Column#,Erfolg%
    Dim Column#,LV_COLUMN

    With Column#

        .mask& = ~LVCF_TEXT
        .pszText& = Addr(Text$)
        Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)

    EndWith

    Dispose Column#
    Return Erfolg%

EndProc

Cls
Var LV& = Create("GridBox",%hwnd,"Test 1;0;100;Test 2;0;100;Test 3;0;100",0,2,100,320,300)
waitinput

WhileLoop 0,2

    LV_SetColumnText(LV&,&Loop ,"Neu " + Str$(&Loop + 1))

Wend

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




Jörg
Sellmeyer
So kann man auch noch die Breite einstellen und den Text auslesen. Das Ganze dann auch mal ohne Struktur:
 $H commctrl.ph

Proc LV_SetColumn

    Parameters Hdl&,Mask&,Index%,Text$,w%
    Declare Column#,Erfolg%
    Dim Column#,24
    Long Column#,0=Mask&
    Long Column#,8= w%
    Long Column#,12=Addr(Text$)
    Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)
    Dispose Column#
    Return Erfolg%

EndProc

Proc LV_GETCOLUMN

    Parameters Hdl&,Index%
    Declare Column#,Text$,Erfolg%
    Dim Column#,24
    Text$ = MkStr$("\z",160)' hier anpassen, wenn die Texte länger sein sollten
    Long Column#,0=~LVCF_TEXT
    Long Column#,12=Addr(Text$)
    Long Column#,16=160' s.o.
    SendMessage(Hdl&,~LVM_GETCOLUMN,Index%,Column#)
    Return Text$

EndProc

Cls
Randomize
Var LV& = Create("GridBox",%hwnd,"Test 1;0;90;Test 2;0;90;Test 3;0;90;Test 4;0;90;Test 5;0;90",0,2,100,340,300)
waitinput

WhileLoop 0,4

    LV_SetColumn(LV&,(~LVCF_TEXT * Rnd(2)) | ~LVCF_WIDTH,&Loop ,"Neu " + Str$(&Loop + 1),Width(LV&) \ 5)

Wend

Print Trim$(LV_GETCOLUMN(LV&,Rnd(6)))
waitinput
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
06.11.2011  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

8.731 Views

Untitledvor 0 min.
Gast.0815 vor 30 Tagen
Axel Berse08.11.2023
Torsten Boo15.05.2023
Sven Bader14.03.2023
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

Jörg Sellmeyer (2x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


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