Thread View: pl.comp.bazy-danych.msaccess
2 messages
2 total messages
Started by minfo@onet.pl
Tue, 17 Apr 2018 03:02
Access 2010 - osadzony w formularzu Ms Graph jest przeskalowany - nieczytelny
Author: minfo@onet.pl
Date: Tue, 17 Apr 2018 03:02
Date: Tue, 17 Apr 2018 03:02
19 lines
716 bytes
716 bytes
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 ... Pozdrawiam Maciej
Re: Access 2010 - osadzony w formularzu Ms Graph jest przeskalowany - nieczytelny
Author: Zbigniew Bratko
Date: Tue, 17 Apr 2018 17:59
Date: Tue, 17 Apr 2018 17:59
46 lines
1462 bytes
1462 bytes
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
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads