| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1061 人关注过本帖
标题:自定义坐标怎么设置的?
只看楼主 加入收藏
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
结帖率:96%
收藏
已结贴  问题点数:20 回复次数:18 
自定义坐标怎么设置的?
两个点,pset (100, 200),让它显示在窗体左上角
pset (200, 100),让它显示在窗体右下角,
Form1.Scale怎么写?
2014-12-11 09:53
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
form1.scalemode设为像素
Private Sub Form_Load()
Form1.Scale (100, 200)-(200, 100)
'Form1.PSet (100, 200), vbRed
'Form1.PSet (200, 100), vbRed
Form1.Circle (100, 200), 10
Form1.Circle (200, 100), 20
End Sub

大开眼界
2014-12-11 09:59
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
看看我的有问题吗?
Private Sub Form_Click()
DrawWidth = 20
'PSet (3210, 2911)
PSet (3210, 2941)
PSet (3380, 2911), vbRed
'PSet (3380, 2941)
End Sub

Private Sub Form_Load()
Form1.Scale (3210, 2941)-(3380, 2911)
End Sub
2014-12-11 10:09
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 3楼 txxb
可以
再加下显示当前鼠标指针位置,就一目了然
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Caption = X & "," & Y
End Sub

大开眼界
2014-12-11 10:14
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
可是运行起来不对啊
2014-12-11 10:16
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
好像是哪里单位不对
2014-12-11 10:18
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 6楼 txxb
图片附件: 游客没有浏览图片的权限,请 登录注册
autoredraw设为true就这样

大开眼界
2014-12-11 10:20
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
还是不行,奇怪
2014-12-11 10:23
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 8楼 txxb
把工程传上来看看,可能是窗体属性问题

大开眼界
2014-12-11 10:25
txxb
Rank: 2
等 级:论坛游民
帖 子:104
专家分:59
注 册:2014-10-8
收藏
得分:0 
曲线.rar (1.47 KB)
2014-12-11 10:28
快速回复:自定义坐标怎么设置的?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037444 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved