PC World Online - Visual Basic

EKRAN ÇÖZÜNÜRLÜĞÜNÜ BULMAK

Dergiler verdikleri CD'ler için özgün arabirimler tasarlıyorlar. Her bilgisayarda çalışması için 640 * 480 çözünürlükte tasarlanan bir CD arabirimi 800*600 gibi bir çözünürlükte çalıştırıldığında genellikle ekranın diğer taraflarını siyaha boyar. Peki program 800*600 çözünürlükte çalıştığını nasıl anlıyor, ekranın diğer kısımlarını doldurup kendini nasıl ortalıyor. Aşağıda SystemParametersInfo API'sini kullanarak komut butonuna basıldığında tüm ekrana yayılan ve ekran çözünürlüğünü gösteren bir program veriyoruz.

'Aşağıdaki kodlar formlardan bağımsız
bir BAS modülüne girecek...

Option Explicit
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Const SPI_GETWORKAREA& = 48
Public Declare Function SystemParametersInfo Lib
"user32" Alias "SystemParametersInfoA" (ByVal uAction
As Long, ByVal uParam As Long, lpvParam As Any,
ByVal fuWinIni As Long) As Long

'Form1'e girecek…
Private Sub Command1_Click()
Dim rc As RECT
Dim r As Long
Dim msg As String

r = SystemParametersInfo(SPI_GETWORKAREA, 0&, rc, 0&)
msg = "Ekran Çözünürlüğü" & vbCrLf
msg = msg & "Genişlik - " & rc.Right & vbCrLf
msg = msg & "Yükseklik - " & rc.Bottom & vbCrLf & vbCrLf
Text1 = msg
Me.Move rc.Left * Screen.TwipsPerPixelX, _
rc.Top * Screen.TwipsPerPixelY, _
rc.Right * Screen.TwipsPerPixelX, _
rc.Bottom * Screen.TwipsPerPixelY
End Sub