função sobre função

[zDarkon 0]

fala ae..

tenho um efeito tipo digitando sobre um textbox. Funcionando normal, eu enviando texto usando um button. Porém alterei isso para passar por uma função, com isso, as msg do sistema posso enviar para a pessoa, e fica no estilo do cmd

 

Dim i As Integer
Dim mnge As String

Private Sub msgtype(ByVal msg As String)
  i = 0
  mnge = msg
  Timer2.Enabled = True
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
  i += 1
  TextBox2.Text += mnge.Substring(i - 1, 1)
  If i = mnge.Length Then
    Timer2.Enabled = False
    TextBox2.Text += vbCrLf
  End If
End Sub

o grande problema e que se eu tenho 2 msg seguida, ele esquece a primeira e vai logo para a segunda..

com posso arrumar isso?

msgtype("Verificando conexão")
msgtype("Conexão OK!")

 

[itlpps 109]

É que é muito rápido, ai nem aparece a primeira. Mas se quer ver a primeira, pode colocar um sleep na thread.

https://msdn.microsoft.com/pt-br/library/d00bd51t(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

 

[zDarkon 0]

tentei colocar um sleep na thead ao digitar, porém na pratica, ele trava (sleep) e ja aparece tudo digitado