[求助]求助]关于vb中自定义坐标系的问题 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]求助]关于vb中自定义坐标系的问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3758 人关注过本帖

标题：[求助]求助]关于vb中自定义坐标系的问题

只看楼主加入收藏

nibenqiangdy

等　级：新手上路
帖　子：16
专家分：0
注　册：2007-9-20

楼主

问题点数：0 回复次数：13

[求助]求助]关于vb中自定义坐标系的问题

图片附件: 游客没有浏览图片的权限，请登录或注册

最近遇到个小难题,就是关于在vb中定义自己的坐标系的问题,大家都知道,vb中本身的坐标系是最左上角是坐标原点,那样的话很不方便,我想自定义一个让坐标原点位于窗体的中间,如同数学中的直角坐标系,效果图就象上图,这样的话,就可以任意的找到各个点的坐标了!
望各位兄弟姐妹不吝赐教,在这里先谢谢了!

搜索更多相关主题的帖子: 坐标系　定义　

2007-09-20 17:59

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 2 楼

得分:0

Scale

我的msn: myfend@

2007-09-20 18:02

lal80

等　级：新手上路
帖　子：36
专家分：0
注　册：2007-9-7

第 3 楼

得分:0

使用Scale[(xleft,ytop)-(xright,ybottom)]

2007-09-21 09:37

nibenqiangdy

等　级：新手上路
帖　子：16
专家分：0
注　册：2007-9-20

第 4 楼

得分:0

先谢谢楼上两位
能不能说的具体一点!!!!
最好用个具体数字说明一下!!

2007-09-21 10:15

purana

来　自：广东-广州
等　级：版主
威　望：66
帖　子：6039
专家分：0
注　册：2005-6-17

第 5 楼

得分:0

Option Explicit

Private Sub Form_Activate()
Me.Line (-360, 0)-(360, 0)
Me.Line (0, 360)-(0, -360)

Dim i As Integer

For i = -360 To 360 Step 60
Me.CurrentX = i
Me.CurrentY = 0
Print CStr(i)
Me.Line (i, 0)-(i, 20)
Next
End Sub

Private Sub Form_Load()
Me.Scale (-360, 360)-(360, -360)
End Sub

我的msn: myfend@

2007-09-21 10:25