Italian Combo box con immagini

Xfood

Expert
Licensed User
Buongiorno Ragazzi,
Ho girato tutto il forum b4x, non riesco a trovare una combo che visualizzi immagine e testo, qualcuno ha mai avuto questa esigenza?
 

Daestrum

Expert
Licensed User
Longtime User
Create a pane - with an imageview and a label
add the pane to the combobox
B4X:
    Dim p As Pane
    p.Initialize("p")
    Dim img As Image
    Dim iv As ImageView
    Dim l As Label
    l.Initialize("l")
    img.Initialize("directoryToImage","TheImage.jpg")
    l.Text = "My Text field"
' image view initialise
    iv.Initialize("iv")
' set the image
    iv.SetImage(img)
' limit the size of the image
    p.AddNode(iv,0,0,20,20)
' add the text
    p.AddNode(l,30,0,100,20)
' add to combobox
    ComboBox1.Items.Add(p)
 

Xfood

Expert
Licensed User
sembrava ottima la soluzione,
ma ho 2 problemi,
inizialmente si vede bene cosi
1722352955556.png


ma appena faccio un pai di volte apri e chiudi il combo,
e selezione una volta un elemento e una volta un altro elemento a caso, appena riapro
mi ritrovo la lista cosi:
1722352978935.png




come posso risolvere?


altro quesito, come prendo il valore per esempio della label selezionata? per esempio il valore lillo

e come posso fare in modo che mi faccia vedere all'avvio dell'applicazione per esempio il volore della label per esempio Marco, cioe' voglio che si posizioni sul valore di marco ?
 

Daestrum

Expert
Licensed User
Longtime User
You need to get the selected item as a pane, then get the label.text from the label inside the pane.
B4X:
Sub ComboBox1_ValueChanged (Value As Object)
    Dim p As Pane = Value
    'assuming label is 2nd node in pane
    Dim l As Label = p.GetNode(1)
    Log(l.Text)
End Sub

As regards the other problem, I've seen that before, but cannot remember the cause or solution. Sorry.
 

Xfood

Expert
Licensed User
You need to get the selected item as a pane, then get the label.text from the label inside the pane.
B4X:
Sub ComboBox1_ValueChanged (Value As Object)
    Dim p As Pane = Value
    'assuming label is 2nd node in pane
    Dim l As Label = p.GetNode(1)
    Log(l.Text)
End Sub

As regards the other problem, I've seen that before, but cannot remember the cause or solution. Sorry.
Ok Grazie
 

TILogistic

Expert
Licensed User
Longtime User
?
This example gave me the idea to make a cross-platform combobox (B4X)


1722403453409.png

 

Xfood

Expert
Licensed User
?
This example gave me the idea to make a cross-platform combobox (B4X)


View attachment 155767
La provo subito, grazie mille
 

Xfood

Expert
Licensed User
?
This example gave me the idea to make a cross-platform combobox (B4X)


View attachment 155767
Salve Ragazzi,
stavo provando ad utilizzare questo esempio,
ma purtroppo sembra essere fatto per una vecchia versione di b4j,
qualcuno riesce ad adattarlo per b4j ?
Grazie mille

AnchorPaneParent As AnchorPane ? AncorPane, cose?
e se possibile poterlo " trascinare nel layout"
 

Attachments

  • jCustomComboBox.bas
    8.8 KB · Views: 51

LucaMs

Expert
Licensed User
Longtime User
Uhm... ho iniziato a sviluppare una CV come ti serve, ma c'è un bel po' di lavoro da fare.

Per adesso, B4J (ma alla fine, ammesso che io prosegua (se non fosse, magari ti invio il progetto), le modifiche per B4X saranno minime)...

java_Pv4VEtigEu.gif



P.S. ... e fa caldo, non so se ve ne siete accorti ?

P.P.S. E poi non mi piace, non si ha un riscontro visivo del click su quello che sembra il tasto.
 
Last edited:
Top