MyTetra Share
Делитесь знаниями!
Как можно определить сколько dpi поставлено на мониторе?
Время создания: 02.03.2020 07:15
Текстовые метки: DPI, разрешение экрана
Раздел: VB

2GSerg: У тебя монитор старинный, а у него - электронно-лучевая трубка с жидкокристаллической плазмой.

Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer
intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + vbCrLf + vbCrLf + Str$(intWidth) + " x" + Str$(intHeight), 64, "Info"
End Sub



Кажется dpi экрана можно так смотреть:
GetDeviceCaps(GetDC(GetDesktopWindow()), LOGPIXELSX)
Хотя бог его знает, что хотел автор.

Так же в этом разделе:
 
MyTetra Share v.0.53
Яндекс индекс цитирования