منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ما الخطئ هنا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما الخطئ هنا (/showthread.php?tid=7594)

ما الخطئ هنا - مبتدئ - 08-02-13

كود :
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 - 08-02-13

كود :
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


ما الخطئ هنا - مبتدئ - 08-02-13

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
جزاك الله خير اخى

ما الخطئ هنا - السندباد المصري - 09-02-13

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