افکت تایپ
#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 مهمان