If e.Form.Controls("ComboBox16").value <> "" Then Select Case e.Form.Controls("ComboBox16").value Case "酸橙色" g.DrawString(gjdm,fnt1,Brushes.Lime,45,62) Case "红" g.DrawString(gjdm,fnt1,Brushes.Red,45,62)
Case "蓝" g.DrawString(gjdm,fnt1,Brushes.Blue,45,62) Case "黄" g.DrawString(gjdm,fnt1,Brushes.Yellow,45,62) Case "绿" g.DrawString(gjdm,fnt1,Brushes.Green,45,62) End Select End If