riepilogo

casella di riepilogo ListBox

modifica proprietà per casella selezionata

codifica in pulsante per casella listbox1

codificazione per listbox1 in pulsanti 1,2,3 (varianti per alcune proprietà) per vedere riepilogo.ppt

Private Sub CommandButton1_Click()
ListBox1.BackColor = vbCyan
ListBox1.BorderColor = vbRed
ListBox1.BorderStyle = fmBorderStyleSingle
ListBox1.ColumnHeads = True ' testata colonna
ListBox1.ColumnCount = 1
ListBox1.ControlTipText = "casella di riepilogo"
ListBox1.Enabled = True
ListBox1.ForeColor = vbRed
ListBox1.Height = 100
ListBox1.Left = 20
ListBox1.ListStyle = fmListStylePlain
ListBox1.Top = 20
ListBox1.Visible = True
ListBox1.Width = 200
ListBox1.AddItem "rosso"
ListBox1.AddItem "verde"
ListBox1.AddItem "giallo"
ListBox1.AddItem "blu"
ListBox1.AddItem "arancione"
ListBox1.TextAlign = fmTextAlignCenter

End Sub



Private Sub CommandButton2_Click()
ListBox1.BackColor = vbYellow
ListBox1.BorderColor = vbRed
ListBox1.BorderStyle = fmBorderStyleSingle
ListBox1.ColumnHeads = True ' testata colonna
ListBox1.ColumnCount = 1
ListBox1.ControlTipText = "casella di riepilogo"
ListBox1.Enabled = True
ListBox1.ForeColor = vbRed
ListBox1.Height = 100
ListBox1.Left = 20
ListBox1.ListStyle = fmListStylePlain
ListBox1.Top = 20
ListBox1.Visible = True
ListBox1.Width = 100
ListBox1.AddItem "rosso"
ListBox1.AddItem "verde"
ListBox1.AddItem "giallo"
ListBox1.AddItem "blu"
ListBox1.AddItem "arancione"
ListBox1.TextAlign = fmTextAlignCenter
ListBox1.SpecialEffect = fmSpecialEffectEtched
End Sub

Private Sub CommandButton3_Click()
ListBox1.BackColor = vbRed
ListBox1.BorderColor = vbBlue
ListBox1.BorderStyle = fmBorderStyleSingle
ListBox1.ColumnHeads = False
ListBox1.ColumnCount = 1
ListBox1.ControlTipText = "casella di riepilogo"
ListBox1.Enabled = True
ListBox1.ForeColor = vbBlue
ListBox1.Height = 100
ListBox1.Left = 20
ListBox1.ListStyle = fmListStylePlain
ListBox1.Top = 20
ListBox1.Visible = True
ListBox1.Width = 100
ListBox1.AddItem "rosso"
ListBox1.AddItem "verde"
ListBox1.AddItem "giallo"
ListBox1.AddItem "blu"
ListBox1.AddItem "arancione"
ListBox1.TextAlign = fmTextAlignLeft
ListBox1.SpecialEffect = fmSpecialEffectFlat
End Sub

vedi esempi per applicazione
esempi