社区
VB基础类
帖子详情
大家过年好!我想请教一个问题
quxch
2004-01-30 05:50:42
我就是想做一个效果,将中国地图以省分界线分成一个个按钮,单击实现按钮功能,用VB可能吗?如何实现。如果VB不可以那么用什么语言可以呢?
我现在只知道Flash可以,如果用Flash的话,如何让他在VB上显示,并且要单击按钮打开VB一个窗体,希望大家家帮帮忙,很着急。望解答!
...全文
42
12
打赏
收藏
大家过年好!我想请教一个问题
我就是想做一个效果,将中国地图以省分界线分成一个个按钮,单击实现按钮功能,用VB可能吗?如何实现。如果VB不可以那么用什么语言可以呢? 我现在只知道Flash可以,如果用Flash的话,如何让他在VB上显示,并且要单击按钮打开VB一个窗体,希望大家家帮帮忙,很着急。望解答!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
gzhiceberg
2004-02-01
打赏
举报
回复
学习
aalei
2004-02-01
打赏
举报
回复
由于相邻省份的颜色不同,所以,可以捕捉鼠标点的颜色来区分
quxch
2004-02-01
打赏
举报
回复
谢谢大家,我将更加努力的!
华芸智森
2004-01-31
打赏
举报
回复
由于相邻省份的颜色不同,所以,可以捕捉鼠标点的颜色来区分.
flc
2004-01-31
打赏
举报
回复
TO hualy(狐狸_诚实的)
有什么控件可以满足楼主的要求。
paoluo
2004-01-31
打赏
举报
回复
关注,学习!!!!!
quxch
2004-01-31
打赏
举报
回复
谢谢大家的金玉良言!还有更好的方法吗????
谢谢了,大家一起思考!
hualy
2004-01-30
打赏
举报
回复
笨蛋!VB中有一个连接控件呀,为什么不用它来实现呢?
flc
2004-01-30
打赏
举报
回复
关注
学习
danielpan
2004-01-30
打赏
举报
回复
我只知道在网页中能做出来.
要不用.net??
rainstormmaster
2004-01-30
打赏
举报
回复
用vb可以实现,先看看下面的文章(你的问题难点在于坐标的获得,晚上我再继续解答):
VB中不规则图形热点的实现
所谓图形热点就是指定图形或图像上的某部分区域,当鼠标在这部分区域上单击或双击时,就像命令按钮一样会引发相应事件。笔者在VB 5中用Windows提供的三个API函数轻松实现了任何形状的图形热点,在此具体介绍这一技术的实现步骤。
首先在VB5中新建一"标准EXE工程",设置窗体Form1的ScaleMode属性为3。在窗体代码的声明部分定义如下三个API函数:
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, _
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32"(ByVal hObject As Long) As Long
Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long,ByVal x As Long, _
ByVal y As Long) As Long
函数说明:CreatePolygonRgn( )函数是用来创建一个图形热点对象,lpPoint参数为形成图形热点区的第一个边界点坐标,nCount参数指出了边界点的个数(如nCount<3时,将无法形成一个封闭区域),nPolyFillMode参数指定填充模式,该函数返回图形热点对象(Long型);DeleteObject( )函数用来删除一个由hObject参数指定的对象;PtInRegion( )函数用来判断某坐标(由参数x、y指出)是否在hRgn图形热 点对象指出的热点区内,若是返回1,否则返回0。
其次在申明部分再添入下列自定义变量:
Const MAXCOUNT = 30 '热点区边界点的最多个数
Dim RgnPt(MAXCOUNT) As POINTAPI '热点数组
Dim RgnObject, RgnCount, flag As Long
然后在Form1窗体的上方创建一个PictureBox控件,设置名称为P1 ,ScaleMode属性为3,Picture属性指定一幅BMP图像。在P1的MouseMove事件和MouseDown事件中添入下列代码:
Private Sub P1_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
If button = 1 Then '必须按下鼠标左键才有效
RgnPt(RgnCount).x = x
RgnPt(RgnCount).y = y
RgnCount = RgnCount + 1
End If
End Sub
Private Sub P1_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
If PtInRegion(RgnObject, x, y) = 1 Then
Label1.ForeColor = QBColor(12)
Label1.Caption = " 进入图形热点区!鼠标形状变为沙漏状!"
P1.MousePointer = 11 '设置鼠标形状为沙漏状
ElseIf flag = 1 Then
Label1.ForeColor = 0
Label1.Caption = " 没有进入图形热点区!"
P1.MousePointer = 0
End If
End Sub
接着在P1的下方并排创建两个CommandButton控件,Caption属性分别设为"创建热点"和"使用热点", 名称分别设为CrtRgn(对应"创建热点")和DspRgn。在这两个命令按钮的下方创建一个Label控件作为操作 提示区,取默认名Label1,Caption属性设为空,BackColor设为白色, BorderStyle属性设为1,字体为黑体加粗小四号。双击CrtRgn和DspRgn,在它们的Click事件中分别添入以下代码:
Private Sub CrtRgn_Click()
Dim tmp As Long
RgnCount = 0
tmp = DeleteObject(RgnObject)
Label1.Caption = " 在图像上单击鼠标左键来创建图形热点的范围!"+ _
"至少应在不同位置单击三次以上,否则形不成封闭区域!"
flag = 0
End Sub
Private Sub DspRgn_Click()
RgnObject = CreatePolygonRgn(RgnPt(0), RgnCount, 1)
flag = 1
End Sub
最后在窗体代码的任意位置添入Form_Load()事件:
Private Sub Form_Load()
ScaleMode = 3
P1.ScaleMode = 3
End Sub
按F5运行后,首先单击"创建热点"按钮,在图像区域内的不同位置 单击鼠标左键,最好单击三次以上,否则形不成热点区。然后单击"使用热点"按钮,在图像框内移动鼠标,你会发现当鼠标进入热点区后, 形状变为沙漏状。本文中的程序仅为演示程序,在实际应用中,可以事先创建好热点区数组,然后在热点区的MouseDown( )事件中添入相应的代码,即可使用图形热点代替命令按钮。
本程序在VB5/Win 95、Win 98下通过。
lzzqqq
2004-01-30
打赏
举报
回复
首先要走出语言的误区,
可以说,用什么语言都能实现。
不过每个省的形状都不规则,得用到不规则开关的按钮可能有一些难度。
至于弹出另一个窗口
调用窗口的 show方法就行了
一个
牛人提供的GIS源码(很好)
一个
牛人提供的GIS源码(很好 下面文字非本人所写,文件提到的下载的东西我全部放包里了。 最后的礼物:校园多媒体系统和校园WEBGIS系统 为什么说是最后的礼物,大概是因为我突然
想
这个blog不更新了。为什么呢?...
作为
一个
老师,我也把我回答的一些
问题
在这里共享一下,希望有所帮助
问“苏哥,我碰到2个
问题
,
想
请教
您一下, ?我公司是做国外项目的,可能因为时间差的原因,我们经理老是在下班的时候给我们布置任务,从
过年
以后到现在天天如此,而且我们加班是没有加班费的,有时候都下班好久了,...
如何优雅地向公司提加薪
二哥,你好呀,我是你铁杆粉丝,
想
向你
请教
一个
问题
。我是 2019 年 3 月份入职的,当时很菜,接手的是
一个
要离职同事的代码,可把我害惨了,一边推进度,一边修 bug,7 月份一整个月都没有在凌晨 3 点前睡过。幸好挺...
“老板,对不起!我胃不好,您给的饼我消化不来”,我去腾讯吃“软饭”了!
从裸辞准备到上个月20号拿到腾讯的offer,历经2个多月的时间,接下来就给大家分享一下我这段时间的学习心得与面试经验。 所谓“Android首席开发官”,其实也就是跟朋友吹牛皮时的一句玩笑话。包括老板、财务、业务...
秋招面试常见
问题
总结,春招前一定要解决!
兄弟们,秋招签了一家公司,要提前实习,从12月实习到现在,
想
在1月25号左右提前回家
过年
了,这样合适吗 #找不到实习会影响秋招吗# #如何一边实习一边秋招#刚找到一份测试开发的实习,马上入职了,
想
请教
一下测开这...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章