Visual Basic FAQ

Как заставить перемещаться картинку, туда, где был произведен щелчок мыши?
Не забудьте поместить в PictureBox картинку.

Допустим из папки:
Program Files\Microsoft Visual Studio\COMMON\Graphics\Bitmaps\Assorted
Если щелкнуть по форме левой клавишей и не отпускать, картинка будет двигаться вместе с курсором.

Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
                                        X As Single, Y As Single)
Picture1.Move X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then Picture1.Move X, Y
End Sub

Запись опубликована on 27.10.2008 at 10:00 и размещена в рубрике: PictureBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.