|
| |
Visual-Basic Einsteiger| TreeView füller ? VB6 | |  | | Autor: anfaenger_michael | | Datum: 25.10.13 14:55 |
| Moin moin,
ich möchte ein Treeview mit Inhalten füllen.
Die betreffenden Daten werden aus einem anderen Programm hierzu in
eine Text-Datei mit dem Namen Inilog geschrieben.
Diese Date öffne ich und will die Parameter zur Befüllung der Tvw verwenden.
Aber wieso funktionier das nicht ?
Es erscheint die Fehlermeldung "Element nicht gefunden"
Danke.
Gruß
Michael
Private Sub Command2_Click()
Dim TvwLinie As String
Dim nodx As Node
Inhalt von X:\Austausch\AustauschET\Uebersichten\OhneName5\Inilog
, , "Wurzel", "OhneName5"
usw...
ff = FreeFile
Open "X:\Austausch\AustauschET\Uebersichten\OhneName5\Inilog" For Input As ff
Line Input #ff, TvwLinie
Set nodx = TreeView1.Nodes.Add(TvwLinie)
Close ff
End Sub | |
| Re: TreeView füller ? VB6 | | | | Autor: Rippler | | Datum: 25.10.13 16:16 |
| kleines Bespiel
Private Sub Form_Load()
Dim TvwLinie As String
Dim ff As Long
ff = FreeFile
Open "F:\Test.txt" For Input As ff
Do While Not EOF(ff)
Line Input #ff, TvwLinie
SetNode TvwLinie
Loop
Close ff
End Sub
Private Sub SetNode(s As String)
Dim nodx As Node
Dim n As Variant
s = Replace(s, """", "")
n = Split(s, ",")
Set nodx = TreeView1.Nodes.Add(, , Trim(n(2)), Trim(n(3)))
End Sub | |
| Re: TreeView füller ? VB6 | | | | Autor: anfaenger_michael | | Datum: 28.10.13 09:16 |
| Moin moin,
also ich kann machen was ich will, ich bekomme das Teil nicht zum laufen 
Jetzt bekomme ich die Fehlermeldung
Objekt erforderlich
Danke.
Gruß
Michael
'Inhalt von c:\temp\inilog.txt
'Die Kommentare ' sind in der Datei nicht vorhanden
, , Wurzel, OhneName1 'Das soll der Hauptknoten werden
Wurzel, tvwChild, c:\Austausch\MT-2\Uebersichten\OhneName1\1502,1502, 0 'Und das die Childs
Wurzel, tvwChild, c:\Austausch\MT-2\Uebersichten\OhneName1\1015,1015, 0 'Und das die Childs
Private Sub Command7_Click()
Dim TvwLinie As String
Dim ff As Long
Dim nodx As Node
ff = FreeFile
Open "c:\temp\inilog.txt" For Input As ff
Do While Not EOF(ff)
Line Input #ff, TvwLinie
Set NodeX = TvwLinie
Loop
Close ff
End Sub | |
| Re: TreeView füller ? VB6 | | | | Autor: Rippler | | Datum: 28.10.13 11:07 |
| Private Sub Form_Load()
Dim TvwLinie As String
Dim ff As Long
ff = FreeFile
Open "F:\Test.txt" For Input As ff
Do While Not EOF(ff)
Line Input #ff, TvwLinie
SetNode TvwLinie
Loop
Close ff
End Sub
Private Sub SetNode(s As String)
Dim nodx As Node
Dim n As Variant
n = Split(s, ", ")
If n(0) = "" Then
Set nodx = TreeView1.Nodes.Add(, , n(2), n(3))
Else
Set nodx = TreeView1.Nodes.Add(n(0), tvwChild, , n(2))
End If
End Sub | |
 | 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 |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. 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
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.