XProfan

Deutsch

Georg
Bernhardt

Hallo,

mit Teilen des Programms EigeneEingaben kann ich ja schön in der Listview mit den Tasten hin und her springen. Einige Spalten passen aber nicht ins Fenster und wenn ich am Ende des Fensters bin und da noch einige Spalten kommen realisiere ich das mit
Kompilieren Markieren Separieren

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

While N% <nbr%

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

endwhile

geht, ist aber ein recht langsames Schieben. Gibt es eine Möglichkeit, das schneller zu erledigen?

Georg

XProfan 10

31.01.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Hallo,

ja, das hier sollte dir helfen:
Kompilieren Markieren Separieren

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

Rückt die angegebene Spalte komplett ins Sichtfeld.

31.01.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg
Bernhardt

Hallo

habs versucht geht bei mir aber nicht und hatte schon gejubelt

Georg

XProfan 10

31.01.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Hallo Frank
Es wäre zu schön gewesen (schliesslich hat mein Adressor 16 Spalten) - aber es klappt nicht

Gruss
horst

01.02.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Hi,

schade, die Message zeigt die Spalte nur komplett an, wenn sie schon teilweise sichtbar war...
Dann eben mit anderer Technik, diesmal als Prozedure:
Kompilieren Markieren Separieren

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#

EndProc