Faire apparaître un texte petit a petit dans le nom d'une form.

[ZeDOver]

ce tutoriel vous aidera a Faire apparaître un texte petit a petit dans le nom d'une form.
je sais c'est pas grand chose mais ça peut être sympathique , bon commençons !

Ce qu'il vous faut :
Timer

Code du Timer :

If Me.Text = "" Then
            Me.Text = "C"
        ElseIf Me.Text = "C" Then
            Me.Text = "Ch"
        ElseIf Me.Text = "Ch" Then
            Me.Text = "Che"
        ElseIf Me.Text = "Che" Then
            Me.Text = "Chea"

En continuant votre mot...

Il faut que le code se termine par :

Me.Text = ""

Pour pouvoir lancer le Timer double cliquez sur la form et mettez :

Timer1.Start()

Et un Exemple ( je vous donne le code en entier ) :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Text = "" Then
            Me.Text = "C"
        ElseIf Me.Text = "C" Then
            Me.Text = "Ch"
        ElseIf Me.Text = "Ch" Then
            Me.Text = "Che"
        ElseIf Me.Text = "Che" Then
            Me.Text = "Chea"
        ElseIf Me.Text = "Chea" Then
            Me.Text = "Cheat"
        ElseIf Me.Text = "Cheat" Then
            Me.Text = "Cheat-"
        ElseIf Me.Text = "Cheat-" Then
            Me.Text = "Cheat-G"
        ElseIf Me.Text = "Cheat-G" Then
            Me.Text = "Cheat-Ga"
        ElseIf Me.Text = "Cheat-Ga" Then
            Me.Text = "Cheat-Gam"
        ElseIf Me.Text = "Cheat-Gam" Then
            Me.Text = "Cheat-Gam3"
        ElseIf Me.Text = "Cheat-Gam3" Then
            Me.Text = ""
        End If
    End Sub

End Class

 

[Cyrion]

J'aurais plustôt utiliser un Select. ._.

 

[ragnarock]

Ou simplement avec un string :

    Dim winName As String = "Cheat-Gam3"
    Dim count As Integer
    
    Private Sub tRefresh_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (count = winName.Length) Then
            Me.Text = ""
            count = 0
        End If
        Me.Text += winName(count)
        count += 1
    End Sub

 

[Evaelis]

Ou simplement avec un string :

    Dim winName As String = "Cheat-Gam3"
    Dim count As Integer
    
    Private Sub tRefresh_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (count = winName.Length) Then
            Me.Text = ""
            count = 0
        End If
        Me.Text += winName(count)
        count += 1
    End Sub

150 % d'accord :D

 

[Ben]

Pareillement mais je n'y avais pas pensé moi j'utilisais aussi la méthode de Supercatch mais c'est bien vrais que le méthode de Ragnarock est plus rapide ^^'