VB.net怎么實現運行時鼠標拖動改變控件的大小啊

控件是可以顯示在里面的，你只要加個label，把label的屬性設為visualble=fause就行。設置鼠標經過頭像的mouseHover和mouseLeave事件，當mouseHover時label的屬性visualble=true，當mouseLeave時label的屬性visualble=fause即可。窗體的鼠標事件可以設置控件的cursor屬性，里面可以選擇許多種鼠標圖形。 只要是正常的Form都可以改變窗體大小，但是無邊框的窗體只能用函數改變或者設置屬性，在debug后是不能改變的。拖動窗體需要在窗體的load時間里面寫入當鼠標單擊不放時的事件即可，不難。

成都創新互聯公司從2013年創立，先為廣饒等服務建站，廣饒等地企業，進行企業商務咨詢服務。為廣饒企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。

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.net 在Win窗體中如何實現圖標或按鈕的拖放功能。

VB.NET做的窗體托盤，可以把窗體縮小到任務欄圖標，點右鍵可以觸發事件-VB.NET do form tray can form down to the taskbar icon, point right to trigger events

VB.NET我要用鼠標軌跡畫一個矩形框 然后選中控件。就像星際和魔獸爭霸里對部隊單位的選中一樣~等大神回答

這個類繼承自Panel，把它加到你的項目里面，先運行一下，然后從工具箱里把它拖到窗體上，然后再向里面添加其它控件就可以了，支持Shift加選，Alt減選

Imports?System.Linq

Imports?System.Collections

Public?Class?MyPanel

Inherits?Panel

'?選擇模式，相交還是包含

Enum?SelectMode

Intersects

Contains

End?Enum

Dim?down?As?New?Point(-1,?-1)

Dim?rect?As?Rectangle

Dim?selected?As?New?List(Of?Control)

Dim?editting?As?IEnumerable(Of?Control)

Dim?mode?As?SelectMode?=?SelectMode.Contains

Dim?shift,?alt?As?Boolean

Public?Sub?New()

Me.DoubleBuffered?=?True

End?Sub

Protected?Overrides?Sub?OnMouseDown(e?As?MouseEventArgs)

MyBase.OnMouseDown(e)

down?=?e.Location

editting?=?selected.ToArray().ToList()

OnMouseMove(e)

End?Sub

Protected?Overrides?Sub?OnMouseMove(e?As?MouseEventArgs)

MyBase.OnMouseMove(e)

If?e.Button?=?Windows.Forms.MouseButtons.Left?Then

Dim?loc?As?New?Point(Math.Min(down.X,?e.X),?Math.Min(down.Y,?e.Y))

Dim?size?As?New?Size(Math.Abs(down.X?-?e.X),?Math.Abs(down.Y?-?e.Y))

rect?=?New?Rectangle(loc,?size)

Dim?cs?As?New?List(Of?Control)

For?Each?c?In?Controls

cs.Add(c)

Next

Dim?a?=?cs.Where(Function(n?As?Control)?(mode?=?SelectMode.Contains?And?rect.Contains(n.Bounds))?Or?(mode?=?SelectMode.Intersects?And?rect.IntersectsWith(n.Bounds)))

If?shift?Then?editting?=?a.Union(selected)?Else?If?alt?Then?editting?=?selected.Except(a)?Else?editting?=?a

Invalidate()

End?If

End?Sub

Protected?Overrides?Sub?OnMouseUp(e?As?MouseEventArgs)

MyBase.OnMouseUp(e)

down?=?New?Point(-1,?-1)

selected?=?editting.ToList()

editting?=?Nothing

Invalidate()

End?Sub

Protected?Overrides?Function?ProcessKeyPreview(ByRef?m?As?Message)?As?Boolean

Dim?KeyCode?As?Keys?=?CInt(m.WParam)?And?CInt(Keys.KeyCode)

Dim?d?As?Boolean

If?m.Msg?=?H100?Or?m.Msg?=?H104?Then?d?=?True?Else?If?m.Msg?=?H101?Or?m.Msg?=?H105?Then?d?=?False?Else?Return?MyBase.ProcessKeyPreview(m)

If?KeyCode?=?Keys.ShiftKey?Then

shift?=?d

ElseIf?KeyCode?=?Keys.Menu?Then

alt?=?d

End?If

Return?MyBase.ProcessKeyPreview(m)

End?Function

Protected?Overrides?Sub?OnPaint(e?As?PaintEventArgs)

MyBase.OnPaint(e)

For?Each?c?As?Control?In?IIf(editting?Is?Nothing,?selected,?editting)

e.Graphics.DrawRectangle(New?Pen(Color.Gray)?With?{.DashStyle?=?Drawing2D.DashStyle.DashDot},?c.Left?-?1,?c.Top?-?1,?c.Width?+?1,?c.Height?+?1)

Next

If?(down.X??0)?Then?e.Graphics.DrawRectangle(New?Pen(Color.Gray)?With?{.DashStyle?=?Drawing2D.DashStyle.DashDot},?rect)

End?Sub

End?Class

如何在VB.NET中限制窗體移動

VB中就有呀叫MDI窗體，你選擇“工程—添加MDI窗體”就可以了，然后把你剛剛的FORM1窗體設為MDI的子窗體就在它的屬性里MDIChild設為True就可以了

文章題目：關于vb.net矩形隨意拖動的信息
分享URL：http://vcdvsql.cn/article26/hsjhcg.html

成都網站建設公司_創新互聯，為您提供自適應網站、關鍵詞優化、商城網站、做網站、微信小程序、品牌網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯