ComboBox'un DropButtonClick olayını engellemek

[Ergün Güler]

Selam,
Userform üzerindeki birçok combobox'um var. Yanındaki oka veya kendisine tıkladığımda listesi açılıyor. Bunu isteğe bağlı olarak engellemek istiyorum.
yani DropButtonClick özelliği çalışmasın.
Böyle birşey mümkün müdür?
Yardımcı olabilirseniz sevinirim.

 

[Mehmet Şahin]

Ergün bey iyi akşamlar,

ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenFocus
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever
ComboBox1.ShowDropButtonWhen =fmShowDropButtonWhenAlways

şeklinde seçenekleriyle kod içinde düzenleyebilirsiniz(Yanlış anlamadıysam)
Saygılar...

 

[Ergün Güler]

Ergün bey iyi akşamlar,

ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenFocus
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever
ComboBox1.ShowDropButtonWhen =fmShowDropButtonWhenAlways

şeklinde seçenekleriyle kod içinde düzenleyebilirsiniz(Yanlış anlamadıysam)
Saygılar...

Selam,
Sayın Dentex hocam,
size de iyi akşamlar.

verdiğiniz kodlar ile olmuyor. Bunlar sadece yanındaki oku gizlemeye yarıyor.

aşağıdaki gibi bir çözüm buldum ancak , ne derece sağlıklıdır bilemiyorum. 2.seferde Excel hata verip dosya kapatılıyor. bunların daha pratiği yok mudur. atıyorum;

ComboBox7_DropButtonClick = False

gibi

Private Sub ComboBox7_DropButtonClick()
Me.ListView1.SetFocus 'listview'e yönlendiriyor ve liste açılmıyor.
MsgBox "denemedir"
End Sub

 

[Korhan Ayhan]

Selamlar,

Ergün bey Sn. dentex'in siz önerdiği kod bloğundaki ikinci satır işinize yarayacaktır. Ekteki örneği incelermisiniz.

 

[Ergün Güler]

Selamlar,

Ergün bey Sn. dentex'in siz önerdiği kod bloğundaki ikinci satır işinize yarayacaktır. Ekteki örneği incelermisiniz.

Selam,
Hocam çok teşekkür ederim. Sayın Dentex'ten de özür dilerim.

İlk başka yaptım olmamıştı. Sebebi ise,
ComboBox'larımın

ComboBox1.Style = fmStyleDropDownList

olduğundan
tıklayınca aşağıya doğru liste açılıyordu.
Sizlerin verdiği kodları aşağıdaki gibi yaptım. tam istediğim gibi çalıştı.

ComboBox1.Style = fmStyleDropDownCombo
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever

 

[Ergün Güler]

Ergün bey iyi akşamlar,

ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenFocus
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever
ComboBox1.ShowDropButtonWhen =fmShowDropButtonWhenAlways

şeklinde seçenekleriyle kod içinde düzenleyebilirsiniz(Yanlış anlamadıysam)
Saygılar...

Sayın Dentex Hocam,
Sizden özür dilerim. 2. sırada verdiğiniz kod işimi gördü. İlk başka denedim olmamıştı. sebebi ise, combobox'un Style'i fmStyleDropDownList imiş.

aşağıdaki gibi yaptım. Tam istediğim gibi oldu.

ComboBox1.Style = fmStyleDropDownCombo
ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenNever

Çok teşekkürler.

 

[Mehmet Şahin]

Ergün bey, problemi çözdüğünüze sevindim. Ayrıca Korhan beye de teşekkür ederim.
Saygılarımla...