Hallo, Leute!
Ich habe ein Problem mit der Darstellung „nicht mitteleuropäischer Zeichensätze“.
Die Schriften „kyrillisch“, „chinesisch“ (simplified) und „Türkisch“ werden im Fenster der Combobox korrekt (!!!) dargestellt, in der Liste der Combobox und in der Listbox hingegen NICHT (*staun*).
Zu Testzwecken habe ich folgende kleine Form gebastelt:
1 Combobox (Name „Combo“), eine Listbox (Name „List1“) und 4 Radiobuttons (Name „Sprache(0-3)“)
Meine Frage(n):
- Wie bekomme ich VB dazu, die Texte in der Liste (also Listbox und Liste der Kombobox) passend zum Charset anzuzeigen?
- Optional: Wie bekomme ich meinen Chef dazu, sich auf den mitteleuropäischen Markt zu beschränken? (Scherz)
Und nun ein wenig Code…
Option Explicit
Private Sub Form_Load()
Dim text As String
testtext = „ÄÖÜäöüß+*#’“
Combo.AddItem testtext
Combo.AddItem testtext
Combo.AddItem testtext
Combo.text = Combo.List(0)
Combo.Font.Charset = 238 'Mitteleuropaeisch
List1.AddItem testtext
List1.AddItem testtext
List1.AddItem testtext
List1.text = Combo.List(0)
List1.Font.Charset = 238 'Mitteleuropaeisch
End Sub
Private Sub Sprache_Click(Index As Integer)
Select Case Index
Case 0 'Mitteleuropaeisch
Combo.Font.Charset = 238
List1.Font.Charset = 238
List1.Height = 1035
Case 1 'Kyrillisch
Combo.Font.Charset = 204
List1.Font.Charset = 204
List1.Height = 1035
Case 2 'Chinesisch
Combo.Font.Charset = 134
List1.Font.Charset = 134
List1.Height = 1035
Case 3 'Türkisch
Combo.Font.Charset = 238
List1.Font.Charset = 238
List1.Height = 1035
End Select
End Sub
Bin für jede Anregung dankbar.
Gruß, Michael