VB.NET怎么可以限制窗體不能被鼠標隨便拖動位置

很簡單，通過WindowsAPI，刪除窗體菜單項就行了

目前創新互聯已為成百上千的企業提供了網站建設、域名、虛擬主機、網站托管、企業網站設計、沙坪壩網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

首先在窗體類中聲明API：

Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr

Declare Function RemoveMenu Lib "user32" (ByVal lngHmenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

其次聲明API參數常量：

Const MF_BYPOSITION As Integer = H400

然后在窗體類中寫入過程：

Private Sub UserForm_Initialize_stopmove() '禁止窗體移動

? Dim lngHwnd As IntPtr

? Dim lngHmenu As IntPtr

? lngHwnd = Me.Handle

? If lngHwnd 0 Then

? ? ? lngHmenu = GetSystemMenu(lngHwnd, False)

? ? ? RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '這里的0代表菜單中從上往下數第一個菜單項

? End If

End Sub

Private Sub UserForm_Initialize_onmove() '恢復窗體移動

? Dim lngHwnd As IntPtr

? Dim lngHmenu As IntPtr

? lngHwnd = Me.Handle

? If lngHwnd 0 Then

? ? ? lngHmenu = GetSystemMenu(lngHwnd, True)

RemoveMenu(lngHmenu, 0, MF_BYPOSITION) '這里的0與禁止代碼中的數值同步，原因時雖然表面上刪除了菜單項，實則為隱藏了菜單項，各個菜單的索引值并沒有變，所以0依然代表初始菜單的第一個菜單項，即被刪除的那個菜單項

? End If

End Sub

然后如果你的窗口菜單是動態變化的，建議聲明常數：

Const MF_BYPOSITION As Integer = H0

然后使用相關的Windows功能的常數進行刪除菜單。常數需要自行查看winuser.h頭文件

如果找不到該頭文件，可以看這里：網頁鏈接

其余信息詳見MSDN：網頁鏈接

最后說一下，不建議前面網友說的重寫WndProc的方法，因為這樣攔截標題欄點擊消息會導致窗體本身的菜單也無法顯示出來，有損窗體功能，并且像雙擊左上角圖標關閉窗體這樣的功能也會跟著攔截消息的操作一起被吞掉。

vb點虐 中怎樣實現窗口標題欄上面的文字滾動

字符拼湊法:

dim Title as string="播放歌曲播放歌曲"

dim S as string=""

for I as integer=0 to Title.length-1

S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)

next

vb點虐 中如何添加滾動條，像在VB6中那樣的。不是窗體本身的滾動條

建立滾動條的方法如下：

（1）將鼠標移到ToolBox內的WinForm標簽頁的HscrollBar控件上，單擊鼠標左鍵。

（2）將指針移至窗體中適當的位置，按住鼠標左鍵并拖動鼠標將HscrollBar控件調整到合適的大小放開左鍵。

（3）同樣，再在Form上設置一個VscrollBar控件。