| |
![zurück](../images/b_zurueck.gif)
Fortgeschrittene ProgrammierungRe: TreeView füllen, durchsuchen, Node öffnen | | ![](../images/trans.gif) | Autor: Dirk.B | Datum: 07.10.11 09:56 |
| Hallo Dirk!
In meinem Programm werden die Ordner aus eine bestimmten Verzeichnis geladen.
'Startordner = D:/Bloecke
sDirectory = Optionen.TextBox1.Value
'Alle Ordner in D:/Bloecke anzeigen
Call LoadWithFolders(TreeView1, sDirectory, "O_zu", "O_auf") Das mit dem LoadWithFolders hatte ich aus folgendem Beitrag:
http://www.vbarchiv.net/tipps/tipp_778-ordner-im-treeview-la-explorer-2.html
Esrt durch Doppleklick auf einen Ordner (Node) wird die nächste Ebene angezeigt,
sprich die nächste Ordnerebene.
Das erledigt dieses.
Public Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
PreviewFrm.Controls.Clear
CheckBoxUrsprung.Value = False
With ImageBildGross
.Visible = False
.Picture = LoadPicture()
End With
ComboBox2.Clear
Call AddSubFolders(TreeView1, Node, sDirectory & "\" & Node.FullPath, "O_zu", _
"O_auf")
BlockVer.Caption = sDirectory & "\" & Node.FullPath
StatusBar1.Panels(1).Text = "Ausgewählter Block = " & ""
With BlockEin1
.Picture = ImageList1.ListImages(3).Picture
.Locked = True
End With
Dim PdfString As String
PdfString = sDirectory & "\" & Node.FullPath & "\"
Dim Verzpfad As String
Verzpfad = Dir(PdfString & "*.pdf")
Do While Verzpfad <> "" 'Wiederholen bis cFile=""
With ComboBox2
.AddItem (Verzpfad)
'nächste Datei
Verzpfad = Dir ' Aufruf der Funktion ohne Parameter!!
.ListIndex = 0
End With
Loop
Dim NewImage As MSForms.Image
Dim LastTop As Double
Dim LastLeft As Double
Dim color1 As Variant
color1 = RGB(247, 247, 247) 'hellblau
Dim i As Variant
Dim Dat1 As String
Dat1 = PdfString
Dim Dat2 As String
Dat2 = Dir(Dat1 & "*.wmf")
Dim Anzahl As String
Anzahl = 0
On Error Resume Next
LastTop = 10
LastLeft = 5
Do While Dat2 <> ""
Anzahl = Anzahl + 1
Set NewImage = PreviewFrm.Controls.Add("Forms.Image.1")
With NewImage
.Height = 70
.Width = 70
.PictureSizeMode = fmPictureSizeModeZoom
.BackColor = color1
Set .Picture = LoadPicture(Dat1 & Dat2)
.Enabled = False
.Name = Dat2
.Left = LastLeft
.top = LastTop
End With
PreviewFrm.ScrollHeight = LastTop + NewImage.Height + 5
If LastLeft + 5 > PreviewFrm.Width - 125 Then
LastTop = LastTop + NewImage.Height + 10
LastLeft = 5
Else
LastLeft = LastLeft + 80
LastTop = NewImage.top
End If
Dat2 = Dir
Loop
End Sub Das heist ja, dass das TreeView händisch gefüllt wird.
Könnte mann nicht mit Deinem Code eine Schleife bauen, die die ersten Einträge als Node
erkännt und eine Doppelklick darauf simuliert, sodas die nächste Ordenereben geladen wird?
Bedingt durch die Schleife müssten dann ja reletiv schnell alle Unterordner mit ins
TreeView geladen werden.
Public Sub cmdsuchen_Click()
Dim nd As Node
For Each nd In TreeView1.Nodes
If Len(nd.Text) > 0 Then
Debug.Print nd.Text
nd.EnsureVisible
nd.Selected = True
nd.Expanded = True
'Klickereignic auf gefundenes Node
Call TreeView1_NodeClick
'oder wie könnte das hier gehen?????
End If
Next nd
End Sub Erst wenn alle Ordner und Unterordner aus dem Verzeichnis D:/Bloecke geladen sind,
macht die Suche innerhlab des TReeView sinn, oder sehe ich das immer noch falsch?
VG
Dirk | ![](../images/trans.gif) |
![](../images/forum/m.gif) TreeView füllen, durchsuchen, Node öffnen | 5.808 | Dirk.B | 28.09.11 09:55 | ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 3.999 | Dirk | 28.09.11 10:29 | ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 4.006 | Dirk.B | 28.09.11 11:09 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 4.075 | Dirk | 28.09.11 11:39 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/t.gif) ![](../images/forum/c.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 4.273 | Dirk.B | 06.10.11 07:15 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 4.104 | Dirk.B | 07.10.11 09:56 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/m.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 4.108 | Dirk | 07.10.11 14:08 | ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/trans.gif) ![](../images/forum/l.gif) ![](../images/forum/c.gif) Re: TreeView füllen, durchsuchen, Node öffnen | 3.890 | Dirk.B | 12.10.11 21:19 |
![](../images/48x48/info.gif) | 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 |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
Neu! sevCommand 4.0 ![Professionelle Schaltflächen](../images/werbung/sevcmd3_120x95.gif)
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 ![Developer CD f?r VB](../images/werbung/devcdvb_100x100.jpg)
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
|
|