Re: [VB6 ] Screen.width

[fumizuki (矇面加菲獅)]

※ 引述《Berger927 (rabbit)》之銘言：
: 我想問的是，用 Screen.width 是不是有什摸需要注意的地方？
: 我遇到的問題是，只要VB6的程式開著跑大遊戲(會改變解析度的那種)，
: 就算遊戲結束後，VB6的程式還是抓到遊戲改變的解析度值，而抓不到正常的視窗設定。
: 除非程式重開，不然記錄檔看起來都還是錯誤的解析度...
: 可是也沒有看到 Screen.refresh 等功能... 囧rz
: 我該怎摸做才能解決這個狀況？
: 知道的高手麻煩指點一下～感激不盡~~~ ^^
這好像是一直都存在的問題(汗)
剛才 try 了一下，也給自己找到了答案 囧
不過我也不確定這個做法是不是每台主機都適用@@

Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _
lpRect As RECT) As Long

Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Sub test()

    Dim hWnd As Long, lpRect As RECT
    hWnd = GetDesktopWindow
    If GetWindowRect(hWnd, lpRect) <> 0 Then
        MsgBox "您目前的解析度為 " & _
        lpRect.Right & "x" & lpRect.Bottom & "。", vbInformation
    End If

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.224.174
推 Berger927:感謝～ ^^
推 MrOrz:也可以用EnumDisplaySettings        //昨天才在試的API XD"