- 浏览: 196907 次
- 性别:
- 来自: 北京
文章分类
- 全部博客 (137)
- Android (12)
- linux (9)
- rails (3)
- 经验总结 (39)
- 工作、项目 (9)
- 生物信息,blast (2)
- java (12)
- 论点 (1)
- sql (9)
- javascript (1)
- vb (8)
- 发布的程序 (1)
- 感动编程 (1)
- asp (3)
- excel (1)
- iis (1)
- access (2)
- matlab 图像 (2)
- matlab (2)
- jQuery (2)
- MAMP PRO (1)
- orcal mac os python (1)
- regular expression (1)
- linux grep awk (1)
- numpy (1)
- h5py (1)
- Heritrix (1)
- servlet (1)
- hadoop (1)
- copyFromLocal (1)
- 气象 (0)
最新评论
-
xiaoyao3857:
这是什么原理呢?还有,为什么我设好之后,运行appletvie ...
警告:不能读取 AppletViewer 的属性文件解决 -
阿浊I:
I think so,this work had done a ...
How to change max_allowed_packet value in mysql? -
zhuorulin:
丁林.tb 写道 If you don't use globa ...
How to change max_allowed_packet value in mysql? -
丁林.tb:
If you don't use global or use ...
How to change max_allowed_packet value in mysql?
所谓图形热点就是指定图形或图像上的某部分区域,当鼠标在这部分区域上单击或双击时,就像命令按钮一样会引发相应事件。笔者在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下通过。
发表评论
-
pygrib basemap matlibplot环境安装
2017-07-14 10:47 0话不多说,直奔主题 我是再suse下离线安装的,所以搞得 ... -
spring 定时任务
2015-09-16 12:44 855这里使用的是Spring2.5,需要的jar包:spring ... -
三年博士干的事
2014-12-22 10:08 600见附件墙报 所谓的利用matlab,c++,php,基于 ... -
文本分类入门(番外篇)特征选择与特征权重计算的区别
2013-05-22 09:02 1930在文本分类的过程中 ... -
文本分类入门(十一)特征选择方法之信息增益
2013-05-22 09:03 1650前文提到过,除了开方检验(CHI)以外,信息增益(IG ... -
SVM入门(十)将SVM用于多类分类
2013-05-22 09:03 775从 SVM的那几张图可以看出来,SVM是一种典型的两类 ... -
SVM入门(九)松弛变量(续)
2013-05-22 09:03 647接下来要说的东西其实不是松弛变量本身,但由于是为了使用 ... -
SVM入门(八)松弛变量
2013-05-22 09:03 900现在我们已经把一个 ... -
SVM入门(七)为何需要核函数
2013-05-19 16:27 835生存?还是毁灭?——哈姆雷特 可分?还是不可分?——支持 ... -
SVM入门(六)线性分类器的求解——问题的转化,直观角度
2013-05-19 16:26 804让我再一次比较完整 ... -
SVM入门(五)线性分类器的求解——问题的描述Part2
2013-05-19 16:25 738从最一般的定义上说 ... -
SVM入门(四)线性分类器的求解——问题的描述Part1
2013-05-19 16:25 773上节说到我们有了一个线性分类函数,也有了判断解优劣的标准— ... -
SVM入门(一)至(三)Refresh
2013-05-19 16:24 742(一)SVM的八股简介 ... -
matlab文件及文件夹操作
2013-02-23 13:07 83331.matlab中读取一行多个 ... -
matlab 矩阵求和计算
2012-11-10 12:50 1707matlab中针对的数据大多是以矩阵形式来处理,求和函数是su ... -
vb动态数组
2012-07-19 21:28 895最近老板逼着弄GIS ,找到了mapobject是空间,使用过 ... -
关于 surfaceview 背景覆盖的问题
2012-02-16 15:18 2899本人开发过程中,发现出了黑色,不能设置其他颜色,如果设置了,就 ... -
关于 Failed to start monitoring 0A3AAA401902A029 错误
2012-02-12 10:07 2150在android开发的时候,在前面的文章中有说到连接真机开发, ... -
两个activity之间的Intent 传值
2012-02-11 23:32 1720看了很多,总结以下首先activity1和activity2之 ... -
VB中的图像用HScroll1,VScroll1 空间如何操作
2006-03-27 18:06 1072试过了,绝对正确的哦,呵呵,前提是图像要足够大的看不到,然后才 ...
相关推荐
精彩编程与编程技巧-VB中不规则图形热点的实现 ...
VB 不规则窗体 VB 不规则窗体 VB 不规则窗体
VB生成规则图形的例子,绘制出三种多边形图案,都是规则的图形,学习一下生成方法吧。本程序可生成圆形花规、正方形花规和多彩蛋卷三种形状。
VB 如何实现随机图形验证码 VB 如何实现随机图形验证码
Vb不规则体。。。。。。。。。。。。。。。。。。。。。
vb创建不规则窗体源代码
这次做了一个并没有什么用的不规则图形碰撞检测, 代码还是蛮简单的,不过并不建议真的用来做游戏引擎中的检测部分,这个效率不够,玩玩看还可以。 并没有用双缓冲,只是做了一个Demo233
vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb...
VB图形翻转显示VB图形翻转显示VB图形翻转显示VB图形翻转显示VB图形翻转显示
图形用户界面(用VB实现的) 图形用户界面 VB 小程序 图形用户界面 VB 小程序
VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02图形窗体VB编程源代码 02...
vb不规则区域的填充源码 vb不规则区域的填充源码 vb不规则区域的填充源码 vb不规则区域的填充源码
不规则图形填充方法示例
用简单的Print方法输出一个简单的VB字符图形,记得在学习Basic的时候,经常会遇到这种作业题。
VB6实现的不规则窗体源程序,非常简单的实现方法,可以设计很漂亮的个性软件啊!
Vb画圆并组合成规则图形,主要练习使用CIRCLE方法绘制图案,画出一些有规则的图案,在本实例中,规则已编写好,你只需在窗体上点击一下鼠标,图形就会绘制完成并显示,最终结果如上图所示。
程序主要演示了如何在一个PictureBox上实现区域区分的点击效果。支持奇形怪状的区域,可以把这个技术用到控件上封装一下效果应该不错...如果想提高效率,可以采用GDI作为图形处理的基础。本程序主要用初学者参考使用。
VB制作个性化图形窗体源代码,下载后把只读属性前的勾去掉
VB实现窗体中可以移动的图形Move实例代码,主要研究学习VB中MOVE方法的使用,图中的图形可以点击鼠标移到位置。