https://gambas-es.org/showthread.php?tid=1520
Suggerisco questo codice:
Public Sub Form_Open()
Dim hCombo As ComboBox
If Fonts.Exist("D050000L") Or If Fonts.Exist("D050000L [urw]") Or If Fonts.Exist("D050000L [URW ]") Then
With hCombo = New ComboBox(Me) As "ComboBox1"
.X = 50
.Y = 50
.H = 35
.W = 130
.Font = Font["D050000L,Bold,14"]
.Foreground = Color.RGB(197, 166, 67)
' .List = ["QQQQQ", "QQQQ", "QQQ", "QQ", "Q"] ' <--- asterischi
.List = ["MMMMM", "MMMM", "MMM", "MM", "M"] ' <--- stelle
End With
Else
Message.Warning("Devi installare il Font D050000L")
Me.Close
Endif
End
:ciao:
P.S. la "M" è proprio la stella, la "Q" un asterisco e naturalmente funziona con tastiera QWERTY
Ottima soluzione, Gianluigi, quella dell'uso dei Font.
Io non c'ho pensato, essendo stato tratto in inganno nel post dalla parola "immagini", come Oggetto "Image".
Ad ogni modo io ritengo che, riprendendo il tuo codice, al fine di garantire una assoluta e universale compatibilità, sia preferibile usare lo standard UNICODE.
Ad esempio:
Public Sub Form_Open()
Dim hCombo As ComboBox
With hCombo = New ComboBox(Me) As "ComboBox1"
.X = 50
.Y = 50
.H = 35
.W = 140
.Foreground = Color.RGB(197, 166, 67)
.Font.Size = 20
For b As Byte = 5 DownTo 1
.Add(String(b, String.Chr(&272d)))
Next
End With
End