[محمد مسافر]

من لايشكر الله لايشكر الناس اولاً اشكر الله ومن ثم اشكر الاخ / عاصم اشكرك على تفاعلك ودعمك للاخرين بشكل متواصل ومتواضع وانا اسجل شكري الخاص لك فانت مبدع وفي نفس الوقت مكسب للمنتدى ولبقيه الزملاء في هذا الصرخ الشامخ من الموهوبين والمبدعين ملتقى رائع تطرح فيه كل الافكار والحلول وايضاً اسجل شكري للقائمين على هذا المنتدى المتميز والمنظم دائماً .

[asemshahen5]

الحمد لله و الشكر لله رب العالمين .

[محمد مسافر]

اختفاء نص الحكمه بعد 5 دقائق اكثر او اقل وخصوصاً عنما اعمل للفورم تصغير بعدها يختفي النص ، ممكن معرفه السبب واين الاشكاليه بالضبط
مرفق لكم الفورم وصوره توضيحيه لااختفاء النص

ملاحظه : طبعاً ظهر هذا الشي عندما تم تغيير اتجاه النص من الشمال الى اليمين ، اما عندما كانت حركه النص من اليمين الى الشمال فلا مشكله تقريباً يعرض النص طبيعي ولا يختفي .

 LblHekmah.Left = LblHekmah.Left + 1

        If LblHekmah.Right = 0 Then
            LblHekmah.Left = Me.Width + 1
        End If
        If LblHekmah.Left = Me.Width Then
            LblHekmah.Left = -150
        End If

شكراً

[asemshahen5]

مشكور جدا على هذه الحكم الجميلة هل تسمح لنا باستخدامها .

بالنسبة للكود عدل كود التايمر الى التالي :

PHP كود :

   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        'Try
        '    If _Showing.Count < _textToDisplay.Count And _Showing.Count > 0 Then
        '        _Showing = _textToDisplay.Substring(0, _Showing.Length + 1)
        '    ElseIf _Showing.Count < _textToDisplay.Count And _Showing.Count = 0 Then
        '        _Showing = _textToDisplay.Substring(0, 1)
        '    ElseIf _Showing.Count < _avrchar Then
        '        _Showing = " " + _Showing
        '    Else
        '        _Showing = ""
        '    End If
        '    LblHekmah.Text = _Showing
        'Catch ex As Exception
        '    MsgBox(ex.ToString)
        'End Try
        LblHekmah.Left = LblHekmah.Left + 1
        If LblHekmah.Right = 0 Then
            LblHekmah.Left = Me.Width + 1
        End If
        If LblHekmah.Left = Me.Width Then
            LblHekmah.Left = -150
        End If
        If Me.WindowState = FormWindowState.Minimized Then
            LblHekmah.Left = -150
        End If
    End Sub 


[محمد مسافر]

شكراً استاذي يمكنكم استخدام الحكم والاستفاده منها للجميع .