Event TextBox.Change (gb.qt4)
Event Change ( )
当控件中文本改变时发生该事件。
键入的每个字符以及在程序中改写Text属性都会引发该事件。
Examples
PUBLIC SUB TextBox1_Change()
IF TextBox1.Text = "grey" THEN PictureBox1.BackColor = &H707070&
END
如果想用该事件来修改同一个中
TextBox的文本,那么该事件处理程序会被再次引发。
为避免堆栈溢出,使用一个
Boolean信号来避免由人工输入引发的事件处理程序引发的第二次进入。
Examples
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" ' 刷新Text属性
ENDIF
bRefreshing = FALSE
END