如上图，只设置文本框中文字的背景色为蓝色，不是文本框的背景色。
谢谢！

这个好像知道点儿，意见仅供参考。文本框内的背景色好像是不能设置，文字颜色可以设置，点文本框的属性窗口，选颜色选择属性就可以，程序里面设置也可以，程序里颜色是用数字表达的咱不会，简单的法就是点属性窗口设置。
文本框外的背景色也是可以设置的，简单法也是点form窗口，点其属性窗口，找颜色栏目选择颜色。

谢谢！你好像没理解我的意思，我是只想让文本框内的文字背景颜色为蓝色。

  Text1.SelStart = 0
  Text1.SelLength = Len(Text1)

谢谢！这个我试过了，不改变颜色呀

那你装的应该是外星人设计的vb,我都是自己验证过的才答复的。

明白点儿了，在复制状态下就可以出现蓝色条框背景，要设置为复制状态就行，楼上的版主的程序是对的可能还不完整单独这两行程序是不行的，不能执行，没有执行触发令。试试下面这个行不（参考）：
Private Sub Text1_GotFocus()
With Text1
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

谢谢

谢谢！你这个只有在先点以下变蓝色，也可以。
还有一点，就是这么着：
窗口打开，文本框里有字，如何让它不点就自动变蓝？

[此贴子已经被作者于2020-2-25 13:55编辑过]

这要一点技巧，方法是用其它控件模拟，解压下面工程运行一下就知道了，自己揣摩。