PictureBox、Image
當我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
If Picture1.Picture = 0
Then
Msgbox "沒有圖片"
Else
Msgbox "有圖片"
End If
如何把PictureBox內的圖片弄走
Private Sub Command1_Click()
picture1.picture=nothing
End Sub