Français
Source/ Codesnippets

Listview Profan

 
une ListView dans Profan, zum comprendre, Changement, Erweitern...
KompilierenMarqueSéparation
DEF @GetSysColor(1) !"USER32","GetSysColor"
Settruecolor 1
Declare CLASSNAME$,LVHandle&,HWND&,OK&,ProgressZähler&,LVC#,TXT$,Text#,Text&,LVI#,Back&,Gewählt&
Windowstyle 31
Windowtitle "ListView"
Window 0,0-640,440
CLS @getsyscolor(15)
LET OK&=@CREATEBUTTON(%HWND,"OK",10,360,100,30)
LET CLASSNAME$="SysListView32"
LET LVHandle&=@Control(CLASSNAME$,"",$40000000+$10000000+$0001+$0200+$8,20,20,300,300,%HWND,0,%Hinstance)
@sendmessage(LVHandle&,$1036,0,$00000023) Zeilen darstellen
REM @sendmessage(LVHandle&,$1036,0,$00000023+2) ZUm Ankreuzen
Struct LVCOLUMN=Mask&, FMT&, CX&, Text&, Textlänge&, Subitem&
Dim LVC#,LVCOLUMN
Dim Text#,256
String Text#,0="Spalte 1"
LVC#.TEXT&=Text#
LVC#.MASK&=$0001+$0002+$0004+$0008
LVC#.FMT&=0
LVC#.CX&=100
LVC#.Subitem&=0
LVC#.Textlänge&=255
@sendmessage(LVHandle&,$1000+27,1,LVC#)
String Text#,0="Spalte 2"
@sendmessage(LVHandle&,$1000+27,2,LVC#)
String Text#,0="Spalte 3"
@sendmessage(LVHandle&,$1000+27,3,LVC#)
Struct LVITEM=IMASK&, ITEM&, ISUBITEM&, State&, StateMask&, ITEXT&, ITEXTMAX&, IIMAGE&, ILPARAM&
DIM LVI#,LVITEM
String Text#,0="Zeile 1 / Spalte 1"
LVI#.ITEXT&=Text#
LVI#.IMASK&=$0001
LVI#.ITEM&=0
LVI#.ISUBITEM&=0
LVI#.ITEXTMAX&=255
@sendmessage(LVHandle&,$1000+7,1,LVI#)
String Text#,0="Zeile 2 / Spalte 1"
LVI#.ITEXT&=Text#
LVI#.IMASK&=$0001
LVI#.ITEM&=1
LVI#.ISUBITEM&=0
LVI#.ITEXTMAX&=255
@sendmessage(LVHandle&,$1000+7,1,LVI#)
String Text#,0="Zeile 3 / Spalte 1"
LVI#.ITEXT&=Text#
LVI#.IMASK&=$0001
LVI#.ITEM&=2
LVI#.ISUBITEM&=0
LVI#.ITEXTMAX&=255
@sendmessage(LVHandle&,$1000+7,2,LVI#)
String Text#,0="Zeile 1 / Spalte 3"
LVI#.ITEXT&=Text#
LVI#.IMASK&=$0001
LVI#.ITEM&=0
LVI#.ISUBITEM&=2
LVI#.ITEXTMAX&=255
@sendmessage(LVHandle&,$1000+46,0,LVI#)
Dispose LVC#
Dispose TEXT#

While 0=0

    IF @getfocus(OK&)

        LET Gewählt&=@sendmessage(LVHandle&,$100C,-1,2)
        LET GEWÄHLT&=Gewählt&+1

        IF Gewählt&<>0

            @messagebox("Zeile "+@str$(Gewählt&)+" wurde ausgewählt!","Zeile in ListView",64)

        endif

    endif
Wend
 
24.08.2004  
 



Zum Quelltext


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.082 Views

Untitledvor 0 min.
Gast.081512.10.2024
Uwe Starke17.11.2023
Uwe Lang28.04.2020
RudiB.08.08.2019
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


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