🚀 go-pugleaf

W dniu 2018-04-17 o 12:02, minfo@onet.pl pisze:
> Witam,
> 
> Czy można by zaprogramować w jakiś sprytny sposób,
> że jeżeli aplikacja/formularz zostanie otwarty
> na komputerze o większej rozdzielczości niż była zaprojektowany
> a coraz częściej kupowane są u mnie nowe komputery z WXGA
> to wykres się przeskaluje dynamicznie przy uruchomieniu
> tak by był czytelny.
> 
> Problem mam taki że formularz z wykresem zaprojektowany pod standardową rozdzielczość
> panoramiczną ma tak małe znaki na osiach X i Y że jest praktycznie nieczytelny.
> 
> Oczywiście być może to tylko moja niewiedza, że jeszcze to nie jest zaprogramowane ...

[...]

Pobierz za pomocą API wymiary ekranu i przeskaluj odpowiednio formularz,
bądź utwórz dwa, trzy lub więcej formularzy dostosowanych do różnych 
rozdzielczości i w zależności od rozmiaru ekranu pokazuj dostosowany 
formularz.

Przykładowy kod:

#If VBA7 Then
   Private Declare PtrSafe Function GetSystemMetrics _
     Lib "user32.dll" (ByVal nIndex As Long) As Long
#Else
   Private Declare Function GetSystemMetrics _
       Lib "user32.dll" (ByVal nIndex As Long) As Long
#End If
'_________________________________________
Public Function ScreenXY()
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1

   Debug.Print "Poziomo " & GetSystemMetrics(SM_CXSCREEN)
   Debug.Print "Pionowo: " & GetSystemMetrics(SM_CYSCREEN)

End Function


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl