' Gambas class file
Private $sOldName As String
Public Sub Form_Open()
ComboBox1.Add("Pippo")
ComboBox1.Add("Pluto")
ComboBox1.Add("Paperino")
ComboBox1.Add("Topolino")
ComboBox1.Add("Qui")
ComboBox1.Add("Quo")
ComboBox1.Add("Qua")
$sOldName = ComboBox1.Text
TextBox1.Text = ComboBox1.Text
End
Public Sub ComboBox1_Click()
Dim sActualName As String
sActualName = ComboBox1.Text
If sActualName <> $sOldName Then
TextBox1.Text = ComboBox1.Text
$sOldName = sActualName
Endif
End
perche' una ComboBox genera l'evento change solo se NON e' "read only" ?Noto che quell'Evento è legato in modo particolare all'eventualità di una modifica "manuale", con la tastiera, del testo presente nel corrente elemento (item) del ComboBox. In tale caso la modifica sarà solo visiva, ma il testo di quel item resta intatto nella lista del ComboBox.
Puoi fare una cosa così:Codice: [Seleziona]' Gambas class file
Private $sOldName As String
Public Sub Form_Open()
ComboBox1.Add("Pippo")
ComboBox1.Add("Pluto")
ComboBox1.Add("Paperino")
ComboBox1.Add("Topolino")
ComboBox1.Add("Qui")
ComboBox1.Add("Quo")
ComboBox1.Add("Qua")
$sOldName = ComboBox1.Text
TextBox1.Text = ComboBox1.Text
End
Public Sub ComboBox1_Click()
Dim sActualName As String
sActualName = ComboBox1.Text
If sActualName <> $sOldName Then
TextBox1.Text = ComboBox1.Text
$sOldName = sActualName
Endif
End
:ciao: