vb60怎么做到自适应分辨率

vb60如何做到自适应分辨率
现在显示器的分辨率太乱了。各种大小不一，
小分辨率下做的，大分辨率看了太小、
大分辨率做的，小分辨率显示不完全。
请问有没有人实现了用vb自适应分辨率。
求教。

[解决办法]
面对这种情况，我的做法是以不变应万变：
http://download.csdn.net/detail/veron_04/3036424
[解决办法]
使用vbresizer控件实现灵活的布局。
[解决办法]

探讨

引用:
默认800*600，然后窗口改变后控件跟着比例改变，
如果子窗口多，或者控件多就不好办了
坐等楼下高人

那你就变通一下啊！多设集中分辨率的界面嘛。

[解决办法]
识别简单呀：
Dim lpOutText As String
lpOutText = Screen.Width / Screen.TwipsPerPixelX & "×" & Screen.Height / Screen.TwipsPerPixelY
MsgBox lpOutText
就出来了，还可以 Select 语句来根据情况处理，如：

VB code

Dim lpOutText As StringlpOutText = Screen.Width / Screen.TwipsPerPixelX & "×" & Screen.Height / Screen.TwipsPerPixelYMsgBox "当前分辨率为：" & lpOutTextSelect Case lpOutTextCase "640×480": MsgBox "是最低标准分辨率"Case "800×600": MsgBox "是标准配备分辨率"Case "1024×768": MsgBox "是4比3分辨率"Case "1152×864": MsgBox "是16比9分辨率"Case "1440×900": MsgBox "是16比10分辨率"Case Else    MsgBox "不在计划内的分辨率，我就是不处理"End Select 

 

查看更多 下一篇