我想用VB画一个类似这样的地图(很多不规则图案)
每个图案是独立的(每个图案响应if事件后会变成指定的颜色)
我想咨询下,像这个应该用什么控件来画这地图,谢谢!
没有现成的控件,自己实现吧,不难。
首先实现鼠标绘图,保存时只保存每一个区的边界的坐标数组值(为减少坐标值,同一斜率只取起始和终止点)。
至于块变色,就更简单了,在绘制时使用PathToRegion转换路径为区域形成区域数数组,然后遍历区域数组,使用PtInRegion判断鼠标是否选择了某个区域,最后使用FillRgn改变区域颜色即可。
不定义边界直接处理也可以:
预先准备一张没有名称和城市的图片(白底黑边),从内部一点开始进行封闭区域的着色,这是基本的图形学算法。
偶的思路:
将每块单独生成一个gif图,然后用AniGIF控件代替每块。
也可从鼠标指针处开始执行种子填充算法
帮顶了
Mark
mapx
帮顶。。。。。
用flash呗,还能和vb通信。
太复杂了```
学习!!!!!!!!!
分给错了,应该给1楼的江南春
这个月得点分好难,这20分可能就事关一个名次^o^
相关问答:
在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有,呵呵。
......
谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......