|
|
| Submitted on: 8/3/2003 1:28:50 AM
By: Infa Riot 77
Level: Beginner
User Rating: Unrated
Compatibility:VB 4.0 (32-bit), VB 5.0, VB 6.0
Users have accessed this article 199 times.
|
(About the author) |
| | | A 3d command border, very easy, you dont need to vote,but your feedback is apreciated.This is for begginers.Or if you want to make an advanced program as far as graphics go.
| |
| |
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description. | '3D Command Border
'you will need 1 timer, 1 label,1 comman
' d,and 4
lines
'set timer value to 1
'NOTE:the code is self explanatory
Private Sub Form_Load()
Timer1.Enabled = True
Label1.Caption = "0"
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
If Label1.Caption = "50" Then
Line4.BorderColor = vbBlack
Line3.BorderColor = vbBlack
Line2.BorderColor = vbWhite
Line1.BorderColor = vbWhite
End If
If Label1.Caption = "100" Then
Line1.BorderColor = vbBlack
Line2.BorderColor = vbBlack
Line3.BorderColor = vbWhite
Line4.BorderColor = vbWhite
End If
end sub
'thats it your 3d Command border | |
Other 1 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
8/5/2003 4:10:38 AM:Rat Sniff
thats cool.
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here.
|
|
