字体颜色 单选组 optiongroup1 .interactivechange 事件代码
DO case
CASE this.Value=1
ThisForm.Text1.ForeColor=RGB(255,0,0)
CASE this.Value=2
ThisForm.Text1.ForeColor=RGB(0,0,255)
CASE this.Value=2
ThisForm.Text1.ForeColor=RGB(255,255,0)
ENDCAS
背景颜色 optiongroup2 .interactivechange 事件代码
字体颜色 单选组 optiongroup1 .interactivechange 事件代码
DO case
CASE this.Value=1
ThisForm.Text1.BackColor=RGB(0,0,0)
CASE this.Value=2
ThisForm.Text1.BackColor=RGB(0,255,0)
CASE this.Value=2
ThisForm.Text1.BackColor=RGB(255,255,255)
ENDCAS
温馨提示:答案为网友推荐,仅供参考