[VB6] 창 드래그 소스
본문
Private Sub 이름_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Xpnt = X
Ypnt = Y
End Sub
Private Sub 이름_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left - (Xpnt - X)
Me.Top = Me.Top - (Ypnt - Y)
End If
End Sub
아마 옛날에 쓰던거여서 되기는 될거임
다듬어서 쓰세요
댓글목록 0
등록된 댓글이 없습니다.