Question

vb程序如何在不同电脑屏幕分辨率下的正常显示

我在屏幕分辨率1280*1024下做的程序，在低于分辨率1280*1024的电脑上运行的时候就会出现窗体超出屏幕，或者窗体内的控件超出窗体等问题..........

在网上找了大量资料，却都根本解决不了问题！由于程序的窗体和窗体内的控件太多，若是在低分辨率下重新写，那工作量不是一点点......相信每个成熟的软件也都不会是在低分辨率下写出来的吧！

我的思路是：在程序第一次运行的时候获取电脑屏幕的分辨率，然后根据分辨率调整窗体的大小及窗体内控件大小和位置！不知道我这个思路是否对？如果对或不对，那具体的代码该怎么写呢？

这个问题捆饶我很长时间了！求高手直接帮忙写个例子！
我的Q Q 邮箱:三九五九七七六四八

Answer 1

<p>我也是个菜鸟，最近也在搞这个。</p><p>我一开始用你的思路写，可以实现。不过很多控件是不可以运行时候读取height和width的。会报错，然后单独考虑每一个控件，很麻烦。适用于控件不多的情况下。</p><p><br /></p><p>我觉得你应该换个思路，因为“程序的窗体和窗体内的控件太多”，换成vb自动运行时候自动更改屏幕分辨路，退出时候，还原电脑分辨率。</p><p><br /></p><p>我发给你个小程序，希望可以帮到你。</p><p>记得采纳建议噢。</p><file fsid="1462954612" link="/share/link?shareid=63333549&uk=738933636" name="修改分辨率.zip" wealth="0" />

楼主说更改电脑的分辨率不可以，那我再提供了一个版本，软件适应不同分辨率。提供一个简单的例子。

我的qq：517177870.

希望大家共同学习。

Answer 2

刚做了个类似的项目。你做软件用得着做这么大的分辨率吗？你可以做个常规窗口1024*768，让控件跟谁窗体最大化。最大化代码：

Private FormOldWidth As Long
'原始宽度
Private FormOldHeight As Long
'原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub

'按比例改变表单内各元件的大小，
'在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight
'保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小

TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小
'的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next Obj
On Error GoTo 0
End Sub

Answer 3

1、窗口设置成最大化，其他控件在form_resize里动态改变大小和位置。
2、在程序中获取屏幕分辨率，再对窗口尺寸做相应的修改。
控件比例自动调整。

Answer 4

1，固定VB程序有窗口大小，不随电脑显示屏大小而改变，这种方法比较简单。
2，也可以根据窗体大小，设置不同的按钮位置，即在Form_Resize()时，对所有窗体内的所有控件重新排放位置。
3，自动排放位置可以根据百分比位置进行排列，比如：
Private Sub Form_Resize()
Command1.Top = Screen.Height * 0.01
Command1.Left = Screen.Width * 0.01
End Sub

Answer 5

简单的方法
把所有控件放入frame
frame的分辨率=1024*768
根据窗体的大小确定frame的位置

其它的方法就是你的思路,不过代码比较多,每个控件都要考虑到按照窗体比例放置