Fullscreen UserForm

  1. tahun lalu

    Pagi semua,

    Saya mau tanya lagi, Bagaimana caranya agar userform ketika fullscreen bisa memenuhi layar.
    objeknya ikut membesar/mengecil sesuai dengan resolusi layar.
    Dengan tanpa merubah ukuran form itu sendiri.

    Misal: Form ukuran 640x480 jika dijalankan di monitor dengan resolusi 800x600 (4:3) akan membesar, begitu juga jika dijalankan di layar dengan resolusi 1366x768 (16:9) akan memanjang. Terima kasih.

    RMX

    Maaf... masalah membesar dan memanjang yang saya maksud adalah UserForm. Bukan yang lain... ^^

    Mas @RadenMasX bisa mencoba dan memodifkasi kode berikut:

    Private Sub UserForm_Initialize()
        With Me
            .Zoom = CInt(Application.Width / 774 * 75)
            .Width = Application.Width - 12
            .Height = Application.Height - 12
        End With
    End Sub

    Pada dasarnya kode di atas untuk resolusi layar 1024 x 768. Namun saya coba di PC saya (1680 x 1050) dapat berjalan dengan baik. Nilai 75 (nilai Zoom Factor) dan nilai 12 (untuk menyesuaikan ukuran form terhadap resolusi layar) dapat diubah ubah sesuai kebutuhan. Sedangkan nilai 774 merupakan nilai faktor pembagi untuk resolusi 1024 x 768 (baiknya tidak usah diubah). Semoga bisa diterapkan... :)

  2. Caton

    22 Okt 2017 Terverifikasi Jawaban Terpilih Indonesia + 12.493 Poin

    Mas @RadenMasX bisa mencoba dan memodifkasi kode berikut:

    Private Sub UserForm_Initialize()
        With Me
            .Zoom = CInt(Application.Width / 774 * 75)
            .Width = Application.Width - 12
            .Height = Application.Height - 12
        End With
    End Sub

    Pada dasarnya kode di atas untuk resolusi layar 1024 x 768. Namun saya coba di PC saya (1680 x 1050) dapat berjalan dengan baik. Nilai 75 (nilai Zoom Factor) dan nilai 12 (untuk menyesuaikan ukuran form terhadap resolusi layar) dapat diubah ubah sesuai kebutuhan. Sedangkan nilai 774 merupakan nilai faktor pembagi untuk resolusi 1024 x 768 (baiknya tidak usah diubah). Semoga bisa diterapkan... :)

  3. oke mas @Caton , saya coba dulu ya...

 

atau Mendaftar untuk ikut berdiskusi!