Notifikasi Auto Close di VB6 Hai Codder. Ini artikel permtama saya tentang Desktop Programming VB6. Pada kali ini saya membagikan tutorial Notifikasi Auto Close di VB6. Langsung saja tutorial, berikut langkah-langkahnya : Langkah 1 : Buat 1 Form, design nya terserah agan, kayak gini misalnya : Langk...

Notifikasi Auto Close di VB6

Notifikasi Auto Close di VB6

Hai Codder. Ini artikel pertama saya tentang Desktop Programming VB6. Pada kali ini saya membagikan tutorial Notifikasi Auto Close di VB6. Langsung saja tutorial, berikut langkah-langkahnya :

Langkah 1 :

Buat 1 Form, design nya terserah agan, kayak gini misalnya :

FormNotifikasi

Langkah 2 :

Tambahkan Control sebagai berikut :

Tambahkan 2 buah timer, dan 1 buah Button dengan name = cExit, Ini tampilannya :

 

FormNotifikasi

Langkah 3 :

Isikan Script Berikut :

 

Dim TopUp As Boolean
Dim Times As Byte

Private Sub cExit_Click()
    TopUp = False
    Timer2.Enabled = True
End Sub

Private Sub Form_Load()
    Top = ((GetSystemMetrics(17) + GetSystemMetrics(4)) * Screen.TwipsPerPixelY)
    Left = (GetSystemMetrics(16) * Screen.TwipsPerPixelX) - Width
    TopUp = True
Times = Times + 10 'Hitung Mundur
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
Times = Times - 1
cExit.Caption = "&Exit " & Times
If Times = 0 Then
    TopUp = False
    Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
    Const S = 80 'Kecepatan Form Naik
    Dim v As Single
    v = (GetSystemMetrics(17) + GetSystemMetrics(4)) * Screen.TwipsPerPixelY
    
    If TopUp = True Then
        If Top - S <= v - Height Then
            Top = Top - (Top - (v - Height))
            Timer2.Enabled = False
        Else
            Top = Top - S
        End If
        
    Else
        Top = Top + S
        If Top >= v Then Unload Me
    End If
End Sub

 

Langkah 4 :

Tekan F5 Untuk Menjalankan, seharusnya tampak seperti ini :

 

Form tersebut bisa dikreasikan sesuai kreatifitas agan sekali, Selamat Mencoba. Sekian dari saya, sampai jumpa di artikel berikutnya.

 


About Author

Charles Nainggolan

Experience Without Limit, Like you can one but you must can all.


Comment & Discussions

  • Maajid Jati Laksamana
    Jika anda ingin Belajar Koding, Saya Sarankan Agar anda Menekuni Jangan Setengah Setengah .. Apabila anda ingin lebih tau detailnya saya sarankan anda mengenyam pendidikan di Universitas Gunadarma
    <a href="http://filkom.gunadarma.ac.id/sisinformasi‚Äč">http://filkom.gunadarma.ac.id/sisinformasi</a>

  • Please LOGIN before if you want to give the comment.