• افکت تایپ
    #1
    Note 
    کد php:
    '///|SfoAfzar.Net

    Dim rando
    Dim b As Integer
    Dim i As Integer
    Dim hold As String
    Dim Message As String

    Private Sub Command1_Click()
        '
    //////// reset data
        
    Text1.Text ""
        
    0
        hold 
    ""
        
    1
        
    '////////
        Message = Text2.Text
            Text1.MaxLength = Len(Message)
            Command1.Enabled = False
            Timer1.Enabled = True
    End Sub

    Private Sub Form_Load()
        b = 1
    End Sub

    Private Sub Timer1_Timer()
        On Error Resume Next
        If Text1.Text = Message Then Timer1.Enabled = False: Command1.Enabled = True
        i = i + 1
        Text1.Text = hold & Chr(i)
        If hold & Chr(i) = Left(Message, b) Then hold = hold + Chr(i): i = 0: b = b + 1
    End Sub 

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان