20-06-18, 03:07 AM
20-06-18, 04:46 AM
تفضل اخى 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
تحياتى لك
وتمنياتى لك التوفيق
21-06-18, 12:07 AM
شكرا لك اخي ..
21-06-18, 03:08 AM
الشكر لله
تحياتى لك
21-06-18, 03:46 AM
كود :
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 Class21-06-18, 02:32 PM
(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
شكراً علي ردك