vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: TextBox, ListBox & ComboBox15.06.02
Drag & Drop zwischen zwei ListBoxen

VB-Version:  VB5, VB6
 Views:  11.359 

Wie Sie Einträge von einer ListBox in eine zweite ListBox per Drag & Drop kopieren können zeigt Ihnen nachfolgender Code. Für dasBeispiel benötigen Sie eine Form, auf der Sie zwei ListBoxen platziert haben:

Option Explicit
 
Private Sub Form_Load()
  ' Liste (List1) mit Werten füllen
 
  Dim i As Integer
 
  For i = 1 To 10
    List1.AddItem "Eintrag " & CStr(i)
  Next i
End Sub
 
 
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If List1.ListIndex <= 0 And Button = 2 Then    ' für linke Maustaste Button = 1 setzen
    ' Drag-Beginn (rechte Maustaste)
    List1.Drag vbBeginDrag
  End If
End Sub
 
 
Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
  ' Drop (in List2)
  If Source = List1 Then
    List2.AddItem List1.Text
  End If
End Sub

Diese Seite wurde bereits 11.359 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2019 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