Fade In/Out Effect

If some mod can change my name to : "TheGameHog", that would be nice! ^_^

GIVE ME CREDIT FOR THIS!
THANK ME FOR THIS!

Tutorial by : TheGameHog/CreationsBrodcast
Here's the code...

Add this right after the Public Class Form1:

Code:

Public Sub FormFade(ByVal FType)

        Select Case FType

            Case ("in")

                Dim FadeCount As Integer

                For FadeCount = 10 To 90 Step 10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

            Case ("out")

                Dim FadeCount As Integer

                For FadeCount = 90 To 10 Step -10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

        End Select

        Me.Opacity = 99

    End Sub

Ok now, this is for the fade in. I recommend for "Your Form Name Here".Load
Which is(Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load)

Code:

Code:

FormFade("in")

Ok now this is for the fade out. I recommend for "form.unload"
Which is(Private Sub form_unload(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave)

Code:

Code:

FormFade("out")

GIVE ME CREDIT FOR THIS!
THANK ME FOR THIS!

Thanks a lot! People will need this... I guess...

Errmm i guess ppl will use this...also making 2 tutorials wont let you be a moderator if thats what ur hoping for

Well, my whole point is to be known and be thanked. I want to be a mod because I would to help others but in a more comfortable position. And please thank me

this was posted before ^^ a while back
-_________________-

Originally Posted by XGelite

this was posted before ^^ a while back
-_________________-

It is not the same code but i think hes will fade a bit slower!

You can always change it by changing the fadecount

The whole 'thank me for this' makes you look like a bigass leecher...

Lol? I didn't leech it... T.T

Yes you did, It was leeched from dani and bytes.... it's easier when you give credit, some members don't mind a good leech (could be useful information) as long as you admit it .

Really i didn't.... T.T I just played around with some codes and i got this.......

From Sharma at one site

Code:

Public Sub FormFade(ByVal FType)

        Select Case FType

            Case ("in")

                Dim FadeCount As Integer

                For FadeCount = 10 To 90 Step 10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

            Case ("out")

                Dim FadeCount As Integer

                For FadeCount = 90 To 10 Step -10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

        End Select

        Me.Opacity = 99

    End Sub

From Sharma at another site

Code:

Public Sub FormFade(ByVal FType)

        Select Case FType

            Case ("in")

                Dim FadeCount As Integer

                For FadeCount = 10 To 90 Step 10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

            Case ("out")

                Dim FadeCount As Integer

                For FadeCount = 90 To 10 Step -10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

        End Select

        Me.Opacity = 99

    End Sub

from Sharma at yet another site

Code:

Public Sub FormFade(ByVal FType)

        Select Case FType

            Case ("in")

                Dim FadeCount As Integer

                For FadeCount = 10 To 90 Step 10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

            Case ("out")

                Dim FadeCount As Integer

                For FadeCount = 90 To 10 Step -10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

        End Select

        Me.Opacity = 99

    End Sub

from you...just here

Code:

Public Sub FormFade(ByVal FType)

        Select Case FType

            Case ("in")

                Dim FadeCount As Integer

                For FadeCount = 10 To 90 Step 10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

            Case ("out")

                Dim FadeCount As Integer

                For FadeCount = 90 To 10 Step -10

                    Me.Opacity = FadeCount / 100

                    Me.Refresh()

                    Threading.Thread.Sleep(50)

                Next

        End Select

        Me.Opacity = 99

    End Sub

typically in anti-hacking you look for the anomaly to determine the origin, when it comes to looking for a leecher, the leecher will be the anomaly supported by post dates, Now
yes... code sometimes can be "static" in a lot of cases it would have to be, it's having the same exact chosen milliseconds, Fade count and opacity that makes you a leecher and supports it, as these numbers can be adjusted by the designer/coder to fit their needs......

Add all this to the fact that "Your Tut" was posted 21 hours ago and the others were posted on November of 2008 more then supports that you leeched this code, and in my opinion that's ok, just say [Leeched] Original Tut by Sharma, and we will all be more understanding.

creationsbrodcast = pwnd

Hey guys I was playing around in vb and I got this:

Code:

Option Explicit On
Imports System.IO


Public Class Form1
    Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
    Private Sub FolderText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderText.Click
        FolderDialog.ShowDialog()
        FolderText.Text = FolderDialog.SelectedPath

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FolderText.Text = FolderDialog.SelectedPath
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"

        If Guns.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunsFile1, MoveLocation + GunsFile1)
            Waiting.Text = "Removing guns (10%)"
            File.Move(Location + GunsFile2, MoveLocation + GunsFile2)
            Waiting.Text = "Removing guns (20%)"
            File.Move(Location + GunsFile3, MoveLocation + GunsFile3)
            Waiting.Text = "Removing guns (30%)"
            File.Move(Location + GunsFile4, MoveLocation + GunsFile4)
            Waiting.Text = "Removing guns (40%)"
            File.Move(Location + GunsFile5, MoveLocation + GunsFile5)
            Waiting.Text = "Removing guns (50%)"
            File.Move(Location + GunsFile6, MoveLocation + GunsFile6)
            Waiting.Text = "Removing guns (60%)"
            File.Move(Location + GunsFile7, MoveLocation + GunsFile7)
            Waiting.Text = "Removing guns (70%)"
            File.Move(Location + GunsFile8, MoveLocation + GunsFile8)
            File.Move(Location + GunsFile9, MoveLocation + GunsFile9)
            Waiting.Text = "Removing guns (80%)"
            File.Move(Location + GunsFile10, MoveLocation + GunsFile10)
            File.Move(Location + GunsFile11, MoveLocation + GunsFile11)
            Waiting.Text = "Removing guns (90%)"
            File.Move(Location + GunsFile12, MoveLocation + GunsFile12)
            File.Move(Location + GunsFile13, MoveLocation + GunsFile13)
            Waiting.Text = "Removing guns (100%)"
        End If

        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"


        If Map.Checked = True Then
            On Error Resume Next
            File.Move(Location + MapFile1, MoveLocation + MapFile1)
            Waiting.Text = "Removing Maps (20%)"
            File.Move(Location + MapFile2, MoveLocation + MapFile2)
            Waiting.Text = "Removing Maps (30%)"
            File.Move(Location + MapFile3, MoveLocation + MapFile3)
            Waiting.Text = "Removing Maps (50%)"
            File.Move(Location + MapFile4, MoveLocation + MapFile4)
            Waiting.Text = "Removing Maps (60%)"
            File.Move(Location + MapFile5, MoveLocation + MapFile5)
            Waiting.Text = "Removing Maps (80%)"
            File.Move(Location + MapFile6, MoveLocation + MapFile6)
            Waiting.Text = "Removing Maps (100%)"

        End If

        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"

        If GunSound.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunSoundFile1, MoveLocation + GunSoundFile1)
            Waiting.Text = "Removing gun sounds (10%)"
            File.Move(Location + GunSoundFile2, MoveLocation + GunSoundFile2)
            Waiting.Text = "Removing gun sounds (20%)"
            File.Move(Location + GunSoundFile3, MoveLocation + GunSoundFile3)
            Waiting.Text = "Removing gun sounds (30%)"
            File.Move(Location + GunSoundFile4, MoveLocation + GunSoundFile4)
            Waiting.Text = "Removing gun sounds (40%)"
            File.Move(Location + GunSoundFile5, MoveLocation + GunSoundFile5)
            Waiting.Text = "Removing gun sounds (50%)"
            File.Move(Location + GunSoundFile6, MoveLocation + GunSoundFile6)
            Waiting.Text = "Removing gun sounds (60%)"
            File.Move(Location + GunSoundFile7, MoveLocation + GunSoundFile7)
            Waiting.Text = "Removing gun sounds (70%)"
            File.Move(Location + GunSoundFile8, MoveLocation + GunSoundFile8)
            File.Move(Location + GunSoundFile9, MoveLocation + GunSoundFile9)
            Waiting.Text = "Removing gun sounds (80%)"
            File.Move(Location + GunSoundFile10, MoveLocation + GunSoundFile10)
            File.Move(Location + GunSoundFile11, MoveLocation + GunSoundFile11)
            Waiting.Text = "Removing gun sounds (90%)"
            File.Move(Location + GunSoundFile12, MoveLocation + GunSoundFile12)
            File.Move(Location + GunSoundFile13, MoveLocation + GunSoundFile13)
            Waiting.Text = "Removing gun sounds (100%)"
        End If

        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"
        If Attach.Checked = True Then
            On Error Resume Next
            File.Move(Location + AttatchT, MoveLocation + AttatchT)
            Waiting.Text = "Removing Attatchments (100%)"
        End If

        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        If Chara.Checked = True Then
            On Error Resume Next
            File.Move(Location + CharFile1, MoveLocation + CharFile1)
            File.Move(Location + CharFile2, MoveLocation + CharFile2)
            File.Move(Location + CharFile3, MoveLocation + CharFile3)
            File.Move(Location + CharFile4, MoveLocation + CharFile4)
        End If
        Waiting.Text = "Done"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Revert.Click
        Waiting.Text = "Reverting..."
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"
        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"
        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"
        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"

        On Error Resume Next
        File.Move(MoveLocation + AttatchT, Location + AttatchT)
        File.Move(MoveLocation + GunsFile1, Location + GunsFile1)
        File.Move(MoveLocation + GunsFile2, Location + GunsFile2)
        File.Move(MoveLocation + GunsFile3, Location + GunsFile3)
        File.Move(MoveLocation + GunsFile4, Location + GunsFile4)
        File.Move(MoveLocation + GunsFile5, Location + GunsFile5)
        File.Move(MoveLocation + GunsFile6, Location + GunsFile6)
        File.Move(MoveLocation + GunsFile7, Location + GunsFile7)
        File.Move(MoveLocation + GunsFile8, Location + GunsFile8)
        File.Move(MoveLocation + GunsFile9, Location + GunsFile9)
        File.Move(MoveLocation + GunsFile10, Location + GunsFile10)
        File.Move(MoveLocation + GunsFile11, Location + GunsFile11)
        File.Move(MoveLocation + GunsFile12, Location + GunsFile12)
        File.Move(MoveLocation + GunsFile13, Location + GunsFile13)
        File.Move(MoveLocation + MapFile1, Location + MapFile1)
        File.Move(MoveLocation + MapFile2, Location + MapFile2)
        File.Move(MoveLocation + MapFile3, Location + MapFile3)
        File.Move(MoveLocation + MapFile4, Location + MapFile4)
        File.Move(MoveLocation + MapFile5, Location + MapFile5)
        File.Move(MoveLocation + MapFile6, Location + MapFile6)
        File.Move(MoveLocation + GunSoundFile1, Location + GunSoundFile1)
        File.Move(MoveLocation + GunSoundFile2, Location + GunSoundFile2)
        File.Move(MoveLocation + GunSoundFile3, Location + GunSoundFile3)
        File.Move(MoveLocation + GunSoundFile4, Location + GunSoundFile4)
        File.Move(MoveLocation + GunSoundFile5, Location + GunSoundFile5)
        File.Move(MoveLocation + GunSoundFile6, Location + GunSoundFile6)
        File.Move(MoveLocation + GunSoundFile7, Location + GunSoundFile7)
        File.Move(MoveLocation + GunSoundFile8, Location + GunSoundFile8)
        File.Move(MoveLocation + GunSoundFile9, Location + GunSoundFile9)
        File.Move(MoveLocation + GunSoundFile10, Location + GunSoundFile10)
        File.Move(MoveLocation + GunSoundFile11, Location + GunSoundFile11)
        File.Move(MoveLocation + GunSoundFile12, Location + GunSoundFile12)
        File.Move(MoveLocation + GunSoundFile13, Location + GunSoundFile13)
        File.Move(MoveLocation + CharFile1, Location + CharFile1)
        File.Move(MoveLocation + CharFile2, Location + CharFile2)
        File.Move(MoveLocation + CharFile3, Location + CharFile3)
        File.Move(MoveLocation + CharFile4, Location + CharFile4)
        Guns.Checked = False
        Map.Checked = False
        Chara.Checked = False
        GunSound.Checked = False
        Attach.Checked = False
        Waiting.Text = "Done"
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://ugleh.com")
    End Sub
End Class

Its my source code for a combat arms texture remover.

THANK ME PLZ I WANNA BE MOD