易截截图软件、单文件、免安装、纯绿色、仅160KB

咨询个VB控件问题,谢谢! - VB / 控件

我想用VB画一个类似这样的地图(很多不规则图案)
每个图案是独立的(每个图案响应if事件后会变成指定的颜色)
我想咨询下,像这个应该用什么控件来画这地图,谢谢!

没有现成的控件,自己实现吧,不难。
首先实现鼠标绘图,保存时只保存每一个区的边界的坐标数组值(为减少坐标值,同一斜率只取起始和终止点)。
至于块变色,就更简单了,在绘制时使用PathToRegion转换路径为区域形成区域数数组,然后遍历区域数组,使用PtInRegion判断鼠标是否选择了某个区域,最后使用FillRgn改变区域颜色即可。


不定义边界直接处理也可以:
预先准备一张没有名称和城市的图片(白底黑边),从内部一点开始进行封闭区域的着色,这是基本的图形学算法。

偶的思路:
将每块单独生成一个gif图,然后用AniGIF控件代替每块。

也可从鼠标指针处开始执行种子填充算法

帮顶了

Mark

mapx

帮顶。。。。。

用flash呗,还能和vb通信。


太复杂了```

学习!!!!!!!!!

引用
我想用VB画一个类似这样的地图(很多不规则图案)
每个图案是独立的(每个图案响应if事件后会变成指定的颜色)
我想咨询下,像这个应该用什么控件来画这地图,谢谢!


分给错了,应该给1楼的江南春

这个月得点分好难,这20分可能就事关一个名次^o^

引用
引用楼主 myxiqi 的回复:
我想用VB画一个类似这样的地图(很多不规则图案)
每个图案是独立的(每个图案响应if事件后会变成指定的颜色)
我想咨询下,像这个应该用什么控件来画这地图,谢谢!




相关问答:

vb - VB / 基础类

我想把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
......

vb读取用word转换成的xml里的数据 - VB / 基础类

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' 读入所有字符到变量中 ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

中山的VB程序员进来看一下 - VB / 非技术类

刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……

佛山的行吗,广州的行吗?

友情支持
回复内容太短了! 

帮顶 ......

vb WebBrowser 小问题,请教 - VB / 基础类

vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址

顶下顶下

引用
BeforeNavigate2
好像没有这个吧 vb6.0

BeforeNavigate2
这个可以有,呵呵。
......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号