VB中不规则图形热点的实现

fpjiangzhan06

fpjiangzhan06

2016-02-19 16:33

get新技能是需要付出行动的,即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是VB中不规则图形热点的实现,一起来学习了解下吧!
所谓图形热点就是指定图形或图像上的某部分区域,当鼠标在这部分区域上单击或双击时,就像命令按钮一样会引发相应事件。笔者在VB5中用Windows提供的三个API函数轻松实现了任何形状的图形热点,在此具体介绍这一技术的实现步骤。
  首先在VB5中新建一"标准EXE工程",设置窗体Form1的ScaleMode属性为3。在窗体代码的声明部分定义如下三个API函数:
  PrivateTypePOINTAPI
  xAsLong
  yAsLong
  EndType
  PrivateDeclareFunctionCreatePolygonRgnLib"gdi32"(lpPointAsPOINTAPI,ByValnCountAsLong,ByValnPolyFillModeAsLong)AsLong
  PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong
  PrivateDeclareFunctionPtInRegionLib"gdi32"(ByValhRgnAsLong,ByValxAsLong,ByValyAsLong)AsLong
  函数说明:CreatePolygonRgn()函数是用来创建一个图形热点对象,lpPoint参数为形成图形热点区的第一个边界点坐标,nCount参数指出了边界点的个数(如nCount3时,将无法形成一个封闭区域),nPolyFillMode参数指定填充模式,该函数返回图形热点对象(Long型);DeleteObject()函数用来删除一个由hObject参数指定的对象;PtInRegion()函数用来判断某坐标(由参数x、y指出)是否在hRgn图形热点对象指出的热点区内,若是返回1,否则返回0。
  其次在申明部分再添入下列自定义变量:
  ConstMAXCOUNT=30'热点区边界点的最多个数
  DimRgnPt(MAXCOUNT)AsPOINTAPI'热点数组
  DimRgnObject,RgnCount,flagAsLong
  然后在Form1窗体的上方创建一个PictureBox控件,设置名称为P1,ScaleMode属性为3,Picture属性指定一幅BMP图像。在P1的MouseMove事件和MouseDown事件中添入下列代码:
  PrivateSubP1_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
   Ifbutton=1Then'必须按下鼠标左键才有效
  RgnPt(RgnCount).x=x
  RgnPt(RgnCount).y=y
  RgnCount=RgnCount 1
   EndIf
  EndSub
  PrivateSubP1_MouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
   IfPtInRegion(RgnObject,x,y)=1Then
  Label1.ForeColor=QBColor(12)
  Label1.Caption="进入图形热点区!鼠标形状变为沙漏状!"
  P1.MousePointer=11'设置鼠标形状为沙漏状
   ElseIfflag=1Then
  Label1.ForeColor=0
  Label1.Caption="没有进入图形热点区!"
  P1.MousePointer=0
   EndIf
  EndSub
  接着在P1的下方并排创建两个CommandButton控件,Caption属性分别设为"创建热点"和"使用热点",名称分别设为CrtRgn(对应"创建热点")和DspRgn。在这两个命令按钮的下方创建一个Label控件作为操作提示区,取默认名Label1,Caption属性设为空,BackColor设为白色,BorderStyle属性设为1,字体为黑体加粗小四号。双击CrtRgn和DspRgn,在它们的Click事件中分别添入以下代码:
  PrivateSubCrtRgn_Click()
   DimtmpAsLong
   RgnCount=0
   tmp=DeleteObject(RgnObject)
   Label1.Caption="在图像上单击鼠标左键来创建图形热点的范围!" _
  "至少应在不同位置单击三次以上,否则形不成封闭区域!"
   flag=0
  EndSub
  PrivateSubDspRgn_Click()
   RgnObject=CreatePolygonRgn(RgnPt(0),RgnCount,1)
   flag=1
  EndSub
  最后在窗体代码的任意位置添入Form_Load()事件:
  PrivateSubForm_Load()
   ScaleMode=3
   P1.ScaleMode=3
  EndSub
  按F5运行后,首先单击"创建热点"按钮,在图像区域内的不同位置单击鼠标左键,最好单击三次以上,否则形不成热点区。然后单击"使用热点"按钮,在图像框内移动鼠标,你会发现当鼠标进入热点区后,形状变为沙漏状。本文中的程序仅为演示程序,在实际应用中,可以事先创建好热点区数组,然后在热点区的MouseDown()事件中添入相应的代码,即可使用图形热点代替命令按钮。
  本程序在VB5/Win95、Win98下通过。->

展开更多 50%)
分享

猜你喜欢

VB中不规则图形热点的实现

编程语言 网络编程
VB中不规则图形热点的实现

浅说Authorware中不规则窗口的实现

设计软件 平面设计软件 广告设计软件
浅说Authorware中不规则窗口的实现

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Windows 中不规则窗体的编程实现

C语言教程 C语言函数
Windows 中不规则窗体的编程实现

不规则对话框的又一实现

C语言教程 C语言函数
不规则对话框的又一实现

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

不规则饼干的吃法 不规则饼干的家常做法

鸡蛋 蛋黄 巧克力饼干
不规则饼干的吃法 不规则饼干的家常做法

用Photoshop蒙版法精确选择不规则图形

PS PS教程
用Photoshop蒙版法精确选择不规则图形

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

让VB在程序中显示错误行

让VB在程序中显示错误行

Windows 8窗口透明化设置教程

Windows 8窗口透明化设置教程
下拉加载更多内容 ↓