Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Letzter Eintrag einer Gridbox
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   18.12.20 17:02

Ich glaube, ich hatte mal vor Jahren ein ähnliches Problem.
Probiere es mal damit :

 $H commctrl.ph
 Declare Handle gb, btn1, String sp
 
 sp = "Nummer;0;60;Name;0;100;"
 Window 600, 400
 
 btn1  = Create("Button", %HWnd, "Fülle", 10, 10, 60, 25)
 gb    = Create("Gridbox", %HWnd, sp, 2,  10, 50, 180, 150)
 
 FuelleGB()
 
 UserMessages $0010
 WhileNot %Umessage = $0010
   WaitInput
   If Clicked(btn1)
      ClearList gb
      FuelleGB()
   EndIf
 EndWhile
 
 Proc FuelleGB
 Declare Long z
 z = 0
 WhileLoop 0, 150
   z = AddString(gb, Str$(&LOOP) + "|" + ".Eintrag")
 EndWhile
 EndProc
 
 Proc LvDeSelect
 Parameters Lv&,Item&
  Declare s#
  Dim s#,1024
  Long s#,12=0
  Long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
  SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
  Dispose s#
 EndProc
 
 Proc LvSelect
 Parameters Lv&,Item&
 Declare s#
 Dim s#,1024
 Long s#,12=$2
 Long s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
 SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
 SendMessage(lv&,~LVM_SETHOTITEM ,item&,0)
 SendMessage(lv&,~LVM_ENSUREVISIBLE ,Item&,0)
 Dispose s#
 Endproc
 
 
 End
 


Fische dir mal die Procs LVSelect() und LVDeselect()
raus. Nach z = AdString(…) dann
LvDeSelect(gb, -1) ' alle deselektieren
LvSelect(gb, z)
SetCurSel gb, z

Das $H commctrl.ph nicht vergessen.

H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (18.12.20 19:11)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Letzter Eintrag einer Gridbox  Neu
Werner Wagner 17.12.20 14:10 
 Re: Letzter Eintrag einer Gridbox  Neu
Heinz Brill 17.12.20 17:00 
 Re: Letzter Eintrag einer Gridbox  Neu
Werner Wagner 18.12.20 10:16 
 Re: Letzter Eintrag einer Gridbox  Neu
Werner Wagner 18.12.20 10:31 
 Re: Letzter Eintrag einer Gridbox  Neu
Heinz Brill 18.12.20 17:02 
 Re: Letzter Eintrag einer Gridbox  Neu
Arndt Lindner 17.12.20 19:21 
 Re: Letzter Eintrag einer Gridbox  Neu
Werner Wagner 18.12.20 09:59 
 Re: Letzter Eintrag einer Gridbox  Neu
Arndt Lindner 18.12.20 11:32 
 Re: Letzter Eintrag einer Gridbox  Neu
Werner Wagner 18.12.20 10:20 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org