userform tam ekran olduğunda listbox sütunları da genişlesin..

[archetype]

merhaba arkadaşlar,

hazırladığım userform tam ekran olduğunda içerisindeki nesnelerin de orantılı olarak büyümesini istiyorum. bunun için forumda,

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

kodlarını buldum, denedim çalışıyor ama listbox içerisinde 8 sütun var.

With ListBox1
.Clear
.ColumnCount = 8
.ColumnWidths = "25,53,60,120,40,90,40,85"
End With

onların genişliklerini belirleyen kodlar olduğu için yazılar üst üste bindi. listbox sütunlarını da orantılı olarak büyütemez miyiz?

 

[cems]

Bu kodlar bütün elemanları beraber büyütür ve her ölçüdeki ekrana oturtur. Elemanlardaki yazı karakterlerini küçülterek düzeltebilirsiniz.

 

[Murat OSMA]

Merhaba archetype,

Mesajınızı aldım ama lütfen özelden soru sormayınız yahut yardım istemeyiniz.
Sizinle bir ilgisi yok yanlış anlamayın sakın. Özel mesajdan pek hoşlanmıyorum...

Sn. Halit ÖZDEMİR bu bağlantıda sorunuza yanıt olabilecek bir çözüm sunmuş, deneyiniz...

http://www.excel.web.tr/f48/listbox-sutun-geni-lioi-t74435.html

Kodlardaki şu satır ile oynama yapmanız gerekebilir;
yer = sh.Columns(a).Width

Örneğin şu şekilde ayarlayabilirsiniz; yer = sh.Columns(a).Width + 35 gibi...
UserForm'daki duruma göre bu satıra + ilave genişlik ekleyebilirsiniz...

Hoşça kalın !!!

 

[archetype]

olmadı ama yardımın için teşekkür ederim.. istediğim şey ölçülerini belirlediğim columnwidth lerin üstteki kodda yeralan genişleme ile eşit şekilde büymesiydi. bu kodlarla kolonlar eşit şekilde büyüyor. hepsinin değerleri farklı olduğu için yine yazılar üst üste biniyor.

 

[Murat OSMA]

Rica etsem dosyanızı ekler misiniz ?

 

[archetype]

Fakültedeki bilgisayardaydı program. Salı günü yüklesem, o zaman yardımcı olabilir misiniz?

 

[Murat OSMA]

Mesajınızı görürsem ve hatırlarsam elbette yardımcı olmaya çalışırım...

Hoşça kalın !!!

 

[archetype]

Dosyayı ekledim

Murat Bey, dosyayı ekledim. Kontrol etme fısatınız olursa sevinirm. Şimdiden teşekkür ederim..

 

[Murat OSMA]

Sn. Halit ÖZDEMİR'in kodlarını aynen kullandım. Dediğim gibi, +35 kısmı ile biraz oynamanız gerekirdi...

Bakın bakalım istediğiniz gibi olmuş mu ?

 

[archetype]

Elinize sağlık Murat Bey.. Teşekkür ederim, Halit Beyin kodlarını gönderdiğinizde ben de aynı sonuca ulaştım ama istediğim şey, kolonların eşit şekilde dağılması değil de benim belirlediğim ölçülerin (.ColumnWidths = "25,53,60,120,40,90,40,85") orantılı olarak genişlemesi. Gönderdiğiniz kodlarda sıra no, sınıf gibi bölümler haddinden fazla genişlemiş durumda.. Bunu gerçekleştirebileceğimiz kodlar var mı?

 

[Murat OSMA]

Anladım. O konuda birşey yapamayacağım.

İyi akşamlar...