Question

VB如何实现label控件光标闪烁，求代码

Answer 1

1个timer(timer1) 2个label(label1,label2)1个textbox(text1),在text1中输入 看效果

Dim i As Long
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
Label2.BackStyle = 0
Label2.Caption = "|"
Label2.Top = Label1.Top
Label2.Left = (Len(Label1.Caption)) * 90 + Label1.Left - 50
Timer1.Interval = 35
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

Private Sub Timer1_Timer()
Label2.Left = (Len(Label1.Caption)) * 90 + Label1.Left - 50
If i < 10 Then
i = i + 1
Else
Label2.Visible = Not Label2.Visible
i = 0
End If
End Sub