如何设置文本框中文字的背景色

chen3bing 发布于 2020-02-25 11:00， 2470 次点击

只有本站会员才能查看附件，请登录

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

10 回复

ysr28572020-02-25 11:18

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

chen3bing2020-02-25 11:22

回复 2楼 ysr2857

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

wmf20142020-02-25 11:51

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

chen3bing2020-02-25 11:55

回复 4楼 wmf2014

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

wmf20142020-02-25 11:59

回复 5楼 chen3bing

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

ysr28572020-02-25 13:10

回复 3楼 chen3bing

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

chen3bing2020-02-25 13:47

回复 7楼 ysr2857

谢谢

chen3bing2020-02-25 13:48

回复 6楼 wmf2014

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

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

#10

wmf20142020-02-25 14:51

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

只有本站会员才能查看附件，请登录

#11

ysr28572020-02-25 17:00

回复 9楼 chen3bing

不客气！我不精通这个，请参见版主的程序！可以调整一下，我不会，没有字的时候是不会变蓝的，可以调整为只要有字就会变蓝的，我也得学习呢，向你们学习！