VB控件自适应大小的函数类型不匹配问题
VB用控件自适应大小函数类型不匹配！添加一个模块OptionExplicitDimFormOldWidthAsLong'窗体旧的宽度值DimFormOldHeightAsLong'窗体旧的高度值PublicSubResizeInit(FormNameAsForm)DimpCtlAsControl'设置窗体旧的高度与宽度FormOldWidth=FormName.ScaleWidthFormOldHeight=FormName.ScaleHeightOnErrorResumeNextForEachpCtlI
VB用控件自适应大小函数类型不匹配！
添加一个模块
Option Explicit
Dim FormOldWidth As Long '窗体旧的宽度值
Dim FormOldHeight As Long '窗体旧的高度值
Public Sub ResizeInit(FormName As Form)
Dim pCtl As Control
'设置窗体旧的高度与宽度
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each pCtl In FormName
'设置窗体中控件的Tag值（根据空间的位置和大小来设置）
'返回或设置一个表达式，它存储程序需要的额外数据。
'与其它属性不同，Visual Basic 不使用 Tag 属性的值；
'可用该属性识别对象。
pCtl.Tag = pCtl.Left & ＂ ＂ & pCtl.Top & ＂ ＂ & pCtl.Width & ＂ ＂ & pCtl.Height & ＂ ＂
Next pCtl
On Error GoTo 0
End Sub
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, tmpPos As Long, staPos As Long
Dim pCtl As Control
Dim ScaleX As Double, ScaleY As Double
'保存窗体的宽度与高度缩放比例
ScaleX = FormName.ScaleWidth / FormOldWidth
ScaleY = FormName.ScaleHeight / FormOldHeight
On Error Resume Next
'变化窗体内的各控件
For Each pCtl In FormName
staPos = 1
For i = 0 To 4 '位置和大小
'取得控件的原始位置和大小
tmpPos = InStr(staPos, pCtl.Tag, ＂ ＂, vbTextCompare)
If tmpPos > 0 Then
Pos(i) = Mid(pCtl.Tag, staPos, tmpPos - staPos)
staPos = tmpPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小的
'比例对控件重新定位与改变大小
pCtl.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next pCtl
On Error GoTo 0
End Sub
在Form中添加代码
Private Sub Form_Load()
Call ResizeInit(Me)
End Sub
'窗体大小发生变化时，根据窗体改变大小的比例
'对窗体中各控件重新定位和改变大小。
Private Sub Form_Resize()
Call ResizeForm(Me)
End Sub
然后在窗体里放几个控件然后改变窗体大小试试
VB textbox控件随窗体变化自动调整
控件自适应窗体：
Dim oldheight&, oldwidth&
Private Sub Form_Load()
oldheight = Me.Height: oldwidth = Me.Width
End Sub
Private Sub Form_Resize()
Dim cnt As Control
For Each cnt In Controls
cnt.Width = cnt.Width * Me.Width / oldwidth
cnt.Height = cnt.Height * Me.Height / oldheight
Next
oldheight = Me.Height: oldwidth = Me.Width
End Sub
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
