| |
ADO.NET / DatenbankenEigenschaftern der Listview unter Window 7 Professional 64-bit | | | Autor: crosstravel | Datum: 19.12.16 11:36 |
| Hallo,
ich habe in meiner Applikation eine INI-Datei, welche ich mit einem kleinen Programm verwalte. Dieses Programm entspricht weitgehend dem Beispiel von Dieter (siehe untenstehender Auszug).
Bis jetzt habe ich unter Winodws 7 32-Bit etwickelt und alles ging tadellos.
Nun bin ich dabei, die Entwicklungsumgebung auf eine Windows 7 64-Bit Umgebung zu portieren. Und
nun kommt das Problem mit den im INI-Programm verwendeten Listviews. Beim Compile kommt stets die
Fehlermeldung "Method or data member not found" auf dem markierten Befehl und bei anderen Commands,
welche sich auf ItemX beziehen.
Ich habe ItemX auf dem 64-Bit-Rechner kontrolliert und festgestellt, dass die in diesem Programm
benötigten Properties nicht vorhanden sind. So benötige ich z.B. .Text und .SubItem - diese sind
aber nicht vorhanden. Dafür finde ich BackColor, CellBackColor usw ?
Ich vermute, dass das hier eine falsche OCX-Komponente im Einsatz ist. Das Listview-Element ist in
MSCOMCTL.OCX und COMCTL32.OCX enthalten. Beide bringen aber das gleiche Resultat.
Hat jemand vielleicht eine Idee?
Danke
Rainer
' Abschnitt ausgewählt, d.h. jetzt alle Einträge des
' Abschnittes in der zweiten ListBox anzeigen
Private Sub lstSections_Click()
With lstSections
' Ist überhaupt ein Eintrag ausgewählt?
If .ListIndex > -1 Then
Init_Keys .List(.ListIndex), INIFile
End If
End With
End Sub
' Alle Schlüsselwörter eines Abschnittes auslesen
' und in der zweiten ListBox anzeigen
Private Sub Init_Keys(ByVal strSection As String, _
ByVal INIFile As String)
Dim strKeys As String
Dim Key() As String
Dim I As Integer
Dim itemX As ListItem
' ListView löschen
lvwKeys.ListItems.Clear
' vbNullString übergeben, um alle gespeicherten
' Keys zu ermitteln
strKeys = GetIniString(strSection, vbNullString, _
"", INIFile, 32767)
' Sind überhaupt Einträge vorhanden?
If strKeys <> "" Then
' Rückgabestring "splitten"
Key = Split(strKeys, Chr$(0))
' Alle Einträge der ListBox hinzufügen
With lvwKeys.ListItems
For I = 0 To UBound(Key) - 1
Set itemX = .Add(, , Key(I))
itemX.SubItems(1) = GetIniString(strSection, _
Key(I), "", INIFile)
Next I
End With | |
| 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! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|