Hallo zusammen!
Ich möchte mir ein Programm schreiben, in dem ich einige Parameter benötige, die ich zur besseren Verwaltung in einer INI-Datei schreibe.
Diese Daten sollen in ein ListView eingelesen werden.
Die INI-Datei lautet: Test.ini
Verzeichnis: C:\Temp\INITest
So soll die INI-Datei aussehen:
[Test_01]
ListView1=Rundrohr;Lochung;Teilung
ListView2=QRohr;Lochung;Teilung
[Test_02]
Ø 28x2 mm;28/22/4, 1-reihig, 2-seitig;50
Ø 28x2 mm;28/22/4, 1-reihig, 4-seitig;50
Ø 32x2 mm;19/16/5, 1-reihig, 2-seitig;35
Ø 60x2 mm;19/16/5, 2-reihig, 2-seitig;35
[Test_03]
QR 60x30x2 mm;28/22/4, 1-reihig, 2-seitig;50
QR 60x30x2 mm;19/16/10, 1-reihig, 1-seitig;35
QR 60x30x2 mm;19/16/5, 2-reihig, 1-seitig;35
QR 60x30x2 mm;19/16/5, 2-reihig, 2-seitig;35
In dem ListView soll die Section Test_01 die Spaltenköpfe / Überschriften darstellen.
Klickt man auf den 1. Button, soll die Section Test_02 in die Spalten geladen werden und beim klick auf den 2. Button die Section Test_03.
ListView1
Rundrohr I Lochung I Teilung
Ø 28x2 mm I 28/22/4, 1-reihig, 2-seitig I 50
Ø 28x2 mm I 28/22/4, 1-reihig, 4-seitig I 50
Ø 32x2 mm I 19/16/5, 1-reihig, 2-seitig I 35
Der Wert in der Spalte Teilung soll an eine Variable MassX übergeben werden.
Dieses habe ich bislang:
Modul:
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As String, ByVal lpDefault _
As String, ByVal lpReturnedString As String, ByVal nSize _
As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal Section As String, _
ByVal Key As String, ByVal Setting As String, ByVal FileName _
As String) As Long
Public Sub INI_Test01()
TestINI.Show
End SubUserForm:
Dim ImportPfad As String
Private Sub cmdbende_Click()
End
End Sub
Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
'ListView automatisch aus der INI-Datei laden
End Sub
Private Sub CommandButton2_Click()
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
'ListView automatisch aus der INI-Datei laden
End Sub
Private Sub UserForm_Initialize()
ImportPfad = "C:\Temp\INITest\"
'---so geht es bislang
Dim LV As ListItem
Dim SI As ListSubItem
Dim MassX As Double
ListView1.View = lvwReport
ListView1.LabelEdit = lvwManual
ListView1.FullRowSelect = True
ListView1.GridLines = True
'Diesen Abschnitt möchte ich aus der INI-Datei füllen
With ListView1.ColumnHeaders
.Add Text:="Rundrohr", Width:="65"
.Add Text:="Lochung", Width:="130"
.Add Text:="Teilung", Width:="95"
End With
'Diesen Abschnitt möchte ich aus der INI-Datei füllen
'---1. / Zeile-------------------------------------------
Set LV = ListView1.ListItems.Add(, , "Ø 28x2 mm:")
With LV.ListSubItems
Set SI = .Add(, , "28/22/4, 1-reihig, 2-seitig")
Set SI = .Add(, , "50")
End With
'---2. / Zeile-------------------------------------------
Set LV = ListView1.ListItems.Add(, , "Ø 28x2 mm:")
With LV.ListSubItems
Set SI = .Add(, , "28/22/4, 1-reihig, 4-seitig")
Set SI = .Add(, , "50")
SI.ForeColor = color2
End With
'---etc.
TextBox1.Value = MassX
End SubKann mir da jemand helfen?
Wenn eben möglich mit dem entsprechenden Programmcode.
Vielen Dank im voraus.
VG
Dirk |
Forenübersicht Suchen Forumsregeln
Sie sind aktuell nicht angemeldet.
