Protected Sub lbpreClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbPre.Click

        If Not frmpre Is Nothing Then frmpre.Dispose() ''''如果新窗体已经存在，清除之
        Dim strIm As String ''''定义一个字符类型变量
        If Imindex <> 6 Then ''''反过来想，就是说如果到了6就从头开始，因这我只有这么几张图片了
            Imindex = Imindex + 1
        Else
            Imindex = 1 ''''从头开始
        End If
        strIm = "SK" & Imindex.ToString ''''tostring的意思是从字符类型转为数字类型
        ''''在VB.net中label控件有image控件一样的作用，不但可以显示文本而且可以显示图片，而在VB6中是只能显示图片的
        Label3.Image = Label3.Image.FromFile(System.Windows.Forms.Application.StartupPath & "\" & strIm & ".GIF") ''''formfile是从一个路径装载图片
        ''''System.WinForms.Application.StartUpPath的意思是当前目录，同VB6中的App.Path
        ''''请注意调试过程中使用的当前目录是在bin目录下，在下一个版本有可能更改
        frmpre = New Form1(strIm) ''''初始化一个实例（对象）
        frmpre.Visible = True ''''显示新窗体,如果没有这个只怕你什么也看不到！
    End Sub

    ''''下面是移动窗体的代码，请参考前面的文章
    Private Sub Form1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs)
        Me.Capture = False ''''释放鼠标捕获
        '''' Me.SendMessage(&HA1S, 2, 0) ''''这是VB6中最有名的API消息函数
        ''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
        ''''注意注意beta2这里的变化
        ''''sendmessage以前的用法不能用了，看了一下MSDN，居然全是Beta1的内容，我倒！
        ''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
    End Sub
    ''''下面是鼠标移动_MouseMove时发生的事件了
    Public Sub lbpre_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbPre.MouseMove
        lbPre.BackColor = System.Drawing.Color.Black ''''设置颜色
        lbPre.ForeColor = System.Drawing.Color.AliceBlue ''''设置颜色
    End Sub
    Public Sub lbExit_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbExit.MouseMove
        lbExit.BackColor = System.Drawing.Color.Black ''''设置颜色
        lbExit.ForeColor = System.Drawing.Color.AliceBlue ''''设置颜色
    End Sub
    Public Sub lbshow_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbShow.MouseMove
        lbShow.BackColor = System.Drawing.Color.Black ''''设置颜色
        lbShow.ForeColor = System.Drawing.Color.AliceBlue ''''设置颜色
    End Sub
    ''''下面是鼠标按下_MouseMove时发生的事件了
    Public Sub lbpre_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbPre.MouseDown
        lbPre.BackColor = System.Drawing.Color.Blue ''''设置颜色
        lbPre.ForeColor = System.Drawing.Color.AliceBlue ''''设置颜色
    End Sub
    Public Sub lbExit_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbExit.MouseDown
        lbExit.BackColor = System.Drawing.Color.Blue ''''设置颜色
        lbExit.ForeColor = System.Drawing.Color.AliceBlue ''''设置颜色
    End Sub
    Public Sub lbShow_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbShow.MouseDown
        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.Windows.Forms.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.Windows.Forms.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.Windows.Forms.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

''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
''''注意注意beta2这里的变化
''''大家注意到没有？只有这个我写的这个千变万化窗体的模块不需要任何修改，呵呵，可以骄傲一下了
''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

''''###################################################################################################################
''''!!!0001!!!04!!!26!!!!!!
''''建议不要修改此模块 以免产生不必要的错误(此代码已相当完美) 如欲修改请先备份  _______VB.Net中文站 hejianzhong
''''此模块可真接粘贴到您的程序中使用。
''''不要删除此信息，我免费为您提供此代码，想得到的回报就是最起码的尊重,虽然最终用户并不能看到，我仍感到欣慰
''''!!!0001!!!04!!!26!!!!!!
Public Module SKin
    Declare Function SendMessage Lib "user32" Alias _
       "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
          ByVal wParam As Long, ByVal lParam As Long) As Long

    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 
     &nb

上一页  [1] [2] [3] [4] [5] [6]  下一页