我要开始制作自制关卡的工具了，但有个很大的问题【鳄鱼小顽皮爱洗澡吧】

鳄鱼小顽皮爱洗澡吧关注：9,778贴子：73,728

27回复贴，共1页

我要开始制作自制关卡的工具了，但有个很大的问题

我想了很久，决定用VB制作，具体流程差不多是：
上传本地截图—添加物品—用一个文本框输出该物品的代码—单击按钮复制—粘贴到一个记事本内（事先准备，只输出中间代码）
添加物品的详细步骤是：
点击右方的按钮出现物品图片，鼠标控制物品图片到理想位置，键盘左右键调整方向。
但是我不知道如何确定坐标，请问@鳄鱼Swampy ，这在VB中如何实现呢？

送TA礼物

来自iPhone客户端1楼2014-02-05 16:52回复

还有，我是个作图盲，自制关卡是不可能的了

来自iPhone客户端2楼2014-02-05 17:20

确定坐标这个可以在mousedown事件中获得坐标。用scale改一下相对坐标系就行了。（语言混乱

IP属地:天津

来自Android客户端3楼2014-02-05 21:09

收起回复

原来这么简单

来自iPhone客户端4楼2014-02-05 21:43

来自Android客户端5楼2014-02-06 09:23

目前在iPad上爱莫能助，等上PC再说

来自iPhone客户端6楼2014-02-06 13:20

我的定位器是这样的：iPad：图片框尺寸576*768
代码：
【是VB.NET，可能与VB不同！！】
Private Sub ipadscreen_MouseDown(sender As Object, e As MouseEventArgs) Handles ipadscreen.MouseDown
Dim sx As Integer = e.X + 1
Dim sy As Integer = e.Y + 1
Dim sx2 As Double = (sx - 288) / 8
Dim sy2 As Double = 0 - ((sy - 384) / 8)
x.Text = "x " & sx2.ToString
y.Text = "y " & sy2.ToString
End Sub
iPhone1-4S：尺寸：482*722
【是VB.NET】
Private Sub iphonescreen_MouseDown(sender As Object, e As MouseEventArgs) Handles iphonescreen.MouseDown
Dim sx As Integer = e.X + 1
Dim sy As Integer = e.Y + 1
Dim sx2 As Double = Math.Round(((sx - 241) / 7.5) * 1000) / 1000
Dim sy2 As Double = Math.Round((0 - ((sy - 361) / 7.5)) * 1000) / 1000
x.Text = "x " & sx2.ToString
y.Text = "y " & sy2.ToString
iphonepoint.Visible = False
iPhone5-5s：没做