Ekran ÇÖzÜnÜrlÜĞÜnÜ Bulmak

Celebrian · #1 24-12-2007, 11:40

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

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
WP-Autoblog Kullanımı ve RSS Site Bulmak	Ra_eM	Makaleleriniz	3	10-11-2008 02:16
Bulmak	Celebrian	Şiirler	1	25-03-2008 02:15
Ekran Çözünürlüğünü Bulma	B737	Visual Basic & Action script	0	24-01-2008 02:21
Uzaktan MAC adresi bulmak	Celebrian	Visual Basic & Action script	0	24-12-2007 12:38
pOİNTER&ASALSAYI BULMAK \|C++	rhythm	C, c++, c#	0	27-10-2007 03:27

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder