Selesaikanlah Kasus Berikut :
JUDUL SOAL : Tugas Praktikum PENJUALAN KREDIT MOBIL (Pelajaran di Kelas)
Desain Program
Berikut Jawaban Program :
Monday, December 15, 2014
Sunday, December 14, 2014
Penggunaan Keypress pada Visual Basic Net 2008
Disini Saya akan menjelaskan bagaimana cara penggunaan tombol keypress pada Vb 2008.
kalau biasanya kita menggunakan Event Click dan mengikutsertakan Button pada Vb 2008 untuk menghasilkan Event yang kita inginkan muncul di Textbox lain,Disini dengan menggunakan Event Keypress,kita hanya perlu menekan ENTER ,maka Event yang kita inginkan akan muncul di Textbox yang lain.
Misal terdapat 2 TextBox
Kursor aktif di TextBox1, sehingga akan di ENTER di TextBox1 akan muncul ke TextBox2, maka pada layar design anda harus double click TextBox1, kemudian pilih Event Keypress sehingga menjadi berikut ini :
Buat Design dulu ya !!!
Double Click Pada Textbox1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
End Sub
End Class
Dim Tombol As Integer berguna untuk mendefinisikan variabel tombol sebagai jenisnya Integer dan kemudian di isikan nilai ASC dari karakter yang ditekan ( Asc(e.Keychar) )
If Tombol = 13 Then, berguna untuk membandingkan apabila yang ditekan yaitu tombol ENTER (13 untuk mewakili ASC dari ENTER), apabila ENTER yang ditekan, maka TextBox2 di Fokuskan dengan perintah TextBox2.Focus()
kalau biasanya kita menggunakan Event Click dan mengikutsertakan Button pada Vb 2008 untuk menghasilkan Event yang kita inginkan muncul di Textbox lain,Disini dengan menggunakan Event Keypress,kita hanya perlu menekan ENTER ,maka Event yang kita inginkan akan muncul di Textbox yang lain.
Misal terdapat 2 TextBox
Kursor aktif di TextBox1, sehingga akan di ENTER di TextBox1 akan muncul ke TextBox2, maka pada layar design anda harus double click TextBox1, kemudian pilih Event Keypress sehingga menjadi berikut ini :
Buat Design dulu ya !!!
Double Click Pada Textbox1
Pada Event TextChanged pilih Event Keypress
Maka Akan muncul tampilan seperti Di atas.
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Tombol As Integer = Asc(e.KeyChar)
If Tombol = 13 Then TextBox2.Focus()
End Sub
End Class
Penjelasan:
If Tombol = 13 Then, berguna untuk membandingkan apabila yang ditekan yaitu tombol ENTER (13 untuk mewakili ASC dari ENTER), apabila ENTER yang ditekan, maka TextBox2 di Fokuskan dengan perintah TextBox2.Focus()
Subscribe to:
Posts (Atom)