图片上部分操作区域的确定和在区域上单击事件的处理.

1.如果我们想用图片美化我们的程序.

2.有些特定的窗口,在不同的显示器分辨率下,按钮控件会出现缩小或者放大的情况,

这样就会影响程序的美观,如果我们用图片的区域来实现按钮的同样的功能,这样就可以解决不同分辨率的问题.

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

下面的例子实现了这一功能.

图片是设计是的样子,通过三个Label得到我们需要的位置,将它们放到我们的图片上,盖住图片上与其对应的部分.

得到我们设定的图片区域,返回我们规定到的整数
     Private   Function GetMouseLocation() Function GetMouseLocation(ByVal X As Integer, ByVal Y As Integer) As Integer

        '用我们设计好的label来确定区域,当然你也可以自己写区域
        Dim rect1 As New System.Drawing.Rectangle(lblSetDomain.Location, lblSetDomain.Size)
        Dim rect2 As New System.Drawing.Rectangle(lblOK.Location, lblOK.Size)
        Dim rect3 As New System.Drawing.Rectangle(lblCancel.Location, lblCancel.Size)

        If rect1.Contains(X, Y) Then
            Return 1
        ElseIf rect2.Contains(X, Y) Then
            Return 2
        ElseIf rect3.Contains(X, Y) Then
            Return 3
        Else
            Return 0
        End If
    End Function

     ' 当鼠标移动到我们设定的图片区域时
     Private   Sub pbxLogin_MouseMove() Sub pbxLogin_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbxLogin.MouseMove
        Select Case GetMouseLocation(e.X, e.Y) '得到特定的图片区域
            Case 0
                '改变鼠标的形状
                Me.Cursor = Cursors.Default
            Case Else
                Me.Cursor = Cursors.Hand
        End Select
    End Sub

     ' 在图片选择区域鼠标松开时
     Private   Sub pbxLogin_MouseUp() Sub pbxLogin_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbxLogin.MouseUp
        Select Case GetMouseLocation(e.X, e.Y)
            '添加你的代码在这里
        Case 1
                '添加你的代码
            Case 2
                '添加你的代码
            Case 3
                '添加你的代码
        End Select
    End Sub