vb 如何設計窗體大小不能拖動

Form1.BorderStyle = 1

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

BorderStyle 屬性

vbFixedSingle 1 固定單邊框。可以包含控制菜單框，標題欄，“最大化”按鈕，和“最嫌則小化”按鈕。只有使用最大化和最小化按鈕才能改變大小。

2為sizeable

vbFixedDouble 3 固定對話框。可以芹缺棚包含控制菜單扮侍框和標題欄，不能包含最大化和最小化按鈕，不能改變尺寸

=======================================

給你個簡單的方法

把MaxButton改為False

Private Sub Form_Resize()

Static i As Integer

If i 0 Then MsgBox "不可改變窗體大小"

i = i + 1

End Sub

vb點虐 中lab標簽怎么改不了尺寸？拖動不行，修改屬性不行。怎么辦？

改標簽字體的大小撐大標簽或標簽字的前后加空格，實在不行用Button或TextBox代替標簽

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

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

vb點虐 在設計過程中,發現當窗口化的窗體最大化后,里面的組件不能被放大~~

這個問題，如有可能你應當先把大的控件停春汪靠扒旦仔在窗體的某部分，其他的控件用form的resize事件遲數觸發控件寬高的數值或控件位置坐標的數值。例：

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Dim pLabel1, pTextBox1, pButton1 As New Point

pLabel1.X = CInt(Me.Width / 7)

pLabel1.Y = CInt(Me.Height / 8) + 4

pTextBox1.X = CInt(Me.Width / 5)

pTextBox1.Y = CInt(Me.Height / 8)

pButton1.X = CInt(Me.Width / 3)

pButton1.Y = CInt(Me.Height / 8) - 1

Me.Label1.Location = pLabel1

Me.TextBox1.Location = pTextBox1

Me.Button1.Location = pButton1

End Sub

以上只是改變了控件的位置，如需改變控件的大小，重新定義計算控件的size屬性