XProfan

Français

Georg
Bernhardt

Salut,

avec partager des Programms EigeneEingaben peux je oui joli dans qui Listview avec den Tasten hin et her springen. quelques Spalten passen mais pas ins la fenêtre et si je am Ende des Fensters suis et là encore quelques Spalten venons realisiere je cela avec
Kompilieren Marque Séparation

b&=Long(bereich1#,20)       Breite
@Setfocus(LV_Handle&)
nbr% = (b&*2)/10
n% = 0

While N% <nbr%

    @SendKey(LV_Handle&,39)
    N% = N% + 1

en

allez, ist mais un droite langsames Pousser. Gibt es une Possibilité, cela plus rapide trop erledigen?

Georg

XProfan 10

31.01.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Salut,

oui, que voici sollte dir aider:
Kompilieren Marque Séparation

Sendmessage(listviewhandle&,$1013,spalte&,0)

Rückt qui angegebene Spalte komplett ins Sichtfeld.

31.01.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Bernhardt

allô

habs versucht allez chez mir mais pas et hatte déjà gejubelt

Georg

XProfan 10

31.01.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Frank
Es wäre trop joli gewesen (schliesslich hat mon Adressor 16 Spalten) - mais es klappt pas

Gruss
horst

01.02.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Hi,

tant pis, qui Message zeigt qui Spalte seulement komplett à, si vous déjà partiellement sichtbar était...
ensuite plan avec anderer technologie, diesmal comme Prozedure:
Kompilieren Marque Séparation

JumpToColumn listview&,spalte&    Listviewhandle, Spaltenindex

Proc JumpToColumn

    Parameters pslistview&,psspalte&
    Declare psrect#
    Dim psrect#,16
    Clear psrect#
    Long psrect#,4=psspalte&
    Sendmessage(pslistview&,$1038,psspalte&,psrect#)
    Sendmessage(pslistview&,$1014,Long(psrect#,0),-1)
    Dispose psrect#