PictureBox、Image

如何取得PictureBox的XY軸

  當我Click一下PictureBox的時候如何得知其XY軸呢?

Dim cx, cy As Single

Private Sub
Picture1_Click()
    MsgBox cx & "," & cy, , "XY軸"
End Sub

Private Sub
Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cx = X
    cy = Y
End Sub


如何判斷PictureBox、Image內有沒有圖片

If Picture1.Picture = 0 Then
    Msgbox "沒有圖片"
Else
    Msgbox "有圖片"
End If


如何把PictureBox內的圖片弄走
Private Sub
Command1_Click()
    picture1.picture=nothing
End Sub


上一頁