Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
TreeView und Drag&Drop
zurück: Transfer Database weiter: ordner öffnen vba Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
volta
Gast


Verfasst am:
06. März 2006, 12:11
Rufname:

TreeView und Drag&Drop - TreeView und Drag&Drop

Nach oben
       

volta am 03. März 2006 um 17:12 hat folgendes geschrieben:
Hi,

will unter MS Project oder MS Access 2003 per TreeView die Node per Drag & Drop verschieben können.
Hab unter Drag & Drop im TreeView-Control schon was gefunden in mein Visual Basic funktioniert das auch einwandfrei.

Aber nicht unter VBA in Access. Da besitzt der TreeView auch weniger Methoden Crying or Very sad
ich denke darum das es ein anderes TreeView ist aber eigentlich müssten die beide gleich sein.
Unter VBA heisst das Steuerelement "Microsoft TreeView Control version 6.0"
Und unter Visual Basic füge ich das TreeView mit den "Microsoft Common Controls 6.0" ein beide greifen aber auf die gleiche DLL zu mscomctl.ocx zu.

Da die benötigten Methoden bei beiden vorhanden sind hab ich mir die auch mal genauer angeschaut kann es vielleicht daran das im Prototyp in Access bei MouseDown der Datentyp X und Y als stdole.OLE_XPOS_PIXELS definiert ist und nicht als Single?

Ich versteh das nicht bis jetzt hat alles super geklappt mit dem TreeView und nun so ein dummes Problem.
Ich hoffe Ihr könnt mir helfen!

MfG
volta

Hi,

anscheinend geht das nicht na gut dann muss eben eine andere Lösung her. Very Happy
Hab jetzt neben dem TreeView ein Up und ein Down Pfeil womit ich dann die Reihenfolge der Elemente verändern will.

Hab jetzt folgenden Code beim Up Pfeil
Code:
    Dim preNode As Node 'previous Node
    Dim selNode As Node 'selectedNode
    Dim tmpNode As Node 'temp Node
   
    Set selNode = viewQL.SelectedItem
    Set preNode = selNode.Previous
    Set tmpNode = selNode
    viewQL.Nodes.Remove selNode.Index
    Set selNode = viewQL.Nodes.Add(preNode.Key, tvwPrevious, "tmpKey", _
                                   "tmpKey")
    selNode = tmpNode
    selNode.Selected = True
Er verschiebt das Node auch nach oben nur das Problem ist seine Children werden nicht mitübernommen wenn er welche hat!
Wie schaff ich das am einfachsten ich bekomm das nicht hin?

MfG
volta
Gast



Verfasst am:
17. März 2006, 12:04
Rufname:

AW: TreeView und Drag&Drop - AW: TreeView und Drag&Drop

Nach oben
       

habe das selbe problem mit dem up and down habe code falls der baum nur 2 ebenen , brauche es aber fir 3 :
Code:
    Dim i, j As Integer 'for the Loops
    Dim leaveAlone As Boolean
    Dim pos As Long
    Dim Temp, Text, Textp As String
    Dim Childs As Variant
    Dim ChildsPrevious As Variant
    Dim nrChild, nrChildPrevious As Integer
   
    If tvx.SelectedItem Is Nothing Then Exit Sub
    If tvx.SelectedItem.Previous Is Nothing Then Exit Sub
    pos = 1
    nrChild = tvx.Nodes(tvx.SelectedItem.Index).Children
    nrChildPrevious = tvx.Nodes(tvx.SelectedItem.Previous.Index).Children
    For i = 0 To tvx.Nodes.Count
        leaveAlone = False
        If i = tvx.SelectedItem.Index Then
            If i = pos Then leaveAlone = True
            pos = pos + 1
            If leaveAlone = False And nrChild = 0 And nrChildPrevious = 0 Then
                Temp = tvx.SelectedItem.Previous.Text
                tvx.Nodes(tvx.SelectedItem.Previous.Index).Text = _
                                        tvx.Nodes(tvx.SelectedItem.Index).Text
                tvx.Nodes(tvx.SelectedItem.Index).Text = Temp
                tvx.SelectedItem.Selected = False
                tvx.SelectedItem.Previous.Selected = True
              ElseIf leaveAlone = False And nrChild > 0 And _
                     nrChildPrevious = 0 Then
                Temp = tvx.SelectedItem.Previous.Text
                Do While tvx.SelectedItem.Children <> 0
                    Text = tvx.Nodes(tvx.SelectedItem.Index).Child.Text
                    tvx.Nodes.Remove _
                                 tvx.Nodes(tvx.SelectedItem.Index).Child.Index
                    tvx.Nodes.Add Relative:=tvx.SelectedItem.Previous.Key, _
                                  Relationship:=MSComctlLib.tvwChild, _
                                  Text:=Text, Image:=3
                Loop
                tvx.Nodes(tvx.SelectedItem.Previous.Index).Text = _
                                        tvx.Nodes(tvx.SelectedItem.Index).Text
                tvx.Nodes(tvx.SelectedItem.Index).Text = Temp
                tvx.SelectedItem.Expanded = True
                tvx.SelectedItem.Selected = False
                tvx.SelectedItem.Previous.Selected = True
              ElseIf leaveAlone = False And nrChild = 0 And _
                     nrChildPrevious > 0 Then
                Temp = tvx.SelectedItem.Previous.Text
                ChildsPrevious = _
                          Node_Childs_As_Array(tvx, tvx.SelectedItem.Previous)
                For j = 0 To UBound(ChildsPrevious)
                    tvx.Nodes.Add Relative:=tvx.SelectedItem.Key, _
                                  Relationship:=MSComctlLib.tvwChild, _
                                  Text:=ChildsPrevious(j), Image:=3
                Next j
                tvx.Nodes(tvx.SelectedItem.Previous.Index).Text = _
                                        tvx.Nodes(tvx.SelectedItem.Index).Text
                tvx.Nodes(tvx.SelectedItem.Index).Text = Temp
                tvx.SelectedItem.Expanded = True
                tvx.SelectedItem.Selected = False
                tvx.SelectedItem.Previous.Selected = True
              ElseIf leaveAlone = False And nrChild > 0 And _
                     nrChildPrevious > 0 Then
                Temp = tvx.SelectedItem.Previous.Text
                Childs = Node_Childs_As_Array(tvx, tvx.SelectedItem)
                ChildsPrevious = _
                          Node_Childs_As_Array(tvx, tvx.SelectedItem.Previous)
                For j = 0 To UBound(Childs)
                    tvx.Nodes.Add Relative:=tvx.SelectedItem.Previous.Key, _
                                  Relationship:=MSComctlLib.tvwChild, _
                                  Text:=Childs(j), Image:=3
                Next j
                For j = 0 To UBound(ChildsPrevious)
                    tvx.Nodes.Add Relative:=tvx.SelectedItem.Key, _
                                  Relationship:=MSComctlLib.tvwChild, _
                                  Text:=ChildsPrevious(j), Image:=3
                Next j
                tvx.Nodes(tvx.SelectedItem.Previous.Index).Text = _
                                        tvx.Nodes(tvx.SelectedItem.Index).Text
                tvx.Nodes(tvx.SelectedItem.Index).Text = Temp
                tvx.SelectedItem.Expanded = True
                tvx.SelectedItem.Selected = False
                tvx.SelectedItem.Previous.Selected = True
            End If
        End If
    Next i
Stelli
Gast


Verfasst am:
05. Mai 2006, 11:46
Rufname:


AW: TreeView und Drag&Drop - AW: TreeView und Drag&Drop

Nach oben
       

Die Child Knoten kannst du auch einfacher ändern
Code:
        Set NewNode = TreeView1.Nodes.Add(nodTarget, _
                                          tvwChild, "~" & SourceNode.Key, _
                                          SourceNode.Text)
        Set ChildNode = SourceNode.Child
        While Not ChildNode Is Nothing
            Set NextChildNode = ChildNode.Next
            Set ChildNode.Parent = NewNode
            TreeView1.Refresh
            Set ChildNode = NextChildNode
        Wend
        TreeView1.Refresh

Stelli
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Formulare: Treeview Routine 6 Supermarc1 317 21. Aug 2013, 18:21
Supermarc1 Treeview Routine
Keine neuen Beiträge Access Formulare: TreeView read only 1 TobiasKarge 113 23. Jul 2013, 18:22
Bitsqueezer TreeView read only
Keine neuen Beiträge Access Formulare: Drop Down in bestehendes Formular einfügen 7 Chaosklingen 205 25. Okt 2012, 13:06
Chaosklingen Drop Down in bestehendes Formular einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Drop Down bei Abfrage für Bericht 8 Maddin77 4263 07. Okt 2012, 02:53
Willi Wipp Drop Down bei Abfrage für Bericht
Keine neuen Beiträge Access Formulare: Treeview: Knoten nicht anwählbar einstellen 1 Vandroy 495 18. Sep 2011, 14:45
Nouba Treeview: Knoten nicht anwählbar einstellen
Keine neuen Beiträge Access Formulare: Kalender als drop down 1 wesselo 1320 11. Feb 2011, 15:03
Nouba Kalender als drop down
Keine neuen Beiträge Access Formulare: Treeview in Registersteuerelement - Bug? 1 Turboscherbe 411 23. März 2010, 23:56
Turboscherbe Treeview in Registersteuerelement - Bug?
Keine neuen Beiträge Access Formulare: zusammenspiel: drop down und listenfeld 7 alexander_s. 380 21. Aug 2009, 09:43
Marmeladenglas zusammenspiel: drop down und listenfeld
Keine neuen Beiträge Access Formulare: Eingabeformular Auswahl ind Drop Downliste stehen lassen. 0 Blade001 398 02. Apr 2009, 15:59
Blade001 Eingabeformular Auswahl ind Drop Downliste stehen lassen.
Keine neuen Beiträge Access Formulare: TreeView: Status der Checkboxen im Event nicht zu ändern 4 juliaxx 1926 27. Nov 2008, 11:06
juliaxx TreeView: Status der Checkboxen im Event nicht zu ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Filtern mit Drop Down in neues Formular????? 5 seppel27 2110 14. Aug 2007, 09:07
Willi Wipp Filtern mit Drop Down in neues Formular?????
Keine neuen Beiträge Access Programmierung / VBA: wie child node in TreeView löschen ? 1 Tron 5683 21. Sep 2006, 15:44
Tron wie child node in TreeView löschen ?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum