2009年8月12日 星期三

如何計算螢幕的解析度

如果不使用 Third Party 的控制項,而希望程式的畫面能隨著螢幕的解析度而自動調整各個控制項的位置及大小,其中最重要的一件事,便是算出目前執行程式的螢幕之解析度!

而解析度要如何算呢?看看以下的程式便可知道!
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight 
ResWidth 就是指螢幕解析度中的寬
ResHeight 就是指螢幕解析度中的長

而最後算出的 ScreenRes,格式會像 800x600 一樣!
除了 800x600 之外,可能還有 640x480、1024x768....等。

沒有留言:

張貼留言