使程序自动适应所有屏幕分辨率.

zodane

比如 ,我们在一个高屏幕分辨率的环境下编了一个软件 .
   但是使用者可能他的机器不支持这么高的分辨率, 那么在低于开发环境下的分辨率,
画面就会出现不和谐和部分图像消失的现象 . 怎样纠正这个现象呢
   我们可以写一个屏幕调试程序 .
   前面 ,我上网搜索了不少资料 , 有许多做法是干脆强制软件运行时更改屏幕分辨率,然后在关闭时返回分辨率 . 这种做法一是复杂, 要使用大量的API , 二是不稳定 .有的机器弄不好会重启.

   这样 ,我们可以根据座标转换的原理 ,来做好屏幕分辨率的调整.
   如下, 写下这个public 过程 这个可以加到你的模块或者类.
   
Public Sub SetLogin(FrmA As Form)
  On Error Resume Next(有时候会出现错误,使用这句可避免,此外效果仍然能执行)
  Dim a As Control
  Dim Wx As Long, Wy As Long
  Dim Dx As Double, Dy As Double
    Wx = Screen.Width / Screen.TwipsPerPixelX(得到实际屏幕宽)
    Wy = Screen.Height / Screen.TwipsPerPixelY(得到实际屏幕高)
    Dx = Wx / 1440: Dy = Wy / 900
    FrmA.Move FrmA.Left * Dx, FrmA.TOP * Dy, FrmA.Width * Dx, FrmA.Height * Dy
    For Each a In FrmA.Controls
      a.Move a.Left * Dx, a.TOP * Dy, a.Width * Dx, a.Height * Dy
    Next
End Sub

Miu.C

有道理，但是我更喜欢让用户选择合适的分辨率并改变分辨率。
那个On Error Resume Next可能会跳过什么错误？？

jyc8778

跳过所有错误。

jyc8778

最好少使用，会有很多麻烦。

Miu.C

我知道是跳过所有错误，但是我说的是这段代码可能会产生什么错误来跳过。
有时候这东西该用时还要用，总不能发布了还让某个隐性的Bug让用户来调试吧？？

jyc8778

Miu.C: Re:使程序自动适应所有屏幕分辨率.

我知道是跳过所有错误，但是我说的是这段代码可能会产生什么错误来跳过。

这个是跳过能中止程序的错误，换句话说，防止程序因错误而被强制关闭的。计算错误不包括在内。
这东西是在你测试全部完成以后，发布软件的时候再加上去。主要是防止因为某些情况而导致的中途中断程序的情况，有很多副作用，最好用 goto 来转。

psic

看来还没弄明白……

Miu.C

jyc8778: Re: Re:使程序自动适应所有屏幕分辨率.


这个是跳过能中止程序的错误，换句话说，防止程序因错误而被强制关闭的。计算错误不包括在内。
这东西是...

没明白我的意思啊。
..........

Miu.C

jyc8778: Re: Re:使程序自动适应所有屏幕分辨率.


这个是跳过能中止程序的错误，换句话说，防止程序因错误而被强制关闭的。计算错误不包括在内。
这东西是...

我不是说这个语句有什么作用，这个语句有什么坏处。我是说上面那一大段代码可能会产生什么错误！！！
................
[em6] [em6] [em6]

jyc8778

Miu.C: Re: Re: Re:使程序自动适应所有屏幕分辨率.


我不是说这个语句有什么作用，这个语句有什么坏处。我是说上面那一大段代码可能会产生什么错误！！！
................
[em6] [em6] [em6]

哪段代码？楼主的那段吗？不会产生错误，因为都被跳过了。
如果你想预期地知道所有产生的错误的话，你应该修正以下你的设计思想-------你的程序应该能适应大部分常用错误，此外所产生的错误就需要用户来更正。