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

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

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

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


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

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

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

帮顶了

Mark

mapx

帮顶。。。。。

用flash呗,还能和vb通信。


太复杂了```

学习!!!!!!!!!

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


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

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

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




相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / 非技术类

怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

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

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

顶下顶下

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

BeforeNavigate2
这个可以有,呵呵。
......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号