| |

VB & Windows APIsyslistview32 eines anderen Programms auslesen probleme | |  | Autor: Maddin73 | Datum: 30.11.03 22:51 |
| Hallo,
ich möchte ein syslistview32 eines anderen Programms auslesen,
diese liste hat 5 spalten und 0 bis 20 zeilen.
bisher habe ich es geschaft die anzahl der Items auszulesen,
wenn ich das item auslese bekom ich nichts zurück,
und wenn ich den itemtext auslese stürtzt das programm ab welches ich auslese.
ich hoffe mir kann jemand helfen, ich komm einfach nichht weiter.
ich poste mal den wichtigsten teil des Programms:
Private Function CopyExListToList(sourcehWnd As Long, target As ListBox) As Long
Dim c As Long
Const LVM_FIRST = &H1000
Const WC_LISTVIEWW = "SysListView32"
Const WC_LISTVIEW = WC_LISTVIEWW
Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
Const LVM_GETITEM = (LVM_FIRST + 75)
Const LVM_GETITEM95 = (LVM_FIRST + 5) ' soll für win95 sein ?? ich brauch es für nt
'Const LVM_GETITEMTEXTW = (LVM_FIRST + 115) 'ich habe mehrere gefunden ??
'Const LVM_GETITEMTEXT = LVM_GETITEMTEXTW
Const LVM_GETITEMTEXTA = (LVM_FIRST + 45)
Const LVM_GETITEMTEXT = LVM_GETITEMTEXTA
Dim numitems As Long
Dim sItemText As String * 255
'get the number of items in the source list
numitems = SendMessage(sourcehWnd, LVM_GETITEMCOUNT, 0&, ByVal 0&)
'if it has contents, copy the items
If numitems > 0 Then
For c = 0 To numitems - 1
'Call SendMessage(sourcehWnd, LVM_GETITEM, c, ByVal sItemText) 'kommt nix zurück
Call SendMessage(sourcehWnd, LVM_GETITEMTEXT, c, ByVal sItemText) 'stürtzt das ziehlprogramm ab
Call SendMessage(target.hWnd, LB_ADDSTRING, 0&, ByVal sItemText)
Next
End If
'get the number of items in the target list
'and return that as the function value
numitems = SendMessage(target.hWnd, LB_GETCOUNT, 0&, ByVal 0&)
CopyExListToList = numitems
End Function |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|