Udformning af Skærmstørrelse ?!?

Platformen er Access 9.0 & Visual Basic 6.0

Du skal kalde GetSystemMetrics() med parameter:

SM_CXFULLSCREEN

Og parameter

SM_CYFULLSCREEN

I et modul :

Public Const BITSPIXEL = 12
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public SX, SY As Long


I din form_load

SX = Screen.Width /Screen.TwipsPerPixelX
SY = Screen.Height / Screen.TwipsPerPixelY

du kan jo så fortsætte med f.eks. :

if SX=800 then
blabla
else
blabla
end if

Add en control til din Toolbox der hedder Microsoft Sysinfo Control 6.0 den kan give dig størrelsen på desktoppen. Den har også en event der hedder OnDisplayChanged her kan du lægge koden ind så formen bliver resized, hvis brugeren skifter opløsning, men ellers læg den i form_load eventen.

Dim wh As Long
Dim ww As Long
Dim wt As Long
Dim wl As Long
wh = SysInfo1.WorkAreaHeight
ww = SysInfo1.WorkAreaWidth
wt = SysInfo1.WorkAreaTop
wl = SysInfo1.WorkAreaLeft

MsgBox "Workarea Height " & wh & vbNewLine & "Workarea width " & ww & vbNewLine & "Workarea top " & wt & vbNewLine & "Workarea left " & wl

btw:

det er en ekstern metode og kan erklæres som følger:

Private Declare Function GetSystemMetrics% Lib "user32" (ByVal nIndex%)

Og du kan fx. anvende flg. parametre:

    Const SM_CXSCREEN = 0        ' Width of screen
    Const SM_CYSCREEN = 1        ' Height of screen
    Const SM_CXFULLSCREEN = 16  ' Width of window client area
    Const SM_CYFULLSCREEN = 17  ' Height of window client area
   

ds-zim >> Jeg har slettet dit andet spm. i VB, der må kun oprettes eet spm. med samme indhold

Modtaget, Slut

-> JPer : Jeg går ud fra at du vil have mig til at indkøbe SysInfo.ocx fra www.mabry.com ?

-> Brian
  Jeg får fejl når jeg prøver at angive SX = Screen.Width / Screen.TwipsPerPixelX !
  (Method or data member not found)

Mangler jeg en add'on eller ?

Hmm, jeg har mine problemer med at finde disse add'ons :(

http://www.vbxtras.com/ProductDemos.asp er umiddelbart mit bedste bud

>> ds-zim, er det ikke "bare" skærm størrelse i pixels du skal bruge?

Kunne du ikke bruge:

Private Declare Function GetSystemMetrics% Lib "user32" (ByVal nIndex%)

Dim ScreenXSize as Integer
Dim ScreenYSize as Integer

ScreenXSize= GetSystemMetrics(SM_CXSCREEN)
ScreenYSize= GetSystemMetrics(SM_CYSCREEN)
   

Du skal i ET MODUL indsætte følgende kode :

Public Const BITSPIXEL = 12
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public SX, SY As Long


Indsæt en label på din form og skriv følgende i Private Sub Form_Load()

SX = Screen.Width /Screen.TwipsPerPixelX
SY = Screen.Height / Screen.TwipsPerPixelY
Label1.Caption = " Din skærmopløsning er : " & SX & "x" & SY

-> Brian
  Hmm, jeg har oprettet et modul for sig der indeholder den kode du har skrevet .. Jeg får dog stadig 'Method or data member not found' når jeg prøver at åben den pågældende formular, compileren melder fejl ved screen.width !?!

-> Privaten
  Melder 'invalid outside procedure' ?!? Mangel på et library eller ?

Der må være noget galt med din installation. har du prøvet at geninstallere ?

Hvad hvis du bare bruger Label1.Caption = Screen.Width - hvad sker der så.

Det skulle gerne returnere 9600, 12000, 15360 ved h.h.v. 640x480, 800x600 og 1024x768

Hvis den melder 'invalid outside procedure' er der noget rivende galt med din installation, har du user32.dll liggende i din \windows\system32 ?

Yep, jeg har user32.dll liggende i \System32 , men prøver jeg at 'aktivere' den (VB editor/Tools/References), siger den 'cant add a reference to the specified file'

Hmm, har ikke prøvet at geninstallere. Måske en god idé ...

->Brian

  Den siger det samme, 'Method or data member not found'

Prøv at "paste" nedenstående metode ind i et module i en access database (opret en ny tom base), hvis du ikke kan køre test metoden uden problemer, så prøv at flytte basen til en anden pc...

Private Declare Function GetSystemMetrics% Lib "user32" (ByVal nIndex%)
Const SM_CXSCREEN = 0        ' Width of screen
Const SM_CYSCREEN = 1        ' Height of screen
   



Sub test()
    Dim ScreenXSize As Integer
    Dim ScreenYSize As Integer

    ScreenXSize = GetSystemMetrics(SM_CXSCREEN)
    ScreenYSize = GetSystemMetrics(SM_CYSCREEN)
    MsgBox ScreenXSize & "*" & ScreenYSize
End Sub

Ja sgu' ! Så var den der *BoUnCe* !!
Tak for indsatsen 'Privaten' :)

Anytime :)