ActiveX Combo Box

[bahasus]

Herkese merhaba,
Arkadaşlar activex control menusundeki combo box ile option button kullanımında bir problemle karşılaşıyorum. Option butonları ile dili Türkçeden İngilizceye veya ing.den türkçeye çevirdiğim zaman combo boxta görünen yazının dili değişmiyor ancak combo box'ın listesini açınca değiştiğini görüyorum. bunu gidermenin bir yolu var mıdır acaba? Yardımcı olabilirseniz sevinirim.

Saygılarımla,
Bahadır

 

[Ömer]

Merhaba,

Sheet1 sayfasının kod bölümüne kopyalayıp deneyin.

Private Sub Türkçe_Click()
    ComboBox1.ListIndex = 0
End Sub

.

 

[bahasus]

Ömer bey teşekkürler, bu işe yaradı. birde "su bazlı" seçiliyken ingilizce döndüğümüzde "water borne", "solvent bazlı" için "solvent borne" ve "toplam" seçiliyken "overall" olarak görünmesini nasıl sağlayabiliriz?

 

[Ömer]

Eski kodları silip aşağıdaki kodları deneyin.

Dim a As Long
Private Sub Türkçe_Click()
    a = ComboBox1.ListIndex
    ComboBox1.ListIndex = a
End Sub
 
Private Sub English_Click()
    a = ComboBox1.ListIndex
    ComboBox1.ListIndex = a
End Sub

.

 

[bahasus]

Ömer bey çok teşekkür ederim, tamda ihtiyacım olan buydu
Selamlar
Bahadır