• Home
 · 
• Miscellaneous
 · 
• Text effect for about boxes and things like that.

Text effect for about boxes and things like that.

Text effect for about boxes and things like that.

API Declarations


Dim i As Integer
Dim send As String



Rate Text effect for about boxes and things like that.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    checksend = Len(Text1.Text)         ' Sets up the i code
    i = 1                               ' I needs to be 1 to set the start position
    tmrsend.Interval = Text3.Text       ' Sets the Timer Interval befor beginning
    tmrsend.Enabled = True              ' Enables the timer
    Text2.Text = ""                     ' Clears Text2 to stop any repeating
    Text2.Text = Text1.Text             ' Sets Text2's text to Text1's text
    Text1.Text = ""                     ' Clears Text1's Text
End Sub

Private Sub HighlightCode()
    Text1.SelStart = 0                  ' Sets the home position
    Text1.SelLength = checksend         ' Sets the highlight to all letters
End Sub

Private Sub SendCode()
    If i <= checksend Then              ' if check send above i then
        send = Mid(Text2.Text, i, 1)    ' Sets up Send to be the next letter or text2
        i = i + 1                       ' Sets up i for the next letter
        Text1.Text = Text1.Text & send  ' Sends the letter to the text box without it erasing Text1's text
    Else
        Command1_Click                  ' Optional for added Effect
    End If
End Sub

Private Sub SpeedCode()
    Text3.Text = Text3.Text - 25         ' Changes the speed of the Timer
    If Text3.Text < 50 Then              ' If the Text number Under 50 then reset it
        Text3.Text = 375                 ' To this value
    End If
    tmrsend.Interval = Text3.Text        ' Sets the Interval to Text3
End Sub

Private Sub Command1_Click()
    GetCode                              ' Needed, so the user can do what he wish's
End Sub

Private Sub Form_Load()
    Me.Height = 2580                     ' Makes only the text box visible to the user, or you can skip this and let the user do his own thing.
    ' Label1.Caption = "Interval" + vbNewLine + "(1000 = 1 second)"
    Command1_Click                       ' Calls for the HIDDEN command button to be pressed, can also call the sub
End Sub

Private Sub Text1_Click()
    SpeedCode                            ' Optional for added Effect
End Sub

Private Sub Text1_DblClick()
    SpeedCode                            ' Optional for added Effect
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then                 ' KeyCode Value 27 is Escape
        End                              ' Since there is no X button the user needs to exit by hitting the ESC Key, When key is pressed it will exit
    End If
End Sub

Private Sub tmrsend_Timer()
    SendCode                             ' This is what its all about
    HighlightCode                        ' Optional for added Effect
End Sub