Pindah Data dengan Enter


Pada Kali ini saya akan membuat sebuah FORM yang di dalamnya memuat beberapa Fungsi yaitu fungsi “ENTER “ untuk pindah kolom dan Mempilkan SIngkatan terlebih dahulu buat Form sebagai berikut



Untuk Teksbox Masukan berikut Codenya
Public Class Form1
Dim jurusan As String
Dim kelas, jenjang As String, waktu As Integer
Dim d As Integer = 5
Untuk Proses Button 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call perintah()
End Sub
Untuk Proses Butto n
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call perintah()
End Sub
Kemudian isikan Code Berikut ini untuk menampilkan hasil singkatan
Sub perintah()
Dim lo As String
If TextBox1.Text = "TI" Then
lo = "06"
TextBox2.Text = "Tekhnik Informatika"
Else
If TextBox1.Text = "SI" Then
TextBox2.Text = "Sistem Informasi"
End If
End If
End Sub
Untuk Mengisi Data 1 sampai dengan 4 pada Button Proses 3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Add(TextBox3.Text + " " & TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text & " " & TextBox7.Text)
End Sub
Sub pros3()
ListBox1.Items.Add(TextBox3.Text + "" & TextBox4.Text & "" & TextBox5.Text & "" & TextBox6.Text & "" & TextBox7.Text)
End Sub
Untuk Proses input data dengan “ Enter” dengan terlebih dahulu mengganti Method dengan Key Press. Untuk Teksbox lainnya disesuaikan dengan mengganti Teksbox menjadi 4 ,5,6 dst.
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub


0 komentar:

Posting Komentar

Semangat Never Die

Diberdayakan oleh Blogger.

Cari Blog Ini