ComboBox con immagini anziché testo

[vuott]

https://gambas-es.org/showthread.php?tid=1520

[Gianluigi]

https://gambas-es.org/showthread.php?tid=1520

Suggerisco questo codice:

Codice: [Seleziona]

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

 

P.S. la "M" è proprio la stella, la "Q" un asterisco e naturalmente funziona con tastiera QWERTY

[Gianluigi]

Modificato il codice, adesso dovrebbe funzionare anche con le librerie QT

 

[vuott]

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:

Codice: [Seleziona]

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

[Gianluigi]

Ottima e breve soluzione, senza problemi di librerie. 

...e questa non è venuta in mente a me 

[Gianluigi]

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.

Mi sorge un dubbio, e se dovessi fare un copia incolla?

Fantastico, la tua è la soluzione corretta 

 

[vuott]

Mi sorge un dubbio, e se dovessi fare un copia incolla?

In che seSSo ? 

[Gianluigi]

Mi sorge un dubbio, e se dovessi fare un copia incolla?

In che seSSo ? 

Se selezioni le stelle della mia combo le copi e le incolli in altro controllo, se non predisponi il controllo, otterrai delle M.
Col tuo codice ottieni comunque delle stelle anche in altro programma tipo Editor di testo.

A proposito di stelle che ne dici di queste?
https://www.compart.com/en/unicode/U+2605

 

[vuott]

Se selezioni le stelle della mia combo le copi e le incolli in altro controllo, se non predisponi il controllo, otterrai delle M.
Col tuo codice ottieni comunque delle stelle anche in altro programma tipo Editor di testo.

Appunto... UNICODE è uno Standard, quindi è universale.

A proposito di stelle che ne dici di queste?
https://www.compart.com/en/unicode/U+2605

Tra i simboli di UNICODE ci sono molte stelle: &H1F31F; &H2B50, da &H27929 a &H2730; &H2605 e &H2606