تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] كيفيه عمل Random Text للفورم
#1
ركز بال Text الخاص بالفورم و كيف يقومو بعمل هذه الطريقة ..
[صورة مرفقة: 4iaxdwnlfasz]
إذا وجدت مشكلة بالصورة .. إضغط هنا
الرد }}}
تم الشكر بواسطة:
#2
تفضل اخى 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 


تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: sendbad100
#3
شكرا لك اخي ..
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#4
الشكر لله

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#5
كود :
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
Retired
الرد }}}
تم الشكر بواسطة: elgokr , YousefOkasha
#6
(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

شكراً علي ردك
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] كود لتوليد الارقام تلقائي في text box Raaf 5 620 08-11-23, 03:03 AM
آخر رد: VIP_YEMEN
  [VB.NET] تحويل من Hex الى text aminesori 4 446 18-07-23, 07:05 PM
آخر رد: aminesori
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 3 1,714 19-04-23, 10:28 PM
آخر رد: Taha Okla
  [سؤال] كيفيه عمل خطوط واشكال هندسيه في فيجوال بيسك حسن الجلب 1 347 12-01-23, 03:22 AM
آخر رد: Taha Okla
  set text into webview2 Basil Abdallah 1 540 17-09-22, 02:48 AM
آخر رد: Basil Abdallah
  [سؤال] كيفيه البحث بالصوره في قاعدة بيانات اكسس حسن الجلب 3 972 12-09-22, 01:53 AM
آخر رد: حسن الجلب
  [سؤال] كيفيه حفظ ملف الي مسار محدد في الكمبيوتر حسن الجلب 2 681 09-09-22, 03:37 AM
آخر رد: asmarsou
  [سؤال] كيفيه ازاله line من سلسه نصيه حسن الجلب 10 1,018 25-08-22, 03:59 AM
آخر رد: سعود
  [سؤال] كيفيه التعامل مع الاسكي كود حسن الجلب 5 903 16-08-22, 09:01 AM
آخر رد: سعود
  [سؤال] كيفيه ارسال رساله الي الواتساب حسن الجلب 3 814 12-08-22, 01:28 AM
آخر رد: asmarsou

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم