تطبیق resolation با برنامه تو vb

[روستا]

من یه برنامه تو کامپیوتر خودم با کیفیت 1152*864 نوشتم.چطوری می تونم یه کاری کنم که تو هر کامپیوتر دیگه که کیفیت تصویرش این نیست برنامه ام رو به طور خودکار تنظیم کنم؟

[ali_habibi1384]

روی فایل کلیک راست کنین proprties رو بزنی از برگنشان compatibility قسمت display setting رو تنظیم کن.

[حامد مصافی]

نحوه تغییر Resulation قبلاً در همین انجمن پاسخ داده شده. جستجو بفرمایید.

[روستا]

منظورتون اینه که روی پوشه ای که exe از نرم افزار گرفتم کلیک راست کنم؟
اگه بخوام search کنم با چه عنوانی؟

[ali_habibi1384]

آره منظورم همونه اگه منظور شما رو درست فهمیده باشم.

[روستا]

کسی نمی دونه با چه عنوانی search کنم؟این راه حل جواب نداد

[__siavash__]

این کد برای تغییر Resulation با کیفیت رنگ و فرکانس Refresh Rate هست که آقا پیمان چند وقت پیش تو سایت قرار داد.

 

Option Explicit

Private Declare Function EnumDisplaySettingsA Lib "user32.dll" (ByVal lpszDeviceName As String, ByVal iModeNum As Long, lpDevMode As DEVMODE) As Long

Private Declare Function ChangeDisplaySettingsA Lib "user32.dll" (lpDevMode As Any, ByVal dwFlags As Long) As Long

Private Const ENUM_CURRENT_SETTINGS = -1

Private Const CDS_UPDATEREGISTRY = &H1

Private Const CCHDEVICENAME = 32

Private Const CCHFORMNAME = 32

Private Type DEVMODE

        dmDeviceName As String * CCHDEVICENAME

        dmSpecVersion As Integer

        dmDriverVersion As Integer

        dmSize As Integer

        dmDriverExtra As Integer

        dmFields As Long

        dmOrientation As Integer

        dmPaperSize As Integer

        dmPaperLength As Integer

        dmPaperWidth As Integer

        dmScale As Integer

        dmCopies As Integer

        dmDefaultSource As Integer

        dmPrintQuality As Integer

        dmColor As Integer

        dmDuplex As Integer

        dmYResolution As Integer

        dmTTOption As Integer

        dmCollate As Integer

        dmFormName As String * CCHFORMNAME

        dmUnusedPadding As Integer

        dmBitsPerPel As Long

        dmPelsWidth As Long

        dmPelsHeight As Long

        dmDisplayFlags As Long

        dmDisplayFrequency As Long

End Type

Private Sub SetDisplaySetting(intWidth As Integer, intHeight As Integer, bytBitsPerPel As Byte, bytFrequency As Byte)

Dim dvmDisplay As DEVMODE

    dvmDisplay.dmSize = Len(dvmDisplay)

    EnumDisplaySettingsA vbNullString, ENUM_CURRENT_SETTINGS, dvmDisplay

    

    dvmDisplay.dmPelsWidth = intWidth

    dvmDisplay.dmPelsHeight = intHeight

    dvmDisplay.dmBitsPerPel = bytBitsPerPel

    dvmDisplay.dmDisplayFrequency = bytFrequency

    

    ChangeDisplaySettingsA dvmDisplay, CDS_UPDATEREGISTRY

End Sub

Private Sub Form_Load()

    SetDisplaySetting 1152, 864, 32, 85

End Sub