CYBER WORLD

Login dulu jika anda sudah terdaftar jadi member dan Register dulu jika anda belum terdaftar jadi member
CYBER WORLD

Share The Latest Technology And Report Leading News

Latest topics

» hai gay
Tue Aug 21, 2012 9:45 am by mencret

» Hack E63 Dengan Cara Yg Mudah
Wed Jul 11, 2012 1:55 am by vahrian

» perkenalan
Sat Jul 07, 2012 8:18 am by Admin

» 10 cara mengatasi komputer lambat
Fri Jul 06, 2012 11:44 am by blackcat7

» banned acc
Fri Jul 06, 2012 11:31 am by blackcat7

» Saran Buat Forum
Thu Jul 05, 2012 9:35 pm by Admin

» Perkenalan
Thu Jul 05, 2012 9:33 pm by Admin

» Visual Basic Full Versi
Thu Jul 05, 2012 9:21 am by devil

» XXX video afterschool special
Wed Jul 04, 2012 12:30 pm by joshi

Poll

apakah forum ini menarik?

 
 

Lihat Hasil

November 2017

MonTueWedThuFriSatSun
  12345
6789101112
13141516171819
20212223242526
27282930   

Calendar Calendar

Affiliates

free forum

Top posters

Admin (79)
 
among (66)
 
joshi (46)
 
devil (32)
 
vahrian (28)
 
diamond0 (9)
 
kakanda (5)
 
nia_caemzz (4)
 
blackcat7 (4)
 
diamond0_ (3)
 

Most active topic starters


    VB6 Vibration Form

    Share
    avatar
    devil

    Jumlah posting : 32
    Points : 91
    Reputation : 1
    Join date : 02.12.11

    VB6 Vibration Form

    Post by devil on Fri Dec 02, 2011 6:14 am

    share ilmu sedikit, semoga bermanfaat saja...

    Form bergetar biasanya digunakan dalam aplikasi Chatting, untuk mengingatkan lawan chattingnya apabila pesannya tidak dibalas-balas (buzz). Berikut cara membuatnya :

    Buat sebuah Form dengan sebuah Tombol / Button dan sebuah Timer (Enabled=False; Interval=10) didalamnya.
    Di bagian '(declarations)' dari Form ketikkan :

    [code]
    Dim g As Integer

    atau mau di taruh di mana terserah situ...

    Di bagian Tombol / Button 'Click' ketikkan :

    [code]
    Timer1.Enabled = True

    Di bagian Timer ketikkan :(khusus untuk VB.NET gantikan angka 60 yg berwarna merah dgn angka 4)

    [code]
    If Me.WindowState <> 0 Then GoTo Ero
    Select Case g
    Case 0, 5
    Me.Left = Me.Left - 60
    Case 1, 6
    Me.Top = Me.Top - 60
    Me.Left = Me.Left + 60
    Case 2, 7
    Me.Top = Me.Top + 60
    Me.Left = Me.Left + 60
    Case 3, 8
    Me.Top = Me.Top + 60
    Me.Left = Me.Left - 60
    Case 4, 9
    Me.Top = Me.Top -60
    End Select

    If g = 9 Then
    Ero:
    Timer1.Enabled = False
    g = 0
    Else
    g = g + 1
    End If

    sekarang silahkan coba aplikasinya dan tekan tombolnya

    THE END tongue

      Waktu sekarang Mon Nov 20, 2017 9:47 am