Einzelne Einträge mittels Drag & Drop von einer Listbox in die andere zu verschieben geht so: Sie benötigen 2 Listboxen (lbxSource u. lbxDest), deren Eigenschaft AllowDrop = True gesetzt werden muss und folgenden Code: Private Sub form_load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Listbox mit Einträgen füllen lbxSource.Items.Add ("Eintrag 1") lbxSource.Items.Add ("Eintrag 2") lbxSource.Items.Add ("Eintrag 3") End Sub Private source As ListBox Private sourceIndex As Integer Private Sub lbxSource_MouseDown(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles lbxSource.MouseDown, lbxDest.MouseDown Dim aPoint As Point Dim lbx As ListBox Dim aIndex As Integer lbx = CType(sender, ListBox) aPoint = New Point(e.X, e.Y) aIndex = lbx.IndexFromPoint(aPoint) If aIndex <= 0 Then source = lbx sourceIndex = aIndex lbx.DoDragDrop(lbx.Items(aIndex), DragDropEffects.All) End If End Sub Private Sub lbx1_DragDrop(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.DragEventArgs) Handles lbxDest.DragDrop Dim lbx As ListBox lbx = CType(sender, ListBox) If Not source Is Nothing Then source.Items.RemoveAt (sourceIndex) End If lbx.Items.Add (e.Data.GetData(DataFormats.Text)) End Sub Private Sub lbx1_DragEnter(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.DragEventArgs) Handles lbxDest.DragEnter If (e.Data.GetDataPresent(DataFormats.Text)) Then e.Effect = DragDropEffects.All Else e.Effect = DragDropEffects.None End If End Sub Diese Seite wurde bereits 17.399 mal aufgerufen. |
sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |