+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] مقوله تحفيزيه يوميه (/showthread.php?tid=33128)
الصفحات:
1
2
RE: مقوله تحفيزيه يوميه - محمد مسافر - 15-02-20
من لايشكر الله لايشكر الناس اولاً اشكر الله ومن ثم اشكر الاخ / عاصم اشكرك على تفاعلك ودعمك للاخرين بشكل متواصل ومتواضع وانا اسجل شكري الخاص لك فانت مبدع وفي نفس الوقت مكسب للمنتدى ولبقيه الزملاء في هذا الصرخ الشامخ من الموهوبين والمبدعين ملتقى رائع تطرح فيه كل الافكار والحلول وايضاً اسجل شكري للقائمين على هذا المنتدى المتميز والمنظم دائماً .
RE: مقوله تحفيزيه يوميه - asemshahen5 - 15-02-20
الحمد لله و الشكر لله رب العالمين .
RE: مقوله تحفيزيه يوميه - محمد مسافر - 05-03-20
اختفاء نص الحكمه بعد 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
شكراً
RE: مقوله تحفيزيه يوميه - asemshahen5 - 06-03-20
مشكور جدا على هذه الحكم الجميلة هل تسمح لنا باستخدامها .
بالنسبة للكود عدل كود التايمر الى التالي :
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
RE: مقوله تحفيزيه يوميه - محمد مسافر - 06-03-20
شكراً استاذي يمكنكم استخدام الحكم والاستفاده منها للجميع .