assalamualaikum
yang gk jawab dosa loh
ane mau ngasih tutorial agar form bisa goyang dengan tekan tombol
jika anda pernah download search proxy buatan ane. kya' gitu dh goyangnya
langsung aja y :
alat :
- PC
- VB.NET
langkah-langkah :
1. buat form
2. buat sebuah button
3. klik 2x pada button
4. kemudian masukkan kode ini pada button1
By NNC36
'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
contoh hasil http://prntscr.com/20j0gn
yang gk jawab dosa loh
ane mau ngasih tutorial agar form bisa goyang dengan tekan tombol
jika anda pernah download search proxy buatan ane. kya' gitu dh goyangnya
langsung aja y :
alat :
- PC
- VB.NET
langkah-langkah :
1. buat form
2. buat sebuah button
3. klik 2x pada button
4. kemudian masukkan kode ini pada button1
By NNC36
'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
contoh hasil http://prntscr.com/20j0gn
No comments:
Post a Comment