Adahacker,
Thanks a bunch for the info. Yes Im a beginner, and I apologize if I insulted you in any way. Most of this stuff is over my head and I'm trying my best to figure it out.
Thanks for breaking it down for me in your last message that really helps me to learn.
Thanks again,
When I add those 2 lines to the top of the program I get
Compile Error
Invalid Inside Procedure
Private Sub Form_Load()
Option Explicit
Private Counter as Long
Counter = 0
Form1.Refresh
End Sub
____________________________________
Private Sub Timer1_Timer()
Counter = Counter + 1
Label1.Caption...
What it's doing is, the caption on the label will change to 1, then nothing..
What I have in the above message is the entire program. Im learning and piecing stuff togeather as it comes along.
Thanks again for your help,
Didnt work.. This is what I have.
_______________________________________
Private Sub Form_Load()
Counter = 0
Form1.Refresh
End Sub
____________________________________
Private Sub Timer1_Timer()
Counter = Counter + 1
Label1.Caption = Counter
End Sub
______________________________________
I...
Hello,
I'm trying to make a simple (Should be) counter using a timer that will change the caption on a label every second.
This is what Ive tried.
In the Form I have this
Counter = 0
In the timer I have this
Counter = Counter + 1
Label1.Caption = Counter
The interval of the timer is set to...
I have been unsucessful in making this work.. I have to be really close.. Please tell me where I've messed up..
Thanks..
Private Sub Command1_Click()
Dim srvname As String
srvname = txtServer.Text
Shell "c:\winnt\system32\ping" & srvname & "
>c:\temp\testping10.txt"
End Sub...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.