作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題Re: [VB6 ] Screen.width
時間Sat May 19 09:05:39 2007
※ 引述《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
1F：推 Berger927:感謝～ ^^ 05/19 11:15
2F：推 MrOrz:也可以用EnumDisplaySettings //昨天才在試的API XD" 05/19 11:28