[مبتدئ]

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If (Process.GetProcessesByName("Label1").Length = 0) Then
            If (Me.Label1.Text = "Wait Label1....") Then
                Me.Label1.Text = "wait Label1"
            ElseIf (Me.Label1.Text = "Label1Found!!!") Then
                Me.Label1.Text = "Found Label1"
            Else
                Me.Label1.Text = (Me.Label1.Text & ".")
            End If
            Me.Label1.ForeColor = Color.Red
        Else
            Me.Label1.Text = "Label1 Found!!!"
            Me.Label1.ForeColor = Color.Green
        End If
    End Sub

مفروض يضيف نقت لغايت Label1.... وى بعد كده يرجع يديف 4 نقط تنين يعلى هكذا .... بعد كيه الاسم يرجع label وى يديف .... هكذا لاكن لاعرف السبب انه يفضل يضف نقت نقت ...................

[tariq2812]

كود :

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Label1.Text.Length >= 6 Then
            Label1.Text &= "."
        End If

        If Label1.Text.Length >= 11 Then

            Label1.Text = "Label1"
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Label1"
        Timer1.Interval = 500
    End Sub

[مبتدئ]

tariq2812 كتب :

كود :

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Label1.Text.Length >= 6 Then
            Label1.Text &= "."
        End If

        If Label1.Text.Length >= 11 Then

            Label1.Text = "Label1"
        End If
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "Label1"
        Timer1.Interval = 500
    End Sub

جزاك الله خير اخى

[السندباد المصري]

كود بصراحة جامد