如何在程序中加入一个image；又如何取得鼠标的坐标？谢谢

Question

如何在程序中加入一个image；又如何取得鼠标相对与PICTUREBOX 或IMAGE的坐标？谢谢！

Answer 1

如何在程序中加入一个image?????
就按照一般的添加控件到窗体的方法不就行了?双击image控件.
又如何取得鼠标相对与PICTUREBOX 或IMAGE的坐标？
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print X & " " & Y  'X,Y既是当前鼠标所在位置
End Sub

Answer 2

1:
Image1.Picture = "c:\test.jpg"2:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Debug.Print "X:" & X & "Y:" & Y
End Sub

Answer 3

1:
在窗体上加上一个PICTUREBOX或image控件，设置其picture属性即可2：
在对应控件的MouseMove事件中输入：
Debug.Print "X:" & X & "Y:" & Y

Answer 4

//1:
Image1.Picture = "c:\test.jpg"???
应该是：
Image1.Picture = LoadPicture("c:\test.jpg")

Answer 5

认为rainstormmaster(rainstormmaster) 的方法正确

Answer 6

谢谢各位的建议，我想
鼠标坐标可以得到了；谢谢！不过我说的：“如何在程序中加入一个image”是指动态的，如果程序运行需要可以动态的添加IMAGE。
如：我要显示多个图片，而并没有加入IMAGE，要用命令在程序代码中实现加入IMAGE的工作！
应怎么写呢？谢谢

Answer 7

用控件数组
Dim i As Integer
i = Image1.Count
Load Image1(i)
Image1(i).Picture = LoadPicture("c:\a.jpg")
Image1(i).Visible = True