16,554
社区成员
发帖
与我相关
我的任务
分享
Private BackColorStep As Integer = &H808
Private Sub ShowOne(newCode As String, codeShow As TextBox, allTime As Integer)
Dim spd As Integer = allTime / (newCode.Length + codeShow.Text.Length)
Dim oldColor As Color = codeShow.BackColor
For i As Integer = 0 To codeShow.Text.Length - 1
codeShow.BackColor = Color.FromArgb((codeShow.BackColor.ToArgb - BackColorStep) Or &HFF000000)
codeShow.Text = codeShow.Text.Remove(codeShow.Text.Length - 1, 1)
Threading.Thread.Sleep(spd)
My.Application.DoEvents()
Next
For i As Integer = 0 To newCode.Length - 1
codeShow.BackColor = Color.FromArgb((codeShow.BackColor.ToArgb + BackColorStep) Or &HFF000000)
codeShow.Text = newCode.Substring(0, i + 1)
Threading.Thread.Sleep(spd)
My.Application.DoEvents()
Next
codeShow.BackColor = oldColor
End Sub