Question

VB中text文本根据代码改变颜色问题

程序运行前为白色文本框，当运行程序后通过输入的长宽来改变颜色。比如原文本框长500，宽200.当输入数据400,100后就变成400,100的红色文本框如图所示

Answer 1

'你输入的数据格式为 aaa,bbb
dim w as integer,h as integer
w=split(text1.text ,",")(0)
h=split(text1.text ,",")(1)
if w<500 or h <200 then '条件，宽<500,高<200.你可以设置其他条件
text1.backcolor=vbred
else
text1.backcolor=vbwhite
end if

Answer 2

Private Sub Command2_Click()
Dim x
x = InputBox("", "", "400 100")
Text1.BackColor = vbRed
Text1.Width = Split(x)(0)
Text1.Height = Split(x)(1)

End Sub

可以百度HI找我。百度HI群1358368