Contoh Membuat Press AnyKey To Stop And Continue VB6

Berikut ini adalah cara sederhana membuat stop dan continue saat form ditekan oleh sembarang tombol di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Tambahkan 1 control Timer dan 2 Label.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Dim StatusLanjut As Boolean

          Private Sub Form_KeyPress(KeyAscii As Integer)
            If StatusLanjut = False Then

               Timer1.Enabled = True
               StatusLanjut = True
               Label1.Caption = "Press any key to stop..."
            ElseIf StatusLanjut = True Then

               Timer1.Enabled = False
               StatusLanjut = False
               Label1.Caption = "Press any key to continue.."
            End If
          End Sub

          Private Sub Form_Load()
            Label1.Caption = "Press any key to continue..."
            Label2.Caption = Time

            Timer1.Interval = 500
            Timer1.Enabled = False
            StatusLanjut = False
          End Sub

          Private Sub Timer1_Timer()
            Label2.Caption = Time
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module