Event ButtonBox.Change (gb.form)

Event Change ( )

Gerado quando o texto do controle é alterado.

Este evento é gerado para cada letra que é digitada, ou sempre que o programa escreve para a propriedade Text.

Exemplos

PUBLIC SUB TextBox1_Change()

  IF TextBox1.Text = "gray" THEN PictureBox1.Background = &H707070&

END

Se você tentar usar este evento para modificar o texto no mesmo TextBox, então este manipulador de evento é gerado novamente.

Para evitar um stack overflow (estouro de pilha):

    Exemplos

    PUBLIC SUB TextBox1_Change()

  IF TextBox1.Text = "gray" OR TextBox1.Text = "grey" THEN
    Object.Lock(TextBox1)
    TextBox1.Text = "grey"
    Object.Unlock(TextBox1)
  ENDIF

END
  • Ou usar um sinalizador Boolean para evitar uma segunda entrada, quando o evento é gerado pelo manipulador de eventos não por entrada manual. 

    PUBLIC bRefreshing AS Boolean

PUBLIC SUB TextBox1_Change()

  IF bRefreshing THEN RETURN

  bRefreshing = TRUE

  IF TextBox1.Text = "gray" OR TextBox1.Text = "grey" THEN
    TextBox1.Text = "grey"
  ENDIF

  bRefreshing = FALSE

END