作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请教一下各位高手座标的问题
时间Thu Nov 9 12:53:44 2006
※ 引述《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
1F：推 keyon:谢谢版主大爷~再度感恩~ 11/09 13:08