vb里文本框内容改变就闪烁怎么弄

答案:4 悬赏:30

解决时间 2021-03-21 09:52

提问者网友：樱花树下最美的约定
2021-03-20 19:24

vb里文本框内容改变就闪烁怎么弄

最佳答案

二级知识专家网友：温柔刺客
2021-03-20 20:54

我说句吧。像你这样匿名手机提问是不招人待见的。朋友。

全部回答

1楼网友：疯山鬼
2021-03-20 23:27

Option Explicit Dim TwinkleNO As Integer Public Obj As Object Public Sub tbTwinkle(Obj) TwinkleNO = 0 Timer1.Interval = 100 Timer1.Enabled = True Timer1.Tag = "vbWhite" End Sub Private Sub Timer1_Timer() On Error Resume Next TwinkleNO = TwinkleNO + 1 Select Case Timer1.Tag Case "vbRed" Obj.BackColor = vbRed Timer1.Tag = "vbWhite" Case "vbWhite" Obj.BackColor = vbWhite Timer1.Tag = "vbRed" End Select Debug.Print TwinkleNO If TwinkleNO = 5 Then Timer1.Enabled = False Set Obj = Nothing Exit Sub End If End Sub Private Sub Text1_Change() Set Obj = Text1 Call tbTwinkle(Obj) End Sub

2楼网友：何以畏孤独
2021-03-20 23:11

1. 显示的时候显示到文本框并缓存的变量字段 2. 修改的时候，开始执行timer， 3. timer 对比当前文本框的内容和缓存内容，不同就闪烁颜色就好了

3楼网友：情窦初殇
2021-03-20 21:57

1. 显示的时候显示到文本框并缓存的变量字段 2. 修改的时候，开始执行timer， 3. timer 对比当前文本框的内容和缓存内容，不同就闪烁颜色就好了

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！