1个回答
展开全部
可以实现,但是效率非常低,不可取
个人觉得你这个问题可能要先界定一下你的需求,看你的需求是要在逐字键入资料到TextBox中时同时改变颜色呢,还是要在TextBox中输出你取得的资料并改变字串中的颜色,如果是前者的话建议你可以改用RichTextBox比较简单,而如果是后者的话还可以考虑直接用几个Label去取代TextBox作输出,去接成一个字串输出就可以随你要的自行设定输出颜色,又不需要写太多的程式码,接Label的方法可以参考一下面的程式码。
Private Sub Form_Load()
Label1.AutoSize = True
Label2.AutoSize = True
Label3.AutoSize = True
Label1.ForeColor = vbBlack
Label2.ForeColor = vbRed
Label3.ForeColor = vbBlue
Label1.Caption = "Tak"
Label2.Caption = "e it"
Label3.Caption = " easy"
Label2.Move Label1.Left + Label1.Width, Label1.Top
Label3.Move Label2.Left + Label2.Width, Label1.Top
End Sub
个人觉得你这个问题可能要先界定一下你的需求,看你的需求是要在逐字键入资料到TextBox中时同时改变颜色呢,还是要在TextBox中输出你取得的资料并改变字串中的颜色,如果是前者的话建议你可以改用RichTextBox比较简单,而如果是后者的话还可以考虑直接用几个Label去取代TextBox作输出,去接成一个字串输出就可以随你要的自行设定输出颜色,又不需要写太多的程式码,接Label的方法可以参考一下面的程式码。
Private Sub Form_Load()
Label1.AutoSize = True
Label2.AutoSize = True
Label3.AutoSize = True
Label1.ForeColor = vbBlack
Label2.ForeColor = vbRed
Label3.ForeColor = vbBlue
Label1.Caption = "Tak"
Label2.Caption = "e it"
Label3.Caption = " easy"
Label2.Move Label1.Left + Label1.Width, Label1.Top
Label3.Move Label2.Left + Label2.Width, Label1.Top
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询