OK Punya mas, sudah sesuai dengan keinginan. Terima kasih
________________________________
From: ali suparman <ali_supar...@yahoo.com>
To: Programmer-VB@yahoogroups.com
Sent: Monday, September 7, 2009 8:03:20 AM
Subject: Bls: [Programmer-VB] Menghentikan looping sementara
Mas, mungkin logika rutin program ini dapat membantu (disesusikan dengan
kebutuhan)
'----------- --------- --------- --------- --------- --------- ---------
--------- --------- --
'property Form:KeyPreView harus diset TRUE
'----------- --------- --------- --------- --------- --------- ---------
--------- --------- -
Dim i As Long, j As Long, n As Long
Dim Terus As Boolean
Private Sub Form_KeyPress(KeyAscii As Integer)
'jika tombol Escape ditekan maka variable Terus menjadi FALSE
If KeyAscii = vbKeyEscape Then Terus = False
End Sub
Private Sub LoopBerhentiSementa ra( )
j = 10 'posisi berhenti pertama
i = 0
n =100 'banyaknya looping utama
Do Until i >= n
If i = j Then
j = j + 10 'menentukan posisi berhenti berikutnya
Terus = True
Do While Terus
DoEvents 'rutin ini menunggu tombol
Loop
End If
i = i + 1
Loop
End Sub
Barangkali ada cara lain? semoga membantu
--- Pada Ming, 6/9/09, syafruddin abubakar <syafruddin2002@ yahoo.com> menulis:
>Dari: syafruddin abubakar <syafruddin2002@ yahoo.com>
>Judul: [Programmer- VB] Menghentikan looping
> sementara
>Kepada: Programmer-VB@ yahoogroups. com
>Tanggal: Minggu, 6 September, 2009, 3:48 AM
>
>
> >
>DH,
>saya mau membuat looping untuk melihat nilai recordset. tapi saya mau melihat
>per record. Misalnya saya mau lihat record pertama dulu trus loopingnya
>berhenti sementara, setelah dicek dan saya tekan tekan tombol Space atau
>enter baru beralih ke record selanjutnya. Jadi mohon pencerahanya bagaimana
>caranya menghentikan looping sementara tadi dan setelah tekan sesuatu tombol
>baru muncul record selanjutnya
>
>Terima kasih
>Udin
>
>
>
________________________________
Akses email lebih cepat.
Yahoo! menyarankan Anda meng-upgrade browser ke Internet Explorer 8 baru yang
dioptimalkan untuk Yahoo! Dapatkan di sini! (Gratis)
