[VB]스프레드 드래그 처리

Option Explicit

Private Sub Form_Load()
    Label1.Caption = ""
    vaSpread1.Row = 1
    vaSpread1.Col = 1
    vaSpread1.Text = "text value"
    vaSpread1.DragMode = 1  'auto
End Sub

 

Private Sub vaSpread1_DragOver(Source As Control, x As Single, y As Single, State As Integer)
    Label1.Caption = "Drag시작"

End Sub

 

Private Sub vaSpread2_DragDrop(Source As Control, x As Single, y As Single)
    Label1.Caption = "Drag종료"
    vaSpread2.Row = 1
    vaSpread2.Col = 1
    vaSpread1.Row = 1
    vaSpread1.Col = 1
    vaSpread2.Text = vaSpread1.Text
End Sub