| bsp; lbshow.BackColor = system.drawing.Color.Blue ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbpre_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbpre.MouseUp
lbpre.BackColor = system.drawing.Color.Black ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbExit_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbExit.MouseUp
lbExit.BackColor = system.drawing.Color.Black ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
Public Sub lbShow_MouseUp(ByVal sender As Object, ByVal e As System.WinForms.MouseEventArgs) Handles lbShow.MouseUp
lbshow.BackColor = system.drawing.Color.BLack ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.AliceBlue ''''设置颜色
End Sub
''''下面是鼠标离开_MouseLeave时发生的事件了
Public Sub lbShow_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbShow.MouseLeave
lbshow.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbshow.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
Public Sub lbExit_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbExit.MouseLeave
lbExit.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbExit.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
Public Sub lbpre_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbpre.MouseLeave
lbpre.BackColor = system.drawing.Color.BlanchedAlmond ''''设置颜色
lbpre.ForeColor = system.Drawing.Color.Black ''''设置颜色
End Sub
End Class
''''###################################################################################################################
''''!!!0001!!!04!!!26!!!!!!
''''建议不要修改此模块 以免产生不必要的错误(此代码已相当完美) 如欲修改请先备份 _______VB.Net中文站 hejianzhong
''''此模块可真接粘贴到您的程序中使用。
''''不要删除此信息，我免费为您提供此代码，想得到的回报就是最起码的尊重,虽然最终用户并不能看到，我仍感到欣慰
''''!!!0001!!!04!!!26!!!!!!
Public Module SKin
Public Rect1 As New Rectangle(0, 0, 0, 0)
Public Region1 As New System.Drawing.Region(Rect1)
Public Sub SkinRegion(ByVal SKform As Form, Optional ByVal skinNaSKform As String = Nothing)
Dim X, Y, transPix, opaciPix, BgWidth, BgHeight As Integer
Dim rect2 As New Rectangle()
Dim FirARGB As Integer = getpixel(SKform, 1, 1)
Dim Region1 As New System.Drawing.Region(Rect1)
Rect1 = Nothing
''''SKform.Visible = False
If skinnaSKform <> Nothing Then SKform.BackgroundImage = SKform.BackgroundImage.FromFile(System.WinForms.Application.StartUpPath & "\" & skinNaSKform & ".gif")
BgWidth = SKform.BackgroundImage.Width
BgHeight = SKform.BackgroundImage.Height
SKform.Height = BgHeight
SKform.Width = BgWidth
For Y = 1 To BgHeight - 1 ''''这里参考了VB6中的扫描方法，请参考相关资料
X = 0
Do
X = X + 1
While (getpixel(SKform, X, Y) = FirARGB) And (X < BgWidth)
X = X + 1
End While
transPix = X
While (getpixel(SKform, X, Y) <> FirARGB) And (X < BgWidth)
X = X + 1
End While
opaciPix = X - 1
If transPix <= opaciPix Then
rect2 = rect2.FromLTRB(transPix - 1, Y - 1, opaciPix, Y)
Region1.Union(rect2)
rect2 = Nothing
End If
Loop Until X >= BgWidth
Next Y
SKform.Region = Region1
SKform.Refresh()
''''SKform.Visible = True
End Sub
Public Function Getpixel(ByVal SKform As Form, ByVal x As Integer, ByVal y As Integer) As Integer
Dim pm As Bitmap = SKform.BackgroundImage
Try
Return pm.GetPixel(x, y).ToARGB
Catch
Exit Function
End Try
End Function
End Module
''''###################################################################################################################
VB.Net中文站下载skinform源码示例 190K （请到VB.Net论坛索取免费解压密码）
http://vbnetcn.126.com
上一页 [1] [2] [3] | 
