我想用VB画一个类似这样的地图(很多不规则图案)
每个图案是独立的(每个图案响应if事件后会变成指定的颜色)
我想咨询下,像这个应该用什么控件来画这地图,谢谢!
没有现成的控件,自己实现吧,不难。
首先实现鼠标绘图,保存时只保存每一个区的边界的坐标数组值(为减少坐标值,同一斜率只取起始和终止点)。
至于块变色,就更简单了,在绘制时使用PathToRegion转换路径为区域形成区域数数组,然后遍历区域数组,使用PtInRegion判断鼠标是否选择了某个区域,最后使用FillRgn改变区域颜色即可。
不定义边界直接处理也可以:
预先准备一张没有名称和城市的图片(白底黑边),从内部一点开始进行封闭区域的着色,这是基本的图形学算法。
偶的思路:
将每块单独生成一个gif图,然后用AniGIF控件代替每块。
也可从鼠标指针处开始执行种子填充算法
帮顶了
Mark
mapx
帮顶。。。。。
用flash呗,还能和vb通信。
太复杂了```
学习!!!!!!!!!
引用 我想用VB画一个类似这样的地图(很多不规则图案) 每个图案是独立的(每个图案响应if事件后会变成指定的颜色) 我想咨询下,像这个应该用什么控件来画这地图,谢谢!分给错了,应该给1楼的江南春
这个月得点分好难,这20分可能就事关一个名次^o^
引用 引用楼主 myxiqi 的回复: 我想用VB画一个类似这样的地图(很多不规则图案) 每个图案是独立的(每个图案响应if事件后会变成指定的颜色) 我想咨询下,像这个应该用什么控件来画这地图,谢谢!
相关问答:
我想把word另存为xml之后,用vb读取这个xml的内容,请问如何实现? dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下 h是什么呢。。。。。。。。。 h是xml格式的字符串 你是想打开。XML格式的文件吧? 我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
刚建了一个群:中山VB编程(105787219) 有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目. 尽管俺不是中山的,也进来蹭分…… 佛山的行吗,广州的行吗? 友情支持 回复内容太短了! 帮顶 ......
vb WebBrowser 小问题,请教: WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址 顶下顶下 引用 BeforeNavigate2 好像没有这个吧 vb6.0 BeforeNavigate2 这个可以有,呵呵。 ......