Ekran çözünürlüğünü değiştiren makro

[bistrobellman]

Arkadaşlar,

hazirladığım ve tasarladığım güzel görünümle forumlar, farklı çözünürlük kullanan kullanıcı ekranlarında ufak görünmektedir...
mesela ben herkesin çalışmasını 1024 x 768 çözünürlükte açmasını istiyorum? yoksa görsel zenginlik kayboluveriyor çünkü ben bu çözünürlükte programı yaptım...

auto open komutunun altına çözünürlüğü herhangi bir PC 'de 1024 x 768 yapacak otomatik komut var mı?

 

[mustafaine1]

Option Explicit
   
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

Sub VerifyScreenResolution(Optional Dummy As Integer)
   
Dim x  As Long
Dim y  As Long
Dim MyMessage As String
Dim MyResponse As VbMsgBoxResult
   
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    If x = 1024 And y = 768 Then
        Else
        MyMessage = "Suanki ekran cozunurlugunuz " & x & " X " & y & " fakat bu program " & _
"1024 X 768 ekran cozunurlugunde calistirilmak icin dizayn edilmistir" & _
"." & vbCrLf & "Ekran cozunurlugunuzu degistirmek istermisiniz?"
        MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "Screen Resolution")
    End If
    If MyResponse = vbYes Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
    End If
   
End Sub

isinizi goruyor umarim, kolay gelsin..

 

[bistrobellman]

uygulamadan çıktıktan sonra kullanıcının default ayarlanmış çözünürlüğüne dönmesini sağlayabilir miyiz? çünkü işci seviyesindeki kişiler tekrar eski ayarlarına getirmekte zorlanıyorlar ekranlarını...
????