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属性

网站栏目：vb点虐 不能拖大 vbnet tabpage
文章URL：http://kswjz.com/article/ddpeepg.html