Hey, today I'm gonna show you a code for a WaterFX.
Ok, to start it off. Create a New Project
Then, Create a new Class.
Enter the codes below into your Class.
VB.NET, C#, Java, HTML, JQuery, Javascript, PHP, Software Reviews, Computer Tips and Tech News
For Each File In My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop, FileIO.SearchOption.SearchAllSubDirectories, Nothing) Dim foundFile As String = My.Computer.FileSystem.GetFileInfo(File).Name If foundFile.Contains(TextBox1.Text) Then ListBox1.Items.Add(foundFile) End If Next
Public Class Form1
'Author : Mohamed Shimran
'Blog : http://www.ultimateprogrammingtutorials.blogspot.com
Dim StopWatch As New Diagnostics.Stopwatch
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim elapsed As TimeSpan = Me.StopWatch.Elapsed
Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", Math.Floor(elapsed.TotalHours), elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Me.StopWatch.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Me.StopWatch.Stop()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.StopWatch.Reset()
Label1.Text = "00:00:00:000"
ListBox1.Items.Clear()
End Sub
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Add(Label1.Text)
End Sub
End Class
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
'By LeSaN 'Easy code to make a form shake Dim a As Integer 'Declaring integer "a" While a < 10 'Starting a "while loop" 'Setting our form's X position to 20 'pixels to right from it's current position. Me.Location = New Point(Me.Location.X + 20, Me.Location.Y) 'Telling a program to sleep for 50 miliseconds before 'continuing System.Threading.Thread.Sleep(50) 'Setting our form's X position to 20 'pixels to left from it's current position. Me.Location = New Point(Me.Location.X - 20, Me.Location.Y) 'Telling a program to sleep for 50 miliseconds before continuing System.Threading.Thread.Sleep(50) a += 1 'Increasing integer "a" by 1 after each loop End While