Re: [VB6 ] 請教一下各位高手座標的問題
※ 引述《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
推
11/09 13:08, , 1F
11/09 13:08, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
28
98