Yatay Kaydırma Çubuğunu İptal Etmek.

[ahmedummu]

Merhaba arkadaşlar.

Ekte gönderdiğim dosyada Combo1'in yatay kaydırma çubuğunu iptal edebilirmiyiz.

ListWidth özelliğini 54 yapınca İptal oluyor fakat. Listwidth 52, columnwidth 54 olarak kalacak. Bunları değiştirmeden iptal edebilir miyiz. Yardımcı olursanız sevinirim.

 

[Merhum İdris SERDAR]

.

ComboBox1.ListWidth = [COLOR="Red"]54[/COLOR]
ComboBox1.ColumnWidths = [COLOR="red"]54[/COLOR]

Buradakileri eşit yapmanız gerekir.


.

 

[halit3]

Kodların kısa yazılışı

Private Sub UserForm_Initialize()

Dim j, i

For j = 1 To 12
ComboBox1.AddItem Format(DateAdd("m", j, 1), "mmmm")
Next
ComboBox1.ListWidth = 54
ComboBox1.ColumnWidths = 54

For i = 2017 To 2050
ComboBox2.AddItem i
Next
ComboBox2.ListWidth = 54
ComboBox2.ColumnWidths = 54

End Sub

 

[ahmedummu]

Halit bey hayırlı sabahlar.

Cevap için teşekkür ederim. Ay ve yılları listeleme kodları da güzel olmuş. Benim yaptıklarım çok uzundu.

 

[Merhum İdris SERDAR]

.

Benim verdiğim bilgi teşekkürü hak etmiyor demek.:mrgreen:

.

 

[ahmedummu]

Kusura bakmayın İdris bey cevabınızı şimdi gördüm. En son gelen cevaba bakmışım. Yukarıya hiç bakmadım. İlginize çok teşekkür ederim. Sağolun varolun.