VB Image與Text

Question

我有一個Image與Text
想要在Image裡面點一點
而Text就能顯示出座標值
希望VB高手幫解決

假如是在VBA環境下程式上需要做修改嗎?
因原本我是在VB6.0寫的
可是將同樣程式碼貼在VBA上
但卻出現『事件程序的宣告與同名事件的描述不相符』
大大曉得如何解決嗎?

Answer 1

VB6.0:Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    Text1.Text = "X= " & X & "  Y= " & YEnd Sub Excel:Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    TextBox1.Text = "X= " & X & "  Y= " & YEnd SubAccess:Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    Text1 = "X= " & X & "  Y= " & YEnd SubWord:Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    TextBox1.Text = "X= " & X & "  Y= " & YEnd Sub