VFP 愛用者社區

[kechange]

我會切換800*600 到 1024 * 768 的解析度了.

不過切換過去都一直鎖住頻率60....

有沒有辦法偵側使用者原有的頻率.切換過去時一樣保持呢??

麻煩各位先進幫我解答一下..感激不盡..

[horace]

可使用 SYSMETRIC()

[kechange]

我試過了...我由SYSMETRIC(1) ....連續試到 SYSMETRIC(35) ...超過就有錯誤訊息了..

由1-35裡..我看不出來那一個是頻率的...鳴鳴鳴...救人哦...

[Mibh]

試試看吧，我已修改過了，只有動到解析度，其他不動

1.偵測原本的解析度的方法
nScreenWidth = SysMetric(1)
nScreenHeight = SysMetric(2)

2.變更解析度的方法
Function ChangeRes
Lparameters tnWidth, tnHeight
Local lcDevMode
lcDevMode = REPLICATE(CHR(0), 156)
Declare INTEGER EnumDisplaySettings IN Win32API STRING lpszDeviceName,;
INTEGER iModeNum, STRING @lpDevMode
Declare INTEGER ChangeDisplaySettings IN Win32API STRING @lpDevMode ,;
INTEGER dwFlags
EnumDisplaySettings(NULL,-1, @lcDevMode)
lcDevMode = STUFF(lcDevMode, 109, 4, LongToStr(tnWidth))
lcDevMode = STUFF(lcDevMode, 113, 4, LongToStr(tnHeight))
ChangeDisplaySettings(@lcDevMode, 0)
Endfunc


Function LongToStr
Lparameters lnLongVal
Local lnCnt, lcRetStr
lcRetStr = ''
For lnCnt = 24 TO 0 STEP -8
lcRetStr = CHR(INT(lnLongVal/(2^lnCnt))) + lcRetStr
lnLongVal = MOD(lnLongVal, (2^lnCnt))
Next
Return lcRetStr
Endfunc


3.使用方法
3.1.先偵測原本的解析度，存入nScreenWidth 及nScreenHeight
3.2.假設解析度變更為1024*768→ChangeRes(1024,768)
3.3.解析度變更回來ChangeRes(nScreenWidth,nScreenHeight )

4.補充說明
4.1.此解析度變更非永久性變更，關機重開後會變回原設定

[kechange]

3Q..感激不盡...太感動了......

您的大恩大德..小弟盡生難忘..

[bin1x]

changeres 是幾版的命令 (眼睛太大了)

[garfield]

[yctsai]

請問當800*600切到1024*768時,下方的工具列(開始..)會變成在畫面中間地帶,這是正常的嗎? thanks