ComboBox non modificabile ma che generi evento "change"

[allegfede]

perche' una ComboBox genera l'evento change solo se NON e' "read only" ?

PS: il testo nel combobox cambia se seleziono uno degli "item" gia' nella lista ... ma non viene generato l'evento di "cambio"

[Gianluigi]

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

 

[vuott]

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.

Va rilevato che - sempre in impostazione .ReadOnly = False - una modifica da codice del testo di un elemento del ComboBox, procura una modifica permanente del testo medesimo, ma non farà sollevare l'evento "_Change( )".

[allegfede]

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

 

si penso che faro' cosi' ....