VB实现简单的图形区域选择

程序效果：

当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。

程序思路：

用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域

程序界面如下：

相关代码如下：

Visual Basic CodeDim 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