VB实现简单的图形区域选择
2010-04-28 11:12
387 查看
程序效果:
当点击左边的部件图时,会弹出对话框提示你点击了哪一个区域。
程序思路:
用一个图片区域码图作为点击区域的参照,根据XY取得的颜色识别出属于哪一个区域
程序界面如下:
![](https://oscdn.geek-share.com/Uploads/Images/Content/202009/03/25033948c2cc170c89e4c9788031066f.jpg)
相关代码如下:
本程序的源代码可以到以下地址下载:
http://download.csdn.net/source/2294631
当点击左边的部件图时,会弹出对话框提示你点击了哪一个区域。
程序思路:
用一个图片区域码图作为点击区域的参照,根据XY取得的颜色识别出属于哪一个区域
程序界面如下:
![](https://oscdn.geek-share.com/Uploads/Images/Content/202009/03/25033948c2cc170c89e4c9788031066f.jpg)
相关代码如下:
Visual Basic Code |
Dim ColorArray ( ) As Long Dim ColorCount As Long Private Sub Form_Load ( ) '初始化颜色数量 ColorCount = Picture3.Width / 10 ReDim ColorArray ( 1 To ColorCount ) For X = 1 To ColorCount ColorArray ( X ) = Picture3.Point ( ( X * 10 ) - 5, 5 ) Next X End Sub Private Sub Picture1_MouseDown ( Button As Integer, Shift As Integer, X As Single, Y As Single ) If Button = 1 Then Dim NowColor As Long NowColor = Picture2.Point ( X, Y ) If NowColor <> RGB ( 255, 255, 255 ) Then Dim i As Long For i = 1 To ColorCount If NowColor = ColorArray ( i ) Then ButtonClick i Exit For End If Next i End If End If End Sub Private Sub ButtonClick ( Index As Long ) MsgBox "你点击了第 " & Index & "个按钮", 64, "提示" End Sub |
http://download.csdn.net/source/2294631
相关文章推荐
- 图形图像处理之——实现图像子区域图像的简单提取
- Java中实现简单的三大排序——冒泡、选择、插入
- 基于SNMP的MIB库访问实现两个简单的画验证码图形程序
- Java实现简单排序——冒泡、选择、插入、奇偶排序
- C++实现简单的选择排序
- 四种比较简单的图像显著性区域特征提取方法原理及实现
- 用Java实现简单选择排序
- 简单的实现EditText点击实现日期选择弹框
- 程序员必知的8大排序(二)-------简单选择排序,堆排序(java实现)
- Android上实现一个简单的天气预报APP(七) 切换到新的界面(选择城市界面)
- Qt 之 简单截图功能(一)实现鼠标选中区域截图
- 简单图形编程的学习(2)---点 (Windows GDI实现)
- 简单有效的连通区域提取算法实现
- 用vb.net与acess结合实现简单的电话号码本程序(二)完
- 利用JScript实现简单的地址选择
- HTML5实现上传头像图片大小选择(简单实现)
- 简单图形编程的学习(1)---文字 (Qt实现)
- Android仿IOS级联菜单_ListView实现区域级联选择效果
- 简单调用VS自带的数据源选择对话框实现数据库连接字符串配置
- 简单选择排序的实现