اخواني الاعزاء
السلام عليكم ورحمة الله وبركاتة
كيف يمكنني ان اقوم بكتابة كلمة بس الله الرحمن الرحيم علي اداة ال Label حرف حرف
جربت طريقة ولكن لم تضبط معي
الا وهي
قمت بتعريف المتغير التالي Dim XName As String = "بسم الله الرحمن الرحيم" ثم قمت بوضع Timer وكتبت بة التالي If LblInfo.Text = XName Then Timer1.Enabled = False End If LblInfo.Text &= vb.Right(XName, X + 1) X += 1
ولكن لم تضبط معي
ارجو الافادة
تم تعديل هذه المشاركة بواسطة Ahmed Wahb في 1 أبريل 2007 في 18:00
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
سبحان الله وبحمده ... سبحان الله العظيم
اخواني عفواً لقد علمت اين الخطأ وقمت باصلاحة ونفع معي الحمد لله
وهذا هو الكود بعد التعديل
LblInfo.Text &= vb.Mid(XName, X, 1)
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
سبحان الله وبحمده ... سبحان الله العظيم
جرب هاي الطريأة
Public Class Form1
Dim s As String = "بسم الله الرحمن الرحيم"
Dim i As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If i <= s.Length - 1 Then
Label1.Text += s(i)
i = i + 1
End If
End Sub
End Class
هذا الموضوع مغلق.