/

[VB.Net]製作可移動的表單(Movable Form)

繼套用Aero後,整個表單都變成了半透明了,真的是非常的美觀。如果你還想要讓整個表單都能夠像標題列一樣按住就能移動,像桌面程式一樣,更有Aero的感覺。

請在Class裡面加入這段語法。

Const WM_NCHITTEST As Integer = &H84 Const HTCLIENT As Integer = &H1 Const HTCAPTION As Integer = &H2 Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_NCHITTEST MyBase.WndProc(m) If m.Result = HTCLIENT Then m.Result = HTCAPTION Case Else MyBase.WndProc(m) End Select End Sub

這樣,表單就可以移動囉~