I posted a topic about my error that was coming up. Nothing helped so here's my file

[PITBULLCJR]

I worte last time:
I get this error when I leave my project on for more than an hour. Could someone please tell me what this means and if they know how to fix it please help me. If you need my code just ask it is a lot of code so thats why I am not putting it here for now. Thanks
Sincerely,
Chris
Here is the error:
Run-time error '6':
Overflow

and no one seemed to have a solution so i zipped up my poject and put it on the internet. This program will probably not do much on your computer it was designed customly to fit my comp. SO if you do dl it just start her up and let her sit for about 45 minutes in the system tray and an error will show up. Then maybe you can figure it out. thanks here it is: http://www.angelfire.com/yt/PITBULLC...NiceThings.zip

Wow, this is some peace of work.. I am having problem loading your INI, but I'll fix that. I also had another error come up saying that it found a duplicate instance within your byran3.frm. This usually means your forgetting to put an "END SUB" somewhere. If that is the case, then I think I just solved your error. If you are missing an END SUB or some sort of tag like it to close a sub or LOOP then you would then get a TIME OUT error. So it only makes sense. I'll work on it and see if I can find the missing tag, but if I may sugest, you might want to do the same..

Knight



[This message has been edited by Knight_Vision (edited 12-25-1999).]

Ok, I finally tracked your Runtime error. In Chris5, it comes up with this error.

Here is the code you have..
Private Sub Timer2_Timer()
List1.BackColor = &H0&
p = p + 1
If p = 1 Then
List1.Width = Chris5.Width
List1.Left = Chris5.Left
List1.Top = Chris5.Left
List1.Height = Chris5.Height - 1000
Command1.Top = Chris5.Height - 800
End If
End Sub

You see that p=p+1 ??

That is where your error accurs. In the General Declarations area, you have this..
Option Explicit
Dim p As Integer

The P seems to be maxing out.

I think you need to fix that..
I will have to figure out if you need to reset that integer somewhere in the code, but i'll keep looking into it.. If you solve it b4 me, let me know..

Knight


[This message has been edited by Knight_Vision (edited 12-25-1999).]

[razzaj]

if u dim p as long ... the program will take more time to give u this error ... idindt download the code but i ll try to now ...if ican help any further i ll let u know

------------------
- regards -
- razzaj -

Right, if you dim it long it would just take longer for the error to pop up. What is needed is for that integer to quit adding to itself and be reset along the way somewhere.

Knight

[PITBULLCJR]

I can't seem to get it to work. It is driving me nuts!!! I hope one of us gets it right eventually. Well thanks for all of your help I am going to go back to working on it. Talk to you guys laterz

[joey o.]

I went to your site,downloaded it,and loved it. Unfortunately,I started using it and played solitare for an hour, now I'm outa time. I will try again to find the problem though.
Happy Hollidays,
JoeyO

[PITBULLCJR]

Well I am glad you like it. I forgot to tell everyone that the ini file has to be on the desktop on a folder called chris then in another folder called chris' group of nice things or you can go into the code and change where it is reading the ini file to where ever you put it. Well thanks everyone for your help so far.

Yea, I gotta admit, this is some nice code. I love the TaskBar Hide option you got here. I am examining it now. I wanted something like this for another project I was thinking about. Thanks for sharing..

Knight

[PITBULLCJR]

It has to be that p = p + 1 on chris5 I only need it to = 1 then stop is there away to say once it = 1 then stop adding it together? Thanks
sincerely chris

Sure.. just add it like this...


Private Sub Timer2_Timer()
List1.BackColor = &H0&
p = p + 1
If p = 1 Then
List1.Width = Chris5.Width
List1.Left = Chris5.Left
List1.Top = Chris5.Left
List1.Height = Chris5.Height - 1000
Command1.Top = Chris5.Height - 800
End If
If p > 1 then p=0
End Sub


OR !!!!!

Private Sub Timer2_Timer()
List1.BackColor = &H0&
p = p + 1
If p >= 1 then
p=1
end sub
end if
If p = 1 Then
List1.Width = Chris5.Width
List1.Left = Chris5.Left
List1.Top = Chris5.Left
List1.Height = Chris5.Height - 1000
Command1.Top = Chris5.Height - 800
End If
End Sub

You need it to reset to 1 each time or to just stay at 1 and not execute the Sub in general correct?

This should work..
Knight


[This message has been edited by Knight_Vision (edited 12-29-1999).]

[PITBULLCJR]

Your right but I fixed it those things that happen under the if p = 1 only need to happen once so that timer2 can be shut down as soon as it happens. so all I did was
if p = 1 then
...
...
...
...
timer2.enabled = false
end if
and i ran it all last night while i was sleeping and it worked. Thank you everyone who helped me out on this. Now that I fixed this one i have another problem. I m going to post a new topic called ini problems
and there i will state what is wrong. Thanks again everyone. I appreciate it.
Sincerely,
Chris