Label1 i sürükleyip textbox1in içine atma

[osmanfenerli1907]

merhabalar
USERFORM 1DE label1 i sürükleyip textbox1 i atma ve label1.caption=textbox1.text olsun.
Bu mümkün müdür?

 

[Yüksel Varlı]

Labeli sürükleyip textboxa atmayı denemedim ama, txtboxdan txtboxa sürükleme için şöyle yapabilirsin.

Formun General Declaration bölümüne:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Daha sonra Textbox'un özellikleriniden DragBehavior'u "1" olarak ayarla.
Kolay gelsin.
"Allah Razı olsun. Bu kodu ismini hatırlayamadığım bir arkadaşımız göndermişti."