vb窗体中控件自动随窗体变化大小源代码

最新推荐文章于 2019-12-08 23:05:20 发布
最新推荐文章于 2019-12-08 23:05:20 发布
阅读量1.7k 收藏
点赞数
文章标签： vb
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yanhuaju9/article/details/1552548
版权
yanhuaju9
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
自适应大小的漂亮VB窗体控件
05-12
内容索引:VB源码,界面编程,窗体控件　　自适应大小的漂亮VB窗体控件，可以方便的拖动大小，但是发觉不能移动窗口，有点遗憾，可能我这个示例写的不太好吧，另外还能在窗体中布局菜单，非常方便，效果图如上，类似的窗体在以前挺常见，现在用也不落后。
VB.NET 控件随窗体缩放，亲测有效
weixin_45318790的博客
01-06 1421
总算完成了VB.NET格式的代码，亲测有效，直接复制可用；有问题的点都在注释里~
VB控件随窗体最大化变化的方法
LEE_FIGHTING_JINGYU的博客
12-11 6901
在开发中，往往开发人员需要控制控件大小适应窗口的大小，使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?有三种方法供选择： 1.用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。 第一步：窗体LOAD事件时记下每一个控件的位置属性和大小，并取得窗口大小的属性值。 第二步：计算缩放比，就是用控件的LEFT和WIDTH属性分别
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
动态改变窗体尺寸程序(VB6.0代码编写)
09-13
动态改变窗体尺寸程序(VB6.0代码编写) 当打开和关闭时窗体会动态改变尺寸 QQ223857666勾月
让VB自动改变控件大小
方健的博客
09-22 1419
  让VB自动改变控件大小                                                                  http://edu.cn700.com      当窗体大小改变时，如何动态的改变控件的大小是许多VB 程序员头痛的事。有的人设置窗体Resizable 但却不改变控件的大小；有的人则根据控件的绝对位置与窗口大小相加减的办法来重新定
vb中自动调整控件的大小
南柯
11-17 7174
机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时，查询结果可能会如图所示： 而我们需要的是： 这本来是一个很简单的调整MSHFlexGrid列宽的问题，只需要设置AllowUserResizing即可，如图： 但是我刚开始没有注意到这个属性，所以就百度了自动调整MSHFlexGrid列宽的方法，需要自定义一个过程： Pu
vb6.0 控件适应窗口大小
zfulee的专栏
10-18 4387
我们在编写vb6.0控件适应窗口大小时，往往使用以下方法：(按照窗体尺寸缩放比例自动调整控件的大小) 　　窗体和控件的大小由窗体和控件的Width属性和Height属性确定。所以当用户界面设计完成之后，窗体及其内部的各控件的Width, Height属性便随之确定下来；从而
VB 让图片自动适应picturebox控件大小的方法
热门推荐
pdstar的博客
12-08 1万+
Picturebox控件加载图片的方法如下： Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg") 如果将Picturebox控件的AutoSize属性设为True的话，可以让图片框自动适应图片的大小，但无法让图片自动适应图片框的大小。 解决方法有两种： 方法一：使用Paint...
控件大小随窗体的改变而改变VB6.0源代码.rar
04-13
控件大小随窗体的改变而改变VB6.0源代码.rar
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窗体可以自适应屏幕分辨率的大小
04-12
使vb窗体可以自适应屏幕分辨率的大小
一劳永逸让VB自动改变控件大小
11-16
一劳永逸让VB自动改变控件大小 Private Sub Form_Load()//初始化设置 　　Picture1.AutoSize = True 　　Command1.Caption = ″显示网格″ 　　Command2.Caption = ″取消网格″ 　　Form1.Caption = ″显示网格图像演示程序″ 　　End Sub 　　－－－－－－－－－－－－－－－－ 　　Private Sub Form_Activate()//设置网格颜色 　　Picture1.ForeColor = vbWhite 　　Picture1.Move 0, 0 　　End Sub 　　－－－－－－－－－－－－－－－－ 　　Private Sub Command1_Click()//显示网格 　　Dim HLINESNUM As Integer 　　Dim WLINESNUM As Integer 　　Dim XX As Integer 　　Dim I As Integer 　　Dim J As Integer 　　Dim YY As Integer 　　HLINESNUM = 15 //设置网格为15＊15显示 　　WLINESNUM = 15 　　Picture1.Refresh 　　Picture1.AutoRedraw = False 　　XX = Int(Picture1.ScaleWidth / WLINESNUM) 　　YY = Int(Picture1.ScaleHeight / HLINESNUM) 　　For I = 1 To HLINESNUM ＋ 1 　　Picture1.Line (XX ＊ I, 0)－(XX ＊ I, Picture1.Height － 1) 　　Picture1.Line (0, YY ＊ I)－(Picture1.Width － 1, YY ＊ I) 　　Next 　　End Sub 　　－－－－－－－－－－－－ 　　Private Sub Command2_Click()//取消网格 　　Picture1.AutoRedraw = False 　　Picture1.Refresh 　　End Sub 　　－－－－－－－－－－－－ 　　Private Sub Form_Unload(Cancel As Integer) 　　Unload Me //结束程序 　　End 　　End Sub
VB窗体控件元素自适应窗体大小变化的设置实例
05-12
内容索引:VB源码,界面编程,控件　　VB窗体控件元素自适应窗体大小变化的设置实例，也就是让VB窗体中的控件元素，比如TextBoX之类的，会随依附窗体的大小变化而变化 ，窗体被拖大，它会跟着大，窗体小则它也小，实现本功能，将更有利于控件实用性的发挥，另外也为窗体的美化起到了积极作用。
VB 窗体控件元素自适应窗体大小变化的设置实例
03-04
VB 窗体控件元素自适应窗体大小变化的设置实例 VB窗体控件元素自适应窗体大小变化的设置实例，也就是让VB窗体中的控件元素，比如TextBoX之类的，会随依附窗体的大小变化而变化 ，窗体被拖大，它会跟着大，窗体小则它也小，实现本功能，将更有利于控件实用性的发挥，另外也为窗体的美化起到了积极作用。
VB 控件随窗体自动调整大小.rar
07-10
VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form...
让VB控件大小随窗体的改变而改变
07-24
Windows中的许多窗体都能任意改变大小，并且其中的控件会随窗体大小的改变而改变。而默认情况下，如果VB窗体大小改变，其中的控件是不会自动改变的。 那么我们如何让VB控件大小随窗体的改变而改变呢？本资源包含的源程序代码将为您解答。 本资源压缩包内包含实现此功能的所有代码（不含控件），简单修改即可适应您的要求。
VB判断并列举窗体中控件的类型
05-18
VB判断并列举窗体中控件的类型，可判断窗口的控件是否为按钮、文本框、图片框、标签、复选框、列表框、单选按钮等，没有添加的类型可自己添加，了解思路就可以灵活运用了。 运行环境：Windows/VB6
2024-2030全球及中国PCB接触式探头行业研究及十五五规划分析报告.docx
最新发布
04-18
2024-2030全球及中国PCB接触式探头行业研究及十五五规划分析报告
vb.net 跨窗体调用控件的值的代码
05-26
以下是 VB.NET 中跨窗体调用控件的值的示例代码： 在源窗体中，定义一个...在上述示例代码中，公共变量所在的窗体名称为 SourceForm。如果公共变量所在的窗体在另一个命名空间中，则需要在访问时添加命名空间前缀。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值