VB.NET 控件位置随窗体变化动态改变

最新推荐文章于 2023-01-06 11:49:10 发布
最新推荐文章于 2023-01-06 11:49:10 发布
阅读量6.4k 收藏 5
点赞数 2
分类专栏： vb.net 文章标签： vb.net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bigheadsheep/article/details/7672453
版权

第一次遇到这个问题,网上找了找方法,发现设定控件的Anchar属性,基本上可以解决位置自动改变的问题.

 

点击Anchor下拉箭头,在弹出的小窗口中,点击上下左右4个矩形,以便对控件进行定位.

如下图,该控件定位与窗口的右上方.当窗口大小变化时,它会随着上方和右侧的窗口边缘自动跟随

bigheadsheep
关注
专栏目录
VB窗体控件大小随窗体大小变化而变化
10-05
VB窗体控件大小随窗体大小变化自動調整 有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。 在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如： Private Sub Form_Resize() Dim H, i As Integer On Error Resume Next Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以 End Sub 在模块中添加以下代码： Public Type ctrObj Name As String Index As Long Parrent As String Top As Long Left As Long Height As Long Width As Long ScaleHeight As Long ScaleWidth As Long End Type Private FormRecord() As ctrObj Private ControlRecord() As ctrObj Private bRunning As Boolean Private MaxForm As Long Private MaxControl As Long Private Const WM_NCLBUTTONDOWN = &HA1 Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function ReleaseCapture Lib "USER32" () As Long Function ActualPos(plLeft As Long) As Long If plLeft < 0 Then ActualPos = plLeft + 75000 Else ActualPos = plLeft End If End Function Function FindForm(pfrmIn As Form) As Long Dim i As Long FindForm = -1 If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then FindForm = i Exit Function End If Next i End If End Function Function AddForm(pfrmIn As Form) As Long Dim FormControl As Control Dim i As Long ReDim Preserve FormRecord(MaxForm + 1) FormRecord(MaxForm).Name = pfrmIn.Name FormRecord(MaxForm).Top = pfrmIn.Top FormRecord(MaxForm).Left = pfrmIn.Left FormRecord(MaxForm).Height = pfrmIn.Height FormRecord(MaxForm).Width = pfrmIn.Width FormRecord(MaxForm).ScaleHeight = pfrmIn.ScaleHeight FormRecord(MaxForm).ScaleWidth = pfrmIn.ScaleWidth AddForm = MaxForm MaxForm = MaxForm + 1 For Each FormControl In pfrmIn i = FindControl(FormControl, pfrmIn.Name) If i < 0 Then i = AddControl(FormControl, pfrmIn.Name) End If Next FormControl End Function Function FindControl(inControl As Control, inName As String) As Long Dim i As Long FindControl = -1 For i = 0 To (MaxControl - 1) If ControlRecord(i).Parrent = inName Then If ControlRecord(i).Name = inControl.Name Then On Error Resume Next If ControlRecord(i).Index = inControl.Index Then FindControl = i Exit Function End If On Error GoTo 0 End If End If Next i End Function Function AddControl(inControl As Control, inName As String) As Long ReDim Preserve ControlRecord(MaxControl + 1) On Error Resume Next ControlRecord(MaxControl).Name = inControl.Name ControlRecord(MaxControl).Index = inControl.Index ControlRecord(MaxControl).Parrent = inName If TypeOf inControl Is Line Then ControlRecord(MaxControl).Top = inControl.Y1 ControlRecord(MaxControl).Left = ActualPos(inControl.X1) ControlRecord(MaxControl).Height = inControl.Y2 ControlRecord(MaxControl).Width = ActualPos(inControl.X2) Else ControlRecord(MaxControl).Top = inControl.Top ControlRecord(MaxControl).Left = ActualPos(inControl.Left) ControlRecord(MaxControl).Height = inControl.Height ControlRecord(MaxControl).Width = inControl.Width End If inControl.IntegralHeight = False On Error GoTo 0 AddControl = MaxControl MaxControl = MaxControl + 1 End Function Function PerWidth(pfrmIn As Form) As Long Dim i As Long i = FindForm(pfrmIn) If i < 0 Then i = AddForm(pfrmIn) End If PerWidth = (pfrmIn.ScaleWidth * 100) \ FormRecord(i).ScaleWidth End Function Function PerHeight(pfrmIn As Form) As Double Dim i As Long i = FindForm(pfrmIn) If i < 0 Then i = AddForm(pfrmIn) End If PerHeight = (pfrmIn.ScaleHeight * 100) \ FormRecord(i).ScaleHeight End Function Public Sub ResizeControl(inControl As Control, pfrmIn As Form) On Error Resume Next Dim i As Long Dim widthfactor As Single, heightfactor As Single Dim minFactor As Single Dim yRatio, xRatio, lTop, lLeft, lWidth, lHeight As Long yRatio = PerHeight(pfrmIn) xRatio = PerWidth(pfrmIn) i = FindControl(inControl, pfrmIn.Name) If inControl.Left < 0 Then lLeft = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000) Else lLeft = CLng((ControlRecord(i).Left * xRatio) \ 100) End If lTop = CLng((ControlRecord(i).Top * yRatio) \ 100) lWidth = CLng((ControlRecord(i).Width * xRatio) \ 100) lHeight = CLng((ControlRecord(i).Height * yRatio) \ 100) If TypeOf inControl Is Line Then If inControl.X1 < 0 Then inControl.X1 = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000) Else inControl.X1 = CLng((ControlRecord(i).Left * xRatio) \ 100) End If inControl.Y1 = CLng((ControlRecord(i).Top * yRatio) \ 100) If inControl.X2 < 0 Then inControl.X2 = CLng(((ControlRecord(i).Width * xRatio) \ 100) - 75000) Else inControl.X2 = CLng((ControlRecord(i).Width * xRatio) \ 100) End If inControl.Y2 = CLng((ControlRecord(i).Height * yRatio) \ 100) Else inControl.Move lLeft, lTop, lWidth, lHeight inControl.Move lLeft, lTop, lWidth inControl.Move lLeft, lTop End If End Sub Public Sub ResizeForm(pfrmIn As Form) Dim FormControl As Control Dim isVisible As Boolean Dim StartX, StartY, MaxX, MaxY As Long Dim bNew As Boolean If Not bRunning Then bRunning = True If FindForm(pfrmIn) < 0 Then bNew = True Else bNew = False End If If pfrmIn.Top < 30000 Then isVisible = pfrmIn.Visible On Error Resume Next If Not pfrmIn.MDIChild Then On Error GoTo 0 ' ' pfrmIn.Visible = False Else If bNew Then StartY = pfrmIn.Height StartX = pfrmIn.Width On Error Resume Next For Each FormControl In pfrmIn If FormControl.Left + FormControl.Width + 200 > MaxX Then MaxX = FormControl.Left + FormControl.Width + 200 End If If FormControl.Top + FormControl.Height + 500 > MaxY Then MaxY = FormControl.Top + FormControl.Height + 500 End If If FormControl.X1 + 200 > MaxX Then MaxX = FormControl.X1 + 200 End If If FormControl.Y1 + 500 > MaxY Then MaxY = FormControl.Y1 + 500 End If If FormControl.X2 + 200 > MaxX Then MaxX = FormControl.X2 + 200 End If If FormControl.Y2 + 500 > MaxY Then MaxY = FormControl.Y2 + 500 End If Next FormControl On Error GoTo 0 pfrmIn.Height = MaxY pfrmIn.Width = MaxX End If On Error GoTo 0 End If For Each FormControl In pfrmIn ResizeControl FormControl, pfrmIn Next FormControl On Error Resume Next If Not pfrmIn.MDIChild Then On Error GoTo 0 pfrmIn.Visible = isVisible Else If bNew Then pfrmIn.Height = StartY pfrmIn.Width = StartX For Each FormControl In pfrmIn ResizeControl FormControl, pfrmIn Next FormControl End If End If On Error GoTo 0 End If bRunning = False End If End Sub Public Sub SaveFormPosition(pfrmIn As Form) Dim i As Long If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then FormRecord(i).Top = pfrmIn.Top FormRecord(i).Left = pfrmIn.Left FormRecord(i).Height = pfrmIn.Height FormRecord(i).Width = pfrmIn.Width Exit Sub End If Next i AddForm (pfrmIn) End If End Sub Public Sub RestoreFormPosition(pfrmIn As Form) Dim i As Long If MaxForm > 0 Then For i = 0 To (MaxForm - 1) If FormRecord(i).Name = pfrmIn.Name Then If FormRecord(i).Top < 0 Then pfrmIn.WindowState = 2 ElseIf FormRecord(i).Top < 30000 Then pfrmIn.WindowState = 0 pfrmIn.Move FormRecord(i).Left, FormRecord(i).Top, FormRecord(i).Width, FormRecord(i).Height Else pfrmIn.WindowState = 1 End If Exit Sub End If Next i End If End Sub Public Sub Resize_ALL(Form_Name As Form) Dim OBJ As Object For Each OBJ In Form_Name ResizeControl OBJ, Form_Name Next OBJ End Sub Public Sub DragForm(frm As Form) On Local Error Resume Next Call ReleaseCapture Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, 2, 0) End Sub
vb.net 随窗口改变,缩放控件大小以及保持相对位置
qq_36769722的博客
07-05 2150
vb.net 随窗口改变,缩放控件大小以及保持相对位置
窗体控件大小随窗体大小变化而变化(VB.NET)
两天打鱼三天晒网
06-29 6211
有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：Private Sub Form_Resize()Dim H, i As IntegerOn Error Resume NextResize_ALL Me
vb.net 控件（包括字体）随窗体按比例缩放
水族杰纶
02-10 8232
PublicClass frmDl    Dim x AsSingle = 0    Dim y AsSingle = 0    PrivateSub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load        x = Me.Width        y = Me.Height        setTag(Me)    EndSub    '递归取控件的原始大小和位置，用ta
VB.NET 控件随窗体缩放，亲测有效
最新发布
weixin_45318790的博客
01-06 1675
总算完成了VB.NET格式的代码，亲测有效，直接复制可用；有问题的点都在注释里~
VB.NET中的Windows窗体屏幕截图和打印预览
04-01
在VB.NET中，开发Windows应用程序时，我们可能会遇到需要对窗体进行屏幕截图并实现打印预览的功能。本文将深入探讨这两个关键知识点，并提供相关的实现方法。 首先，让我们讨论如何在VB.NET中获取Windows窗体的屏幕...
vb.net控件随窗口大小调整
07-03
### vb.net控件随窗口大小调整 在VB.NET开发中，有时我们需要让窗体上的控件随着窗体大小的变化而自动调整位置与尺寸，以适应不同的屏幕分辨率或用户自定义的窗口大小。本文将详细介绍如何实现这一功能，并通过示例...
vb.net.zip_vb.net 控件
09-21
本资源“vb.net.zip_vb.net 控件”显然是一份详细讲解VB.NET控件使用的文档，它提供了实用的例子，帮助开发者更好地理解和应用这些控件。 1. **基础控件**：VB.NET的基础控件包括Label、TextBox、Button、CheckBox...
.net 2005 vb 彻底解决控件随窗体变化而自动按比例调整的类
Linyuhui_abcdef的专栏
10-18 700
    说实话，本人在工作和学习中，从网络中受益匪浅，所谓饮水思源。所以我也想把自己的一些心得，放到网上，让有需要的朋友去获取，这也是一件开心的事情。今天算是第一步吧。     辉歌  2008.11.18 11:39 Public Class Class_Form_Control_AutoSize    2008-1118-1124 .net 2005 vb 彻底解决控件随窗体变化而
vb.net实现自定义鼠标动态光标(只需三行代码)
06-25
vb.net轻松实现鼠标自定义光标 只需三行代码 格式为vb.net2008的.vb代码 如打不开可用记事本直接打开
vb.net动态改变控件位置和大小，ico（看评论酌情下载）
11-03
vb.net动态改变控件位置和大小，ico vb.net动态改变控件位置和大小，ico
VB:所有控件自适应窗口大小
zhongyhc的专栏
07-13 1万+
Option Explicit Private FormOldWidth As Long '保存窗体的原始宽度 Private FormOldHeight As Long '保存窗体的原始高度 '在调用ResizeForm前先调用本函数 Private Sub ResizeInit(FormName As Form) Dim Obj As Control
让控件随窗体大小改变而改变
cike_1111的专栏
02-18 1020
模块作用:让控件随窗体大小改变而改变 模块代码: ====请看下面===== Option Explicit Private FormOldWidth As Long 保存窗体的原始宽度 Private FormOldHeight As Long 保存窗体的原始高度 Public Sub ResizeForm(FormName As Form)       Dim Pos(4) As Do
VB控件随窗体大小改变而改变、控件自适应窗体大小
tzy0924的专栏
08-02 2199
大家在设计程序的是、经常碰到的情况是、设计时界面很wonderful、实际运行时也不错 、可是一旦当用户改变的窗体大小、一下子就不和谐了、那么现在就给一段代码、让窗体内的控件随窗体缩放的百分比进行缩放、资料取自网络、非原创、只是略加整理好了、所以就不说什么了、copy到from里
在.Net的WinForm开发中如何实现控件随窗体大小的改变而自动适应其改变
热门推荐
海纳百川@一亩三分地
05-23 2万+
在设计可供用户调整大小的窗体时，如何实现该窗体上的控件也应能正确地随窗体的改变而自动调整大小并且能重新定位？此时就要借助控件的．Anchor属性。Anchor属性定义控件的定位点位置。当控件锚定到某个窗体时，如果该窗体的大小被调整，那么该控件维持它与定位点位置之间的距离不变。例如，如果“：Button”控件锚定到窗体的左、右和底边缘，那么当调整该窗体的大小时，Button控件水平调整大小，维持到该
VB控件随窗体最大化变化的方法
LEE_FIGHTING_JINGYU的博客
12-11 7379
在开发中，往往开发人员需要控制控件大小适应窗口的大小，使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?有三种方法供选择： 1.用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。 第一步：窗体LOAD事件时记下每一个控件的位置属性和大小，并取得窗口大小的属性值。 第二步：计算缩放比，就是用控件的LEFT和WIDTH属性分别
VB.NET控件详解：窗体、控件与程序设计基础
"VB.NET常用控件的使用与设计，包括窗体和控件的介绍，以及常用控件如命令按钮、标签、文本框、单选钮、复选框、列表框、组合框和超链接控件的讲解，还有VB.NET代码编写的基础知识，如数据类型、运算符、控制语句和...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值