Dear Jemy.....
Kayanya belum ada yg jawab ya....
untuk bisa menangkap resolusi monitor pertama-tama anda harus men-declare fungsi api untuk getsystemmetrics seperti di bawah ini.
Public Declare Function GetSystemMetrics32 Lib "USER32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
note: kodenya ditulis di row paling atas pada sembarang module (sebelum sub atau function).
Seteleh itu masukkan kode berikut pada initilize event pada userform yg diinginkan.
Me.Width = GetSystemMetrics32(0) * 0.75
Me.Height = GetSystemMetrics32(1) * 0.75 - 20
semoga membantu....
rgds
hilman
From: Jemy <jemy.cahyono@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Thu, December 30, 2010 10:14:36 AM
Subject: ]] XL-mania [[ membikin userform full screen
Kayanya belum ada yg jawab ya....
untuk bisa menangkap resolusi monitor pertama-tama anda harus men-declare fungsi api untuk getsystemmetrics seperti di bawah ini.
Public Declare Function GetSystemMetrics32 Lib "USER32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
note: kodenya ditulis di row paling atas pada sembarang module (sebelum sub atau function).
Seteleh itu masukkan kode berikut pada initilize event pada userform yg diinginkan.
Me.Width = GetSystemMetrics32(0) * 0.75
Me.Height = GetSystemMetrics32(1) * 0.75 - 20
semoga membantu....
rgds
hilman
From: Jemy <jemy.cahyono@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Thu, December 30, 2010 10:14:36 AM
Subject: ]] XL-mania [[ membikin userform full screen
Dear All,
mohon pencerahan, saya bikin userform dari visual basic macro di excel yang mana ada properties untuk setting height dan wieght nya bisa diisi manual dari propertis form tersebut atau kita tulis codenya seperti contoh dibawah :
userform1.heigh = 80
userform1.weight = 70
namun saya igin nilai / angka dari heigh atau weightnya ini bisa mengikuti dari ukuran full screen monitor yang disetting contoh :
800 X 600 atau 1024 X 756, sehingga saat file ini saya execute di pc dengan basic resolusi yang berbeda saya tidak perlu lagi setting ulang masing2 form tersebut untuk mengikuti resolusi monitor. bagaimana cara menangkap nilai resolusi monitor dengan bahasa macronya ya...mohon bantuan dan pencerahan.
terima kasih semuanya.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| "if you are the most valuable assets, you will show up on the |
| balance sheet..." - oNo Wiqe |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| "if you are the most valuable assets, you will show up on the |
| balance sheet..." - oNo Wiqe |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário