XProfan

Español

Georg
Bernhardt

¡Hola,

con Teilen des Programms EigeneEingaben kann Yo sí schön en el Listview con el Tasten hin y her springen. Einige Spalten passen pero no la ventana y si yo al Ende la ventana bin y como todavía algunos Spalten kommen realisiere Yo el con
Kompilieren Marca Separación

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

va, es aber una bastante langsames Empuje. Gibt lo una Möglichkeit, el más rápido a erledigen?

Georg

XProfan 10

31.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

¡Hola,

sí, que aquí debería dir helfen:
Kompilieren Marca Separación

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

Rückt el angegebene Spalte komplett en el Sichtfeld.

31.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Bernhardt

¡Hola

habs intenta va en me pero no y había ya gejubelt

Georg

XProfan 10

31.01.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Franco
Lo wäre a schön gewesen (schliesslich ha mein Adressor 16 Spalten) - pero klappt no

Gruss
horst

01.02.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Hi,

schade, el Message zeigt el Spalte sólo komplett a, si ellos ya teilweise sichtbar war...
Dann eben con otro Technik, diesmal como Prozedure:
Kompilieren Marca Separación

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#