A
Adiost
Интересуюсь, как таскать форму за элемент? В форме отключен стиль окна
и нужно сделать так, что бы его можно было таскать за элемент, скажем, Panel1. В сети нашел код
но он к сожалению не работает, как бы я его не насиловал. Может кто подсказать?
Код:
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Код:
Public BarX
Public BarY
Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then BarY = Y: BarX = X
End Sub
Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then
frmMain.Top = frmMain.Top + Y - BarY
frmMain.Left = frmMain.Left + X - BarX
end if
End Sub