XProfan

04.09.2007 ▲

Jörg
Sellmeyer

Listviewdll-Ayuda

InitMessages() darf no para cada Listview verwendet voluntad, muß aber para cada Ventana aufgerufen voluntad, en el mindestens una Listview verwendet se.
Mehrfachaufrufe para una y dasselbe Ventana son no gestattet y führen a Fehlern!

Como bin Yo ya veces en él reingefallen y tener largo gebraucht a ego gefunden habe. Also sólo una vez y no mehr.

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

04.09.2007 ▲

Frank
Abbing

InitMessages startet el Subclassing dieses Fensters. Es natürlich sólo una vez pro Ventana nötig.

04.09.2007 ▲

GDL

Hi Franco,

habe todavía una setitem Problema.
Genaueres siehe Codekommentare.

 {$CLEQ}
declarar ende%,lvdll&,bereich#,x&,lview&[]
 $I C:PRFellowCodehilfen_compilerListview_Funktionen.inc
lvdll&=usedll("C:\Steuerung\Listview.dll")
dim bereich#,1024
window 0,0-%maxx,%maxy
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[1]=CreateListView(%hwnd,%hInstance,0,x&,-1,$31)
EnableEdits(lview&[1],1)
AutoSortListview lview&[1],1,1,1,1,2,2
ShowListView(lview&[1],10,40,700,100)
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[2]=CreateListView(%hwnd,%hInstance,0,x&,-1,$31)
EnableEdits(lview&[2],1)
AutoSortListview lview&[2],1,1,1,1,2,2
ShowListView(lview&[2],10,160,700,100)
x&=MixRGBs(GetSysColor(15),$00ffffffff)
lview&[3]=CreateListView(%hwnd,%hInstance,0,x&,-1,$31)
EnableEdits(lview&[3],1)
AutoSortListview lview&[3],1,1,1,1,2,2
ShowListView(lview&[3],10,300,700,100)
ClearListview(lview&[1])
InsertColumn lview&[1],"Num.",50,0
insertColumn lview&[1],"Vorname",80,0
insertColumn lview&[1],"Nachname",120,0
insertColumn lview&[1],"Firma",120,0
insertColumn lview&[1],"Straße",120,0
insertColumn lview&[1],"Plz",50,0
insertColumn lview&[1],"Ort",120,0
insertColumn lview&[1],"Telefon",120,0
insertColumn lview&[1],"Fax",120,0
insertColumn lview&[1],"Handy",120,0
insertColumn lview&[1],"E-Mail",200,0
insertColumn lview&[1],"Internet",250,0
insertColumn lview&[1],"Bemerkung",200,0
ClearListview(lview&[2])
InsertColumn lview&[2],"Num.",50,0
insertColumn lview&[2],"Artikel",80,0
insertColumn lview&[2],"Bemerkung",120,0
insertColumn lview&[2],"Bestellnummer",120,0
insertColumn lview&[2],"Menge",60,0
insertColumn lview&[2],"Bestand",60,0
insertColumn lview&[2],"Raum",70,0
insertColumn lview&[2],"Regal",60,0
insertColumn lview&[2],"Schrank",60,0
insertColumn lview&[2],"Magazin",60,0
insertColumn lview&[2],"Ordner",60,0
insertColumn lview&[2],"Einschub",70,0
insertColumn lview&[2],"Register",70,0
insertColumn lview&[2],"Fach",60,0
insertColumn lview&[2],"Seite",60,0
insertColumn lview&[2],"Brutto",100,0
insertColumn lview&[2],"Netto",100,0
insertColumn lview&[2],"MWST",60,0
setitemtext(lview&[1],"ww",0,0)  va sólo después de nem setitem,also sólo existierende Einträge Editar
setitem lview&[1],"0","1","2","3","4","5","6","7","8","9","10","11","12"
setitem lview&[2],"0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18"
con obigen Befehl dejar se el letzten 4 Spalten no füllen
setitemtext(lview&[2],"ww",17,0) así kann Yo el letzte Spalte füllen
declarar a$
a$="fghj"
setitemtext(lview&[2],a$,16,0) así kann Yo el vorletzte Spalte no füllen
Nun a mi Problema
Como bekomme Yo el letzten 4 Spalten gefüllt, si el Texto sólo a Laufzeit feststeht.
Yo habe a Vereinfachung en setitem Cuerdas hergenommen.Im Programa posición como Stringvariablen
InitMessages(%hwnd)

whilenot ende%

    waitinput

wend

disponer bereich#
destroywindow(%hwnd)
FreeDll lvdll&
 $I C:PRFellowCodehilfen_compilerListview_dispose.inc
end

Was mache Yo hier falso ?Gracias.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Profano kann sólo 15 Parámetro en uno Procedimiento aufnehmen. Usted könntest lo así lösen:

WhileLoop 0,18

    SetItemText(lview&[2],Str$(&Loop),&Loop,0)

Wend

Si usted otro Textos como esta Pagar uso willst, kannst Usted el vorher en un String zusammenfassen:

Declarar Textos$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Texto$,"|")

    SetItemText(lview&[2],Substr$(Textos$,&Loop,"|"),&Loop,0)

Wend

Ist ahora sólo así runtergeschrieben, müßte aber trabajo

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

GDL

¡Hola Jörg

Gracias.Werde lo heute abend probieren.

Windows7 Xprofan 8,9,10 [...]

GDL

@Jörg,

tener todavía rápidamente probiert.

a$="fghj"
setitemtext(lview&[2],a$,16,0) así kann Yo el vorletzte Spalte no füllen
setitemtext(lview&[2],str$("345"),16,0) así kann Yo el vorletzte Spalte no füllen
setitemtext(lview&[2],"wert",16,0)va sólo así

va beides no.
Setitemtext va sólo ""

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Dann versuch veces:

Declarar Textos$,a$
Texte$ = "Text1|Text 2|...|Text 17"

WhileLoop Len(Texto$,"|")

    a$ = Substr$(Textos$,&Loop,"|")
    SetItemText(lview&[2],Addr(a$),&Loop,0)

Wend

Apéndice:

str$("345")

Es natürlich eh witzlos. ¿Quieres decir que wahrscheinlich str$(345).

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

Frank
Abbing

Georg, en Dll-Características kannst du en el Regel no String transferencia, pero sólo una Zeiger en una String. Hast du lo con Addr(cadena$) probiert?

GDL

@Jörg,

sorry,uno se sólo nichts zwischen Tür y Angel rápidamente todavía einschieben.
Hab natürlich
a%=345
str$(a%)
genommen.

@Franco y Jörg,
muss mich con addr(cadena$) sólo befassen.Kenn Todavía no.
Muss ertsmal dahinterkommen qué Jörg ser Ejemplo macht.

Windows7 Xprofan 8,9,10 [...]

GDL

Hi,

habe lo ahora así en mi Programa para Laufen gebracht.

setitem lview&[2],right$("00"+str$(num&),3)

whilenot spalte% > 17

    b$=trim$(dbget$("f"+str$(spalte%)))
    setitemtext(lview&[2],addr(b$),spalte%,zeile%)
    inc spalte%

wend

Aber así correcto schlau voluntad Yo lo todavía no.
en setitem kann una xyz$ transferencia y ser en setitemtext no.

Windows7 Xprofan 8,9,10 [...]

Frank
Abbing

SetItem es una Profanprozedur para el Listview-Función SItem, una Vereinfachung. Schau veces en el Inc el Listview.dll. Como siehst du auch, por qué sólo 15 Paramter transferencia voluntad puede. Más verkraftet XProfan en efecto no. Benötigst du mehr, entonces musst du SItem direkt uso.
SetItemText dagegen es direkt una Dll-Función.