Bored....

[MidgetsBro]

I am really bored today, and just for no reason, I wrote this code. It has no real purpose, but it would look cool for a splash screen or something.

'the "magical" sub... lol
Public Sub GrowShrink(MaxWidth As Long, MaxHeight As Long, MinWidth As Long, MinHeight As Long, GrowSpeed As Integer, ShrinkSpeed As Integer, frm As Form)
Do
    If frm.Width < MaxWidth Then
        frm.Width = frm.Width + GrowSpeed
    End If
    If frm.Height < MaxHeight Then
        frm.Height = frm.Height + GrowSpeed
    End If
    frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2
    DoEvents
    If frm.Height >= MaxHeight And frm.Width >= MaxWidth Then Exit Do
Loop
Do
    If frm.Width > MinWidth Then
        frm.Width = frm.Width - ShrinkSpeed
    End If
    If frm.Height > MinHeight Then
        frm.Height = frm.Height - ShrinkSpeed
    End If
    frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2
    DoEvents
    If frm.Height <= MinHeight And frm.Height <= MinWidth Then Exit Do
Loop
End Sub
 
'and to use it:
Private Sub Form_Load()
Me.Visible = True
GrowShrink 10000, 10000, 3000, 3000, 25, 50, Me
End Sub

[Lord_Rat]

Maybe you could incorporate my fade form code (see sig)

[MidgetsBro]

Originally posted by Lord_Rat
Maybe you could incorporate my fade form code (see sig)

Holy shiat! That's a nice piece of code. I am assuming that doesn't work on Windows 9x though, or does it? If you feel you can add your fade code to what I have, then go right ahead.

[MidgetsBro]

Oops! I just noticed that it says directly in your sig that it only works on Win2K/XP. *smacks himself for being so stupid*

[Lord_Rat]

It detects if it doesn't work and then makes the form act like if the code wasn't there at all.

It only works on 2k and XP.

I might add more functionality, but today I am working on my code colorizing program. . .

[Lord_Rat]

Originally posted by MidgetsBro
Oops! I just noticed that it says directly in your sig that it only works on Win2K/XP. *smacks himself for being so stupid*

But it doesn't kill programs on other OS's. That's OK I do dumb stuff also.

[/\/\isanThr0p]

hey that stuff is really cool... I might add a link to your sig in my sig

[Lord_Rat]

Lol. Go ahead.

[Lord_Rat]

And here is the link to Midgets proggies also:

http://haztek.d2g.com/getpage.php?page=programs

[Jason Badon]

Originally posted by Lord_Rat
Maybe you could incorporate my fade form code (see sig)

Lord_Rat I made a few mods to your code. Have a look and let me know what your thoughts are. If you like pop it in you signature for download. Thanks for the code I plan to use it in a current Project.

Jason

[SLH]

Check this thread out for some more cool effects

http://www.vbforums.com/showthread.p...ight=fade+form

[mendhak]

And here

[SLH]

Damn it!! I was going to do that!

Ah well, great minds think alike i guess

[Lord_Rat]

Originally posted by Jason Badon


Lord_Rat I made a few mods to your code. Have a look and let me know what your thoughts are. If you like pop it in you signature for download. Thanks for the code I plan to use it in a current Project.

Jason

I'm glad people like it!

As for the code change you made. It may be the 'right' way to do it (the fade), but I'm not sure that all future versions will handle the code the same way or that they won't come out with Windows FH or somethin. I made it detect whether the fade worked right or not and act accordingly. Again, yours is probably more correct and I'm divided as to which method is more appropriate.

Could we have some more opinons, please!!

[Lord_Rat]

Looking at your code more, I see that you made it operate without a timer.

The problem with this is that the user is unable to interact with the form until it is fully faded in or out.

On a fast system, this is not really a problem, but on slower systems, the form might take a little longer to fade in and to require the user to wait while processing does not seem to be the way to go.

Once again, I am thankful for your modifications and your insight, however, I do not feel that I wish to implement the code in the manner in which you did.

In remaining fair, however, I will offer BOTH files from now on in my sig and the second fade form will keep your name in it.

[Jason Badon]

Thanks for your feed back.