VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



This is one those programs that you cannot touch the button. Enjoy!

by Best Programmer (4 Submissions)
Category: Games
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16th May 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)

This is one those programs that you cannot touch the button. Enjoy!

Rate This is one those programs that you cannot touch the button. Enjoy!



'Just add the following code and two command buttons,
'Add the Graphics as you Please!


Private Sub cmd1_Click()
  MsgBox " Good Job "
End Sub

Private Sub cmd1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  cmd2.Visible = True
  cmd1.Visible = False
End Sub

Private Sub cmd1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     MsgBox " This doesn't count for clicking the Buttons "
  End If
End Sub

Private Sub cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  cmd2.Visible = True
  cmd1.Visible = False
End Sub

Private Sub cmd2_Click()
  MsgBox " Good Job "
End Sub

Private Sub cmd2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
  cmd1.Visible = True
  cmd2.Visible = False
End Sub

Private Sub cmd2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     MsgBox " This doesn't count for clicking the Buttons "
  End If
End Sub

Private Sub cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  cmd1.Visible = True
  cmd2.Visible = False
End Sub

Private Sub mnuExit_Click()
  End
End Sub

Download this snippet    Add to My Saved Code

This is one those programs that you cannot touch the button. Enjoy! Comments

No comments have been posted about This is one those programs that you cannot touch the button. Enjoy!. Why not be the first to post a comment about This is one those programs that you cannot touch the button. Enjoy!.

Post your comment

Subject:
Message:
0/1000 characters