VB基础类
VB6 求助：如何让三个子窗体适应不同屏幕分辨率
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我写的程序有三个子窗体，运行时同时显示三个子窗体（已分上中下平铺显示），设置了三个子窗体的高度加起来填满主窗体空白区域的高度，代码如下：
说明：
在主窗体中还有工具栏和状态栏，我这里还没有减去它们的高度，可以先不用管。
Form1窗体中是一个Listviw控件，每一列的宽度都在代码中指定了
Form2窗体中是一个MSFlexGrid控件，每一列的宽度都在代码中指定了
Form3窗体中是三个RichTextBox控件，三个RichTextBox的宽度加起来等于现在屏幕的宽度
现在的情况是：
到低分辨率的屏幕宽度上都显示不全。
请教：
有什么办法让三个子窗体的宽度适应不同的屏幕？Listviw、MSFlexGrid、RichTextBox中的文字可以随屏幕的大小改变？三个子窗体的高度还是加起来填满主窗体空白区域的高度。
网上找了很多代码都不行，怎么办啊？
'Form1子窗体，窗体名称为MainForm
Private Sub Form_Resize()
If WindowState = 0 Then
Width = Screen.Width
Height = 0.3 * Screen.Height
End If
End Sub
'Form2子窗体，窗体名称为MonitorResultForm
Private Sub Form_Load()
'将仪器列表中Listview1中的列表同步到MSFlexGrid1中
Call ListviewToMSFlexGrid1
'计算该窗体的位置
Me.Top = MainForm.Height
Me.Left = 0
End Sub
Private Sub Form_Resize()
If WindowState = 0 Then
Width = Screen.Width
Height = 0.3 * Screen.Height
End If
End Sub
'Form3子窗体，窗体名称为MonitorProcess
Private Sub Form_Load()
'计算该窗体的位置
Me.Top = MainForm.Height + MonitorResultForm.Height
Me.Left = 0
End Sub
Private Sub Form_Resize()
If WindowState = 0 Then
Width = Screen.Width
Height = 0.255 * Screen.Height
End If
End Sub
说明：
在主窗体中还有工具栏和状态栏，我这里还没有减去它们的高度，可以先不用管。
Form1窗体中是一个Listviw控件，每一列的宽度都在代码中指定了
Form2窗体中是一个MSFlexGrid控件，每一列的宽度都在代码中指定了
Form3窗体中是三个RichTextBox控件，三个RichTextBox的宽度加起来等于现在屏幕的宽度
现在的情况是：
到低分辨率的屏幕宽度上都显示不全。
请教：
有什么办法让三个子窗体的宽度适应不同的屏幕？Listviw、MSFlexGrid、RichTextBox中的文字可以随屏幕的大小改变？三个子窗体的高度还是加起来填满主窗体空白区域的高度。
网上找了很多代码都不行，怎么办啊？
...全文
相关推荐
使vb窗体可以自适应屏幕分辨率的大小
三、VB 窗体自适应屏幕分辨率大小的优点VB 窗体自适应屏幕分辨率大小可以解决多种屏幕分辨率下的窗体显示问题，使窗体在不同屏幕分辨率下的正确显示。
VB按钮美化控件（含一个窗体美化）
**响应式设计**：考虑到不同屏幕分辨率和设备的需求，控件应具备自动适应屏幕的能力，保持良好的显示效果。窗体美化的要点则包括：1.
vb6.0控件适应窗体大小
在VB6.0编程环境中，开发用户界面时，我们经常需要设计窗体（Form）以适应不同的屏幕分辨率和用户窗口大小调整。
vb6 窗体全屏组件自动变化代码
### vb6窗体全屏组件自动变化代码在Visual Basic 6.0（简称VB6）中，开发人员经常会遇到需要让窗体及其上的控件能够根据不同的屏幕分辨率或者窗口大小变化而自动调整布局的问题。
VB.NET桌面歌词实现教程
VB.NET是Visual Basic的后继版本，它是基于.NET框架的编程语言，具有面向对象的特性和强大的库支持。在开发Windows窗体应用程序时，VB.NET提供了一个直观的环境，使开发者能够轻松构建用户界面和实现业务逻辑。
