ComboBox ₺ simgesi ekleme

[ragnorak]

tl = Format("0", "currency")
tl = Left(tl, Len(tl) - 4)

KUR.List = Array(tl, "€", "$")

Combobox'a şu yukarıda yaptığım dışında ₺ simgesini nasıl ekleyebilirim?

 

[Haluk]

    Kur.List = Array(ChrW(8378), "€", "$")

.

 

[ragnorak]

KUR.List = Array(ChrW(8378), "€", "$") hata verdi. KUR.List = Array(ChrW$(8378), "€", "$") düzeltince oldu. Teşekkür ederim.

 

[Haluk]

Verdiği hata mesajının ne olduğunu belirtmediğiniz için bir şey söylemek zor ancak;

ChrW(8378 ) fonksiyonu sonucu "Variant" tipinde, ChrW$(8378) ise "String" tipinde verir. Her 2 tipteki sonuç ise; ComBobox List'e aktarılırken hata vermemesi gerekir.

.

 

[ragnorak]

Evet haklısınız tekrar yaptım hata vermedi. Muhtemelen farklı bir sebepten hata mesajı verdi.