What's Here?
- Members: 149,103
- Replies: 505,748
- Topics: 79,659
- Snippets: 2,663
- Tutorials: 706
- Total Online: 1,523
- Members: 99
- Guests: 1,424
|
|
Submitted By:
|
|
|
Rating:
|
|
Views: 23,525 |
Language: Visual Basic
|
|
Last Modified: October 11, 2005 |
|
Instructions: just copy and paste |
Snippet
Private Sub Command1_Click() End Sub Private Sub Cmdcalculate_Click() Dim calculate As String Dim number As Single Dim balance As Single amount = Txtnumber.Text balance = 100 If amount > balance Then MsgBox " you have exceede you limit," If amount < balance Then MsgBox " no money get a job ," If amount <> balance Then MsgBox " new balance 100," End Sub Private Sub Cmdclear_Click() Txtnumber.Text = "" End Sub
Copy & Paste
|
|
|
Be Social
Reference Sheets
Bye Bye Ads
Monthly Drawing
Top Contributors
Top 10 Kudos This Month
|
| 