Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Drag&Drop innerhalb eines Userforms
08.05.2007 11:23:47
Matthias
Hallo Forum,
ich möchte gerne innerhalb eines Userforms z.B. ein Element einer Listbox oder ein Label (bin da noch ganz offen) mittels Drag & Drop auf ein anderes Steuerelement ziehen, komm aber nicht drauf, wie ich das machen kann.
z.B. eine Liste von Namen: Einen Namen in eine Textbox ziehen.
Hat jemand eine Idee, wie das gehen könnte?
Gruß Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drag&Drop innerhalb eines Userforms
08.05.2007 12:52:37
K.Rola
Hallo,

Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As  _
MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
TextBox1 = Data.GetText
End Sub



Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Dim objData As DataObject
Dim Effect As Integer
If Button = 1 Then
Set objData = New DataObject
objData.SetText ListBox1.Value
Effect = objData.StartDrag
End If
End Sub


Gruß K.Rola

Anzeige
Vielen Dank! - o.T.
08.05.2007 13:20:00
Matthias
:-)

258 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige