GaMeZoNEs (01-06-2010),Highlander (01-19-2010)
Dude you're pro! I love your tutorials!
Dude you suck! I hate your tutorials!
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:
Ok now, this is for the fade in. I recommend for "Your Form Name Here".LoadCode: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
Which is(Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load)
Code:
Ok now this is for the fade out. I recommend for "form.unload"Code:FormFade("in")
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!
Last edited by creationsbrodcast; 01-06-2010 at 08:06 PM.
GaMeZoNEs (01-06-2010),Highlander (01-19-2010)
Thanks a lot! People will need this... I guess...
[IMG]https://i901.photobucke*****m/albums/ac218/GwinxPic/Sigo.png[/IMG]
------------------------------------------------------
Thank Me If I Help :]
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
-_________________-
You can always change it by changing the fadecount
The whole 'thank me for this' makes you look like a bigass leecher...
Ah we-a blaze the fyah, make it bun dem!
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 .
Hell_Demon (01-09-2010),Lolland (01-07-2010)
Really i didn't.... T.T I just played around with some codes and i got this.......
From Sharma at one site
From Sharma at another siteCode: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 siteCode: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 hereCode: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, NowCode: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
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.
Hell_Demon (01-09-2010)
creationsbrodcast = pwnd
Hey guys I was playing around in vb and I got this:
Its my source code for a combat arms texture remover.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("https://ugleh.com") End Sub End Class
THANK ME PLZ I WANNA BE MOD
Hell_Demon (01-09-2010)
This has been posted before >.<