Demo Template

Link Download Source Code HDSN Checker : 

UPLOAD.EE

  

• Buka project yang akan anda tambahkan efek loading, atau jika hanya ingin mencoba silakan anda buka bahasa pemrograman visual basic 6.0 dan pilih VB Enterprise Edition Controls kemudian klik OK
• Klik kanan Project yang ada di jendela Properties disebelah kanan, pilih Add kemudian klik Form.

 

• Setelah jendela Add Form terbuka pilih Splash Screen kemudian klik Open.

 

• Hapus semua gambar pada form tersebut.
• Buat disain form seperti gambar berikut.

• Keterangan gambar : 1. Label, 2. Timer, 3. ProgressBar

• Atur interval pada Timer di jendela properties menjadi 40
• Buka jendela coding dari form tersebut dan hapus semua script yang ada. Kemudian masukkan script berikut ini :

• Ubah settingan startup program dengan mengklik kanan project di jendela properties dan pilih Project1 Properties...

• Setelah tampil jendela Project Properties klik menu pull down pada Startup Object, kemudian pilih formSplash dan klik OK.

• Script yang berwarna merah diatas dapat anda ganti sesuai keinginan anda, tergantung form apa yang akan ditampilkan setelah efek loading selesai, sebagai contoh jika anda memiliki form menu utama menggunakan MDIForm maka ubah script tersebut seperti berikut

1. Seperti biasa buka program Visual Basic anda dan mulai dengan form baru
2. Double klik pada form dan masukan deklarasi variable dibawah ini pada daerah paling atas (Declaration) Dim move_x As Integer, move_y As Integer
3. Masukan listing program dibawah ini pada procedure form_MouseDown(...)

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  move_x = x
  move_y = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  If Button = vbLeftButton Then
    Me.Left = Me.Left - (move_x - x)
    Me.Top = Me.Top - (move_y - Y)
  End If
End Sub

• Siapkan form anda terlebih dahulu dan masukkan satu buah CommandButton pada form anda tersebut.
• Rubahlah nama CommandButton menjadi "Tampilkan".
• Lalu klik double pada CommandButton dan isikan code berikut ini.

Private Sub Command1_Click()

    If Command1.Caption = "Tampilkan" Then

       Command1.Caption = "Sembunyikan"

    

       Me.Height = 8000

    

    ElseIf Command1.Caption = "Sembunyikan" Then

       Command1.Caption = "Tampilkan"

        

       Me.Height = 3600

    End If

    End Sub