Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = Image1.Left + (X - CurrentX) + X
Image1.Top = Image1.Top + (Y - CurrentY) + Y
End Sub
上面這段程式碼可以用滑鼠抓的圖形移動...但是會閃爍.有時還會消失.....＞＜..該怎麼辦呢??..幫幫我吧!
Image1.Left = Image1.Left + (X - CurrentX) + X
Image1.Top = Image1.Top + (Y - CurrentY) + Y
End Sub
上面這段程式碼可以用滑鼠抓的圖形移動...但是會閃爍.有時還會消失.....＞＜..該怎麼辦呢??..幫幫我吧!
請先 登入 以發表留言。