VB程式設計：無标題欄窗體移動和自定義滑鼠樣式

實作無邊框效果：

窗體BorderStyle=0-None

圖檔框的BorderStyle=0-None

代碼開始：

'---------實作移動無标題欄窗體API調用聲明--------------------

Const HTCAPTION = 2

Const WM_NCLBUTTONDOWN = &HA1

Private Declare Function ReleaseCapture Lib "user32" () As Long

                        'ReleaseCapture釋放滑鼠捕獲

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

                        'SendMessage向窗體傳遞消息

'-----------------------------------------------------------------

Private Sub Form_Load()

Picture1.MousePointer = 99    '設定滑鼠樣式為使用者自定義

Picture1.MouseIcon = LoadPicture(App.Path & "\pen.ico")   '滑鼠圖示的路徑

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

   If Button = 1 Then                '如果按下滑鼠左鍵

       Dim ReturnVal As Long         '定義一個整型變量

       X = ReleaseCapture()          '釋放滑鼠捕獲

       ReturnVal = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

                                     '向窗體傳遞消息，實作窗體移動

   End If

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Print

Picture1.Font = "華文行楷"

Picture1.FontSize = 20

Picture1.Print "               一封家書"

Picture1.Font = "宋體"

Picture1.FontSize = 10

Picture1.FontBold = False

Picture1.Print "                           獨進青樓"

Picture1.FontSize = 16

Picture1.Print "                  情愛的xxx"

Picture1.Print "                  現在工作很忙吧？"

Picture1.Print "                  身體好嗎？"

關鍵說明：

1、開頭那段代碼看不懂？其實很簡單，這個是API閱覽器複制出來的，安裝過vb6.0的電腦，可以右鍵打開VB6.0的安裝位置，按如下路徑查找就行:

Microsoft Visual Studio\COMMON\Tools\Winapi\APILOAD.EXE

打開之後依次點選：檔案--》加載文本檔案--》找到剛剛打開的路徑檔案夾Winapi，選中WIN32API.TXT，打開。

鍵入搜尋：“ReleaseCapture”複制標明項裡邊的内容放到開頭就可以了。（備注，此處需要删除裡邊的：Alias "ReleaseCapture"，我百度過，知道上做出如下解釋：一般的“第三方DLL檔案”，都不會給你提供A版和W版的函數接口）

别忘了還有“SendMessage”這個可以直接複制過來用，不用做任何更改。

最開頭的兩句是Const函數定義的常量，為什麼定義為這個數值，暫時沒搞懂，如果有人懂，請留言指教，不勝感激。

2、Form_Load()這個過程其實可以省略，在Picture1屬性中找到兩個屬性，設為相應的值即可。

     能閱讀到這裡你很棒了，為了讓有幸來訪的朋友容易研究這個效果，我把我做的程式打包上傳至百度雲，不知道會不會挂，挂了可以在部落格下方留言，我發你郵箱。

連結：

http://pan.baidu.com/s/1pLrTKWb

密碼：1trm

之前在百度貼吧發現一個不錯的文章，是關于UI設計類的，可以一起參考一下：

原文連結：【UI渣美化圖文】你的窗體有多扁？