開張大吉...

2011-07-29 置頂文章

3836
0
VB.net

摘要:開張大吉...

測試貼文....勿笑.
貼圖...自製介面風格控制項...
先放基本控制項:
再放一個 ku_Title 物件，表單、按鈕就變立體了.
連結 http://www.blueshop.com.tw
貼程式碼：攔截 Windows Message 讓無邊框表單可移動、並可調整大小.


   Private Sub rbt_正常_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
        rbt_正常.CheckedChanged, rbt_較亮.CheckedChanged, rbt_較暗.CheckedChanged
        sender = CType(sender, RadioButton)
        Select Case sender.name
            Case "rbt_正常" : Ku_title1.按鈕漸層亮度 = ku_UI.ku_title.按鈕漸層亮度列舉常數.正常
            Case "rbt_較亮" : Ku_title1.按鈕漸層亮度 = ku_UI.ku_title.按鈕漸層亮度列舉常數.較亮
            Case "rbt_較暗" : Ku_title1.按鈕漸層亮度 = ku_UI.ku_title.按鈕漸層亮度列舉常數.較暗
        End Select
    End Sub
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_NCHITTEST As Integer = &H84
        Const HTCLIENT As Integer = &H1
        Const HTCAPTION As Integer = &H2
        Const HTLEFT As Integer = 10
        Const HTRIGHT As Integer = 11
        Const HTTOP As Integer = 12
        Const HTTOPLEFT As Integer = 13
        Const HTTOPRIGHT As Integer = 14
        Const HTBOTTOM As Integer = 15
        Const HTBOTTOMLEFT As Integer = 16
        Const HTBOTTOMRIGHT As Integer = 17
        MyBase.WndProc(m)
        If (MyBase.FormBorderStyle = 0) AndAlso (MyBase.WindowState <> 2) Then
            Select Case m.Msg
                Case WM_NCHITTEST
                    If m.Result.ToInt32 = HTCLIENT Then
                        m.Result = New IntPtr(HTCAPTION)
                    End If
                    Dim 目標寬度 As Integer = 5
                    Dim nPosX = CInt(m.LParam) Mod 65536    '---LoWord---
                    Dim nPosY = CInt(m.LParam) / 65536      '---HiWord---
                    Dim 上 As Boolean = (nPosY <= Top + 目標寬度)
                    Dim 右 As Boolean = (nPosX >= Left + Width - 目標寬度)
                    Dim 下 As Boolean = (nPosY >= Top + Height - 目標寬度)
                    Dim 左 As Boolean = (nPosX <= Left + 目標寬度)
                    Select Case True
                        Case 上 * 右 : m.Result = New IntPtr(HTTOPRIGHT)
                        Case 上 * 左 : m.Result = New IntPtr(HTTOPLEFT)
                        Case 下 * 右 : m.Result = New IntPtr(HTBOTTOMRIGHT)
                        Case 下 * 左 : m.Result = New IntPtr(HTBOTTOMLEFT)
                        Case 上 : m.Result = New IntPtr(HTTOP)
                        Case 右 : m.Result = New IntPtr(HTRIGHT)
                        Case 下 : m.Result = New IntPtr(HTBOTTOM)
                        Case 左 : m.Result = New IntPtr(HTLEFT)
                    End Select
            End Select
        End If
    End Sub

只要改一下表單的 BackColor 介面風格就自動套用了.

ku3

回首頁