程序代码:DO CASE
CASE this.Value=1
this.BackColor=RGB(255,0,0)
CASE this.Value=2
this.BackColor=RGB(255,255,0)
CASE this.Value=3
this.BackColor=RGB(0,0,255)
CASE this.Value=4
this.BackColor=RGB(0,255,0)
CASE this.Value=5
this.BackColor=RGB(0,0,0)
ENDCASE
thisform.shape1.BackColor=this.BackColor
BKC=this.BackColor
thisform.text7.Value=MOD(BKC,256)
thisform.text8.Value=INT(MOD(BKC,256*256)/256)
thisform.text9.Value=INT(BKC/256/256)