Drag Drop (sürükle Bırak)

(11/11/2020, 14:00)berduş yazdı:

If Len(strControlName) Then        

ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text

End If

kodunu aşağıdaki gibi değiştirip dener misiniz?

    If Len(strControlName) Then

        If strControlName <> ThisTextBox.Name Then

            ThisTextBox.Parent(strControlName) = ThisTextBox.Parent(ThisTextBox.Name).Text

            ThisTextBox.Parent(ThisTextBox.Name).Text = ""

        End If

    End If

Sayın berduş teşekkür ederim. İstediğim gibi oldu. Değiştirilmiş olarak ekliyorum. Belki başkalarının da işine yarayabilir.

Rica ederim
Iyi calismalar)