تغيير Resolution

[xxxxx_xxxxx]

من از اين تابع براي تغيير Resolution استفاده مي كنم. ولي بعد از تغيير بلافاصله به حالت اول بر مي گرده. مثلا اگر اول 768 * 1024 بوده بعد از تغيير به 600 * 800 دوباره (بلافاصله) به حالت اول برميگرده. و بالعكس.

دوستان راهنمايي كنيد چطور ميشه اون Resolution مورد نظر را حفظ كرد.




Private Function Change_Resolution()
Dim Dx As New DirectX7
Dim Dd As DirectDraw4
Dim clip As DirectDrawClipper


Set Dd = Dx.DirectDraw4Create("")
Set clip = Dd.CreateClipper(0)
clip.SetHWnd Form1.hWnd
Dd.SetDisplayMode 800, 600, 32, 0, DDSDM_DEFAULT
End Function




نكته: همونطور كه مي بينيد بايد قبل از اجرا در قسمت References گزينه DirectX7 for … را انتخاب كرد.

[__siavash__]

برای تغییر Resolution به تاپیک زیر برید
تغییر رزولیشن و پایین اومدن refresh rate (http://barnamenevis.org/forum/%D9%85%D8%A8%D8%A7%D8%AD%D8%AB-%D9%85%D8%B1%D8%A8%D9%88%D8%B7-%D8%A8%D9%87-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%AF%D8%B1-vb/26558-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-%D8%B1%D8%B2%D9%88%D9%84%DB%8C%D8%B4%D9%86-%D9%88-%D9%BE%D8%A7%DB%8C%DB%8C%D9%86-%D8%A7%D9%88%D9%85%D8%AF%D9%86-refresh-rate-2.html)