::. CeniK .:: wrote:
> Selamat Pagi Semua......
>
> Saya ingin bertanya, apakah ada yang tau program vb untuk
> mendapatkan window resolution yang kita gunakan ???
>
> kalo ada yang tau mohon bantuannya yach.
>
> terima kasih
>
> regards,
> madecenik
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "Programmer-VB
> <http://groups.yahoo.com/group/Programmer-VB>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
kita coba pake fungsi API ya...
yang saya coba kalo ga salah begini....
LIBRARY : GDI32.dll
FUNGSI : GetDeviceCap
tambahkan sebuah modul pada project lalu tuliskan kode dibawah ini
Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hdc As
Long, ByVal nIndex As Long) As Long
Private Const TINGGI = 8
Private Const LEBAR = 10
Private Const PIXEL = 12
Private Const DOTPerINCX = 88
Private Const DOTPerINCY = 90
Public Sub GetVideoCaps(hdc As Long, Colors As Long, xResolution As
Long, yResolution As Long)
Dim i As Integer
Dim BitperPixel As Long
BitperPixel = GetDeviceCaps(hdc, PIXEL)
Colors = BitperPixel
xResolution = GetDeviceCaps(hdc, TINGGI)
yResolution = GetDeviceCaps(hdc, LEBAR)
End Sub
setelah itu pada form tambahkan sebuah command yand diisi dengan
perintah sbb:
Private Sub Command1_Click()
Dim z As Long
Dim x As Long
Dim y As Long
GetVideoCaps Form1.hdc, z, x, y
MsgBox "ukuran layar : " & x & " x " & y & " Warna : " & c & " bits"
End Sub
selamat mencoba....
salam
Cybervox....
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
