UserForm' komple full Ekran yapma

[asdsxx]

Arkadaşlar ekli dosyada bir adet UserForm ve içinde iki tane TextBox ve iki tane de ListBox var.
Kod ile UserForm Full ekran oluyor. Ben UserForm hangi bilgisayarda açılırsa açılsın UserForm ve içindeki TextBox ve ListBox lar da (içindeki yazı fontlar dahil) UserForm oranı ile birlikte otomatik büyüyüp Full ekrana uygun hale gelmesi için nasıl bir kod gerekir.
Selamlar...

 

[alicimri]

Deneyin

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

Dim ilkyukseklik As Double

Private Sub UserForm_Initialize()
ilkyukseklik = Me.Height
End Sub

Private Sub UserForm_Activate()
    Dim hWndForm As Long, frmStyle As Long
    hWndForm = FindWindow(vbNullString, Me.Caption)
    frmStyle = GetWindowLong(hWndForm, (-16))
    frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000
    SetWindowLong hWndForm, (-16), frmStyle
    ShowWindow hWndForm, 3
    DrawMenuBar hWndForm
    
Me.Zoom = Round((Me.Height / ilkyukseklik) * 100, 0)

End Sub

 

[asdsxx]

Aşağıdaki gibide deneyebilirsiniz.

Dim ilkyukseklik As Double

Private Sub UserForm_Initialize()
ilkyukseklik = Me.Height
End Sub

Private Sub UserForm_Activate()
    Dim hWndForm As Long, frmStyle As Long
    hWndForm = FindWindow(vbNullString, Me.Caption)
    frmStyle = GetWindowLong(hWndForm, (-16))
    frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000
    SetWindowLong hWndForm, (-16), frmStyle
    ShowWindow hWndForm, 3
    DrawMenuBar hWndForm
   
Me.Zoom = Round((Me.Height / ilkyukseklik) * 100, 0)

End Sub

Levent Hocam çok teşekkürler. Tam istediğim Bu idi

 

[asdsxx]

Deneyin

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With
End Sub

Ali Hocam size de teşekkür ederim.
sizin kodda çalıştı ama bir sıkıntı şu:
UserFormdaki Textbox ve listbox ların ilk hali


Ama kod çalıştıktıktan sonra Textboxlar aynı oranda değil ekrandan taşıyor

 

[alicimri]

kod çalıştıktıktan sonra Textboxlar aynı oranda değil ekrandan taşıyor

Kodlardaki 100 sayısını 90 veya 80 yaparak deneyin.

 

[Levent Menteşoğlu]

Kodlardaki 100 sayısını 90 veya 80 yaparak deneyin.

Ali Bey önerdiğiniz kodda aşağıdaki satırda width yerine kısa kenar olan height değerini kullanırsanız aynı sonucu verecektir.

Zoom = Int(.Width / Me.Width * 100)