Fade In/Out Effect

creationsbrodcast · 2010-01-07T03:03:36.000Z
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: 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: 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: FormFade("out") GIVE ME CREDIT FOR THIS! THANK ME FOR THIS!
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
Fade In/Out Effect

Post a Reply

Similar Threads

Tags for this Thread
