skærmopløsning

siderne:

http://www.eksperten.dk/spm/182508

http://www.eksperten.dk/spm/242209

Here's some code which you can us eto find the current resolution. Save these so you can restore them later.

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

Public Function 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 = "Your current screen resolution is " & x & " X " & y & vbCrLf & "This program " & _
        "was designed to run with a screen resolution of 1024 X 768 and may not function properly " & _
        "with your current settings." & vbCrLf & "Would you like to change your screen resolution?"
        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 Function

If you change the dll declaration to public then you can call GetsSystemMetrics from anywhere in you program



Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long



Dim x  As Long
Dim y  As Long

    x = GetSystemMetrics(0)
    y = GetSystemMetrics(1)

Hey Terry

Thanks for the help, but where exactly am I going to put the two different codes.

Put them in a module.

What you need is this



Public x As Long
Public y As Long


Public Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long



Public Function GetScreenResolution()

    x = GetSystemMetrics(0)
    y = GetSystemMetrics(1)

End Function



Before you set the screen resolution using the liks you gave in your original question you need to call GetScreenResolution.

This puts the resolution in variables X and y.

Then you can use these when you want to reset the resolution to what they were when you opened the dB.

Hey

nej jeg får det ikke til at virke, har tested alt hvad jeg kan komme på, jeg får ikke resolutionen tilbage. når jeg så prøver med noget andet så får jeg compile error.

Can you sent me an example of your dB?
ekspertenATsanthell.dk

AT = @

database sendt

I have sent it back to you, have you received it?

Hey
Yes I Have Recived it, It works when starting the database, but when I close the database nothing happens, it dosent change the resolution back.

Did you recive the second dB I sent?

The code for resetting the resolution is in the form. Try closing the form to see if it resets the resolution.

It works fine here.

actually it works when you close the dB too.

I have sent you a new dB. I had problems sending it because your mailbox was full

Hej

Mange tak for hjælpen Terry, nu fungere det bare fint-fint. Du skal have point, men nu er der ingen (accepteret) knap. Hvad kan der være sket nu?

I need to place an answer :o)

Jeg har prøvet at logge ud og så logge ind igen jeg kan stadigvæk ikke en accepteret knap. det er jeg sku godt nok ked af Terry, men jeg ved ikke hvad jeg skal gøre? Jeg har givet dig point før, så det er ikke det at jeg ikke vil.

så var der point til Terry og tak igen for hjælpen.

selv tak