Gruppe
Dialog
Problem
Beim Verschieben von Text von einer UserForm-TextBox in eine andere soll dieser Text in einem Label angezeigt werden.
ClassModule: frmMove
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub txtA_BeforeDragOver( _
ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, _
ByVal Y As Single, _
ByVal DragState As MSForms.fmDragState, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Label1.Caption = txtA.Text
End Sub
Private Sub txtB_BeforeDragOver( _
ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, _
ByVal Y As Single, _
ByVal DragState As MSForms.fmDragState, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Label1.Caption = txtB.Text
End Sub
StandardModule: Modul1
Sub CallForm()
frmMove.Show
End Sub