vfp作业 设计一个表单,实现对文本框进行前景颜色和背景颜色的选择

如题所述

字体颜色 单选组 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

温馨提示:答案为网友推荐,仅供参考