dactylo et timer

Question

Bonjour, je veux faire un effet de dactylo dans un textbox mais malheureusement je vois pas de fonction append alors je réécris tout le texte + 1  caractère a toutes les fois, mais ça blink et dépendament des ordis ça va plus ou moins vites...

ça c'est mon code...

Private Sub Timer1_Timer()
    If Len(textTimer) > indexeText Then
        indexeText = indexeText + 1
        textBoxTimer.Text = textBoxTimer.Text & Mid(textTimer, indexeText, 1)
    Else
        Timer1.Enabled = False
    End If
End Sub

ce que je voulais faire à la place c'est 

    textBoxTimer.SetFocus
    RaiseEvent KeyPress(Asc(le_caractere_a_ajouter))

mais bon on dirais que ça marche pas comme ça

quelqu'un peut m'aider ?

Florynth

cs_Crazyht · Answer

Tu as essayé de remplacer ton RaiseEvent par un sendKey ?

A++

Crazyht :)

rtoukkys · Answer

Cela ne répond pas vraiment à ta question mais peut-être qu'il va t'inspirer...

http://www.vbfrance.com/codes/DACTYLO-SOUS-EXCEL-VBA_52660.aspx

Dactylo et timer

2 réponses

Discussions similaires