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 |