重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
有两种方法实现窗体固定大小
公司主营业务:成都做网站、成都网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出印台免费做网站回馈大家。
1)设置窗体的BorderStyle属性。如下图。将属性设置为图中红色框出的任意一个值即可实现窗体大小固定不变。
2)编程控制
如果将Form的BorderStyle设置为 2 - Sizeable,通过编程也可以实现窗体固定大小
Option Explicit
Dim frmWidth
Dim frmHeight
Private Sub Form_Load()
'窗体启动时,记录下窗体的宽度和高度
frmWidth = Me.Width
frmHeight = Me.Height
End Sub
Private Sub Form_Resize()
'用户改变窗体大小时,强制窗体大小固定为原始尺寸
'从而达到窗体大小固定目的!
On Error Resume Next
Me.Width = frmWidth
Me.Height = frmHeight
End Sub
VisualStudio 2010中的vb.net
锁定边框:
代码输入Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
或者在属性列表里设置FormBorderStyle 为Fixed3D
最大化不可用:
代码输入Me.MaximizeBox = False
或者在属性列表里设置MaximizeBox 为 False
Public Class Form1
Dim 初始化控件自动大小调整与窗口的宽度比例 As Integer
Dim 初始化控件自动大小调整与窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自动大小调整与窗口的宽度比例 = Me.Width / 控件自动大小调整.Width
初始化控件自动大小调整与窗口的高度比例 = Me.Height / 控件自动大小调整.Height
显示控件的位置坐标()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd 这个事件是 窗口大小变化完成后 再进行操作的
控件自动大小调整.Location = New Point(控件自动大小调整.Left, 控件自动大小调整.Top)
'设置控件的初始左位置坐标 与 上位置坐标
控件自动大小调整.Size = New Point(Int(Me.Width / 初始化控件自动大小调整与窗口的宽度比例), Int(Me.Height / 初始化控件自动大小调整与窗口的高度比例))
'更改控件的大小 按第一次窗口的比例 进行调整
显示控件的位置坐标()
End Sub
Private Sub 显示控件的位置坐标()
Label1.Text = "控件的上边距坐标: " 控件自动大小调整.Top
Label2.Text = "控件的左边距坐标: " 控件自动大小调整.Left
Label3.Text = "控件的宽度大小: " 控件自动大小调整.Width
Label4.Text = "控件的高度大小: " 控件自动大小调整.Height
End Sub
End Class
在“格式”菜单中有许多对齐选项,最后一项就是锁定控件。
选中一个控件,复制、粘贴,大小就一样,对齐还是要靠拖动。
小技巧:可以按住CTRL键选中多个控件一起拖动;可以把控件放到容器中,显得更整齐,例如frame、sstab等。
选中form这样在右边的一栏里靠下方就会有一个属性框。在那里的属性你应该都看看,熟悉一下,里边有固定大小的属性。改了就行了。
我也很喜欢VB。
你在设计器里面点击控件,按F4
然后就会出现属性窗口
你在里面把dock属性设置成fill(就是点击中间的方块)就可以了