社区
VB基础类
帖子详情
关于自定义坐标系问题
franky82
2005-01-04 03:38:22
我要在Picturebox里根据标准坐标值画多边形,现需要将坐标系的原点定义在左下角,但坐标系下的坐标值仍为整数(即对象坐标的度量单位为象素)。
用了Scale方法,但这样坐标值就为单精度浮点数了。
有没别的方法?哪位给予指点啊?谢谢
...全文
189
12
打赏
收藏
关于自定义坐标系问题
我要在Picturebox里根据标准坐标值画多边形,现需要将坐标系的原点定义在左下角,但坐标系下的坐标值仍为整数(即对象坐标的度量单位为象素)。 用了Scale方法,但这样坐标值就为单精度浮点数了。 有没别的方法?哪位给予指点啊?谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
franky82
2005-01-06
打赏
举报
回复
楼上xiuyuan() 兄有理
那of123()兄是什么意思 可否详细解释
franky82
2005-01-06
打赏
举报
回复
over
xiuyuan
2005-01-05
打赏
举报
回复
picture1.scalemode =3
picture1.scale (0,scaleheight)-(scalewidth,0)
韧恒
2005-01-05
打赏
举报
回复
Private Sub Form_Click()
Dim I, OldFontSize ' 声明变量。
Width = 8640: Height = 5760 ' 按缇设置窗体大小。
' Move 100, 100 ' 移动窗体起点。
AutoRedraw = -1 ' 打开AutoRedraw。
OldFontSize = FontSize ' 保持旧的字体大小。
BackColor = QBColor(7) ' 将背景设置为灰色。
Scale (0, 110)-(130, 0) ' 设定自定义座标系统。
For I = 100 To 10 Step -10
Line (0, I)-(2, I) ' 每隔 10 个单位划尺寸标记。
CurrentY = CurrentY + 1.5 ' 移动光标位置。
Print I ' Print scale mark value on left.
Line (ScaleWidth - 2, I)-(ScaleWidth, I)
CurrentY = CurrentY + 1.5 ' 移动光标位置。
CurrentX = ScaleWidth - 9
Print I ' 将尺寸标记值打印在右边。
Next I
' 画条形图。
Line (10, 0)-(20, 45), RGB(0, 0, 255), BF ' 第一个蓝色条。
Line (20, 0)-(30, 55), RGB(255, 0, 0), BF ' 第一个红色条。
Line (40, 0)-(50, 40), RGB(0, 0, 255), BF
Line (50, 0)-(60, 25), RGB(255, 0, 0), BF
Line (70, 0)-(80, 35), RGB(0, 0, 255), BF
Line (80, 0)-(90, 60), RGB(255, 0, 0), BF
Line (100, 0)-(110, 75), RGB(0, 0, 255), BF
Line (110, 0)-(120, 90), RGB(255, 0, 0), BF
CurrentX = 18: CurrentY = 100 ' 移动光标位置。
FontSize = 14 ' 放大标题尺寸。
Print "Widget Quarterly Sales" ' 打印标题。
FontSize = OldFontSize ' 还原字体大小。
CurrentX = 27: CurrentY = 93 ' 移动光标位置。
Print "Planned Vs. Actual" ' 打印子标题。
Line (29, 86)-(34, 88), RGB(0, 0, 255), BF ' 打印图例。
Line (43, 86)-(49, 88), RGB(255, 0, 0), BF
End Sub
franky82
2005-01-05
打赏
举报
回复
API可以么
of123
2005-01-05
打赏
举报
回复
映射一下座标系不就完了?
zeng_ben
2005-01-05
打赏
举报
回复
顶先,再找各位前辈帮小弟一个忙,做个VB特别简单的查询系统,具体的条件我们可以QQ上聊,谢谢哪位好心人帮帮小弟,实在是急呀,再不做好,就要下岗!小弟这里有礼了!!!!!!!!!!在线等QQ11060006
Ting_Hai
2005-01-04
打赏
举报
回复
请问用API 如何画线,如何定坐标?
franky82
2005-01-04
打赏
举报
回复
楼上兄弟高明,只不过反了,应该是x不变,而y用Picture1.ScaleHeight-y代替
aiur2000
2005-01-04
打赏
举报
回复
y不变,x用picture1.height-x代替试试?
franky82
2005-01-04
打赏
举报
回复
TO: 楼上兄弟,
但这样的话 坐标就是以左上角为原点了,而我想以左下角为坐标原点啊
of123
2005-01-04
打赏
举报
回复
Picture1.ScaleMode = VbPixels
坐标转换(北京54、西安80、WGS84、
自定义
坐标系
)
现在只要你输入坐标数字,就可以转换呈你想要的
坐标系
统,很简单,一看就会。
自定义
图谱控件使用范例
本例实现了一个
自定义
的图谱控件,可以绘制连续波形,有
坐标系
,功能较为简单
openlayers
自定义
坐标系
&加载
自定义
坐标系
图层
做了一个openlayers 不用
坐标系
预览的功能,在开发的过程比预计复杂的多,主要是要彻底弄明白GIS相关开发的原理,自己也是因此走了许多弯路.写一下博客总结一下,一下以加载WMTS为例 一.
自定义
坐标系
1.EPSG查找
坐标系
目前
坐标系
基本都是有EPSG来维护的,点击epsg.io.进入官网,查找需要定的
坐标系
二.设定原点 分辨率 矩阵集等 三.设定map实例
坐标系
fitBounds等 ...
QGIS
自定义
坐标系
案例教程
你可以定义一个名称为“City CRS”的
坐标系
,并为其选择一个合适的CRS代码。
自定义
坐标系
是在地理信息系统(GIS)中非常重要的概念,它允许我们将地图数据与特定的地理参考系统(CRS)进行关联,以便正确地显示和分析空间数据。QGIS是一个功能强大且开源的GIS软件,提供了丰富的工具和功能,其中包括
自定义
坐标系
的创建和管理。在
自定义
坐标系
对话框中,你需要定义一些参数来完整地描述你的
自定义
坐标系
。在“
坐标系
”选项卡中,你可以看到一个列表,其中包含了许多不同的
坐标系
选项。步骤5:定义
自定义
坐标系
参数。
GIS开发:
自定义
坐标系
的地图
自定义
坐标系
的地图,是能够根据
坐标系
的参数,加载地图的底图,
坐标系
不仅仅限制于wgs84(EPSG:4326)、webmercator(EPSG:3857),这种常见的
坐标系
。 目前,找到开源的使用比较好的是openlayers和maptalks,借助于proj4.js的开源库,实现
自定义
地图的
坐标系
,加载地图切片。 openlayers的示例网址: https://openlayers.org/en/latest/examples/reprojection-by-code.html
自定义
坐标系
,将地图的
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章