منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مثال] كيفيه عمل Random Text للفورم - نسخة قابلة للطباعة

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

كيفيه عمل Random Text للفورم - YousefOkasha - 20-06-18

ركز بال Text الخاص بالفورم و كيف يقومو بعمل هذه الطريقة ..
[صورة مرفقة: 4iaxdwnlfasz]
إذا وجدت مشكلة بالصورة .. إضغط هنا

RE: كيفيه عمل Random Text للفورم - elgokr - 20-06-18

تفضل اخى YousefOkasha

كل ما عليك فعله التالى....
تعال على الفورم واجعل قيمة Text فارغ

ثم فى منطقة الاكود اسفل سطر
كود :
Public Class Form1

قم باضافة الكود التالى
كود :
   Dim text_ As String = "Welcome to My Project..."
   Dim ii As Integer = 0

بعد ذلك قم باضافة Timer

واجعل قيم الخصائص لكلاً من التالى
كود :
Enabled = True
Interval = 1000

يمكنك تحديد الوقت الذى يناسبك لدلاً من 1000 وعى تعنى ثانية

ثم قم باضافة الكود التالى داخل Timer1_Tick
كود :
ii += +1
       Me.Text = LSet(text_, ii)
       If ii >= text_.Length Then
           Timer1.Stop()
       End If

تنبيه اذا كان النص باللغة العربية بدلاً من اللغة الانجليزية

فقط كل ما عليك تغيير هذه الكلمة
PHP كود :
LSet 

الى هذه الكلمة
PHP كود :
RSet 


تحياتى لك
وتمنياتى لك التوفيق


RE: كيفيه عمل Random Text للفورم - YousefOkasha - 21-06-18

شكرا لك اخي ..

RE: كيفيه عمل Random Text للفورم - elgokr - 21-06-18

الشكر لله

تحياتى لك


RE: كيفيه عمل Random Text للفورم - silverlight - 21-06-18

كود :
Public Class Form1

   Dim length As Integer
   Dim counter As Integer
   Dim txt As String

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Text = "Welcome to Vb4arab"
       counter = 0
       length = Me.Text.Length
       txt = Me.Text
       Me.Text = ""
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       counter += 1
       If counter > length Then
           counter = 0
           Me.Text = ""
       Else
           Me.Text = txt.Substring(0, counter)
       End If
   End Sub

End Class


RE: كيفيه عمل Random Text للفورم - YousefOkasha - 21-06-18

(21-06-18, 03:46 AM)silverlight كتب :
كود :
Public Class Form1

   Dim length As Integer
   Dim counter As Integer
   Dim txt As String

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Text = "Welcome to Vb4arab"
       counter = 0
       length = Me.Text.Length
       txt = Me.Text
       Me.Text = ""
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       counter += 1
       If counter > length Then
           counter = 0
           Me.Text = ""
       Else
           Me.Text = txt.Substring(0, counter)
       End If
   End Sub

End Class

شكراً علي ردك