Re: [VB6 ] 請教一下各位高手座標的問題

[fumizuki (矇面加菲獅)]

※ 引述《keyon (BABABABABBABA)》之銘言：
: 小弟想要寫一程式
: 是可以輸入一張影像(image)~
: 輸入這方面是沒問題了
: 但重點是我想讓滑鼠再這張影像上點一點
: 便可以在文字方塊裡出現它的座標值
: 當然希望是可以在此圖片自設原點
: 因為找不到相關類似的程式碼來學習
: 所以上來請教各位高手~~感恩~
Private ShiftX As Single, ShiftY As Single '記錄原點位置

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

    If 設定原點 Then
       ShiftX = X
       ShiftY = Y
    End If
    Text1.Text = (x - ShiftX) & "," & (y - ShiftY)

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.248.175.60
推 keyon:謝謝版主大爺~再度感恩~