• Home
 · 
• Miscellaneous
 · 
• String's each Character drop down to and from bottom of form

String's each Character drop down to and from bottom of form

String's each Character drop down to and from bottom of form

API Declarations



Dim str As String
Dim lenstr As Integer
'///paste the declaration in form load event.
Dim left1 As Long
Dim top1 As Long
Dim i As Integer
Dim j As Integer



Rate String's each Character drop down to and from bottom of form

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'property false. Place one textbox and Command Button. Place one Timer set its
enabled property to false and make its timer interval to 50.

'Paste the code in Form Load event.
Private Sub Form_Load()
    left1 = 0
    top1 = 0
    j = 0
End Sub


Public Sub Nameonform()
    
If Label1.uBound > 0 Then
   For i = 1 To Len(str)
        Unload Label1(i)
        left1 = 0
        top1 = 0
    Next
End If
    
    str = Text1
    lenstr = Len(str)
        
    For i = 1 To lenstr
        
        Load Label1(i)
        Label1(i).Left = left1
        Label1(i).Top = top1
        Label1(i).Caption = Mid(str, i, 1)
        Label1(i).Visible = True
        left1 = Label1(i).Left + Label1(i).Width + 10
        
    Next
    
End Sub
Private Sub Command1_Click()
    Call Nameonform
    i = 1
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    
If i > Len(str) Then
    Timer1.Enabled = False
    For i = 1 To Len(str)
        Unload Label1(i)
        left1 = 0
        top1 = 0
    Next
    Command1_Click
Else

If Label1(i).Caption = " " Then
    i = i + 1
End If

    Label1(i).Top = Label1(i).Top + 100
    
    If Label1(i).Top = 1200 Then
        i = i + 1
    End If


End If


End Sub
Public Sub interrupt()
    Timer1.Enabled = False
    Timer1.Enabled = True
End Sub