منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كود :

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 وى يديف .... هكذا لاكن لاعرف السبب انه يفضل يضف نقت نقت ...................

كود :

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مبتدئ

tariq2812

مبتدئ

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