Ekran çözünürlüğünü öğrenmek?

[Orion1]

Mrb.
PC'min O andaki ekran çözürlüğünü öğrenip Değişkenlere atamak istiyorum.
Mesele:
a=Vertical
b=Horizantel
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Haluk]

[vb:1:4a874bbd0b]Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" _
(ByVal nIndex As Long) As Long
'
Sub Test()
Dim X1 As Long, Y1 As Long
X1 = GetSystemMetrics32(0)
Y1 = GetSystemMetrics32(1)
MsgBox "Ekran cozunurlugu : " & X1 & " X " & Y1
End Sub
[/vb:1:4a874bbd0b]

 

[Orion1]

[vb:1:236360f0a2]Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" _
(ByVal nIndex As Long) As Long
'
Sub Test()
Dim X1 As Long, Y1 As Long
X1 = GetSystemMetrics32(0)
Y1 = GetSystemMetrics32(1)
MsgBox "Ekran cozunurlugu : " & X1 & " X " & Y1
End Sub
[/vb:1:236360f0a2]

-----------------------------------------------------------------------------
Mrb.
Teşekkür ederim.
İyi çalışmalar
:lol: