VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



A fun joke to play. You enter a number then the form prints out that many times. Unless it is less

by Sean Dougan (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16th January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)

A fun joke to play. You enter a number then the form prints out that many times. Unless it is less then 20 then it adds 20 to the number then

API Declarations


Private Sub Form_Terminate()
cancle = 1
End Sub


Rate A fun joke to play. You enter a number then the form prints out that many times. Unless it is less



' a text box called txtprinter
' and a button called cmdprint
' and call your form frmp
' thank you and have fun

Private Sub cmdprint_click()
Dim p As Integer
p = txtprinter
    If p <= 20 Then
        p = (p + 20) * 2
        For x = 1 To p
        frmp.PrintForm
        Next
    ElseIf p > 20 Then
        For x = 1 To p
        frmp.PrintForm
        Next
End Sub



Download this snippet    Add to My Saved Code

A fun joke to play. You enter a number then the form prints out that many times. Unless it is less Comments

No comments have been posted about A fun joke to play. You enter a number then the form prints out that many times. Unless it is less . Why not be the first to post a comment about A fun joke to play. You enter a number then the form prints out that many times. Unless it is less .

Post your comment

Subject:
Message:
0/1000 characters