Nesnelerde ekran boyutu

[kemal turan]

Merhaba,Aşağıdaki kod ile userformdaki nesne boyutlarının farklı ekran boyutlarında görünümünü düzenliyor.
Listview nesnesine etki etmiyor.
Çözüm için şimdiden teşekkür ederim.

Private Sub UserForm_Initialize()
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next

 

[muygun]

Merhaba;

benim favorim Listbox (ListView ile pek çalışmıyorum.)


Private Sub UserForm_Activate()
Me.Top = Application.Top
Me.Left = Application.Left
Me.Height = Application.Height
Me.Width = Application.Width
End Sub

1-Çözünürlüğü farklı PC lerde denemedim. Üstteki kodu deneyin.
Olmaz ise;

Eki inceleyin.
Deneyince daha kullanışlı olduğunu göreceksiniz.
(köşesinden çekerek istediğiniz gibi büyültüp küçültebilirsiniz)
İyi çalışmalar.

 

[halit3]

Alternatif örnek dosya

 

[kemal turan]

Çok teşekkür ederim.