دورات هندسية

 

 

طريقة لإظهار النص حرف وراء الأخر

النتائج 1 إلى 1 من 1
  1. [1]
    أنهار
    أنهار غير متواجد حالياً

    عضو

    تاريخ التسجيل: Apr 2008
    المشاركات: 37
    Thumbs Up
    Received: 0
    Given: 0

    طريقة لإظهار النص حرف وراء الأخر

    هذا الكود بلغة الفيجول بيسك مع العلم بوضع أداةال Timer على ال Form


    Private Sub Timer1_Timer()
    Call Scroll(" أنهار السنوسي")End Sub
    Public Sub Scroll(msg As String)
    Dim t As Variant
    Static i As Integer
    i = i + 1
    Dim mess As String
    mess = msg
    If i = Len(mess) Then
    i = 0
    Else
    t = Mid(mess, i, Len(mess))
    End If
    Me.Caption = t
    end sub
    ياريت اتجربوه وثمن هذا الكود مقاطعة البضائع الدنماركية والهولندية بعد الصلاة على رسول الأمة صلى الله عليه وعلى أله وسلم

  
الكلمات الدلالية لهذا الموضوع

عرض سحابة الكلمة الدلالية

RSS RSS 2.0 XML MAP HTML