Visual Basic 2008 Hakkında

Merhaba;

Arkadaşlar ufak bir sorum olacak sizlere bir textbox dan diğerine ENTER tuşu ile geçmek için gereken kod hakkında yardımcı olurmusunuz

textbox1 ve textbox2 tane iki tane textbox olduğunu varsayalım ve textbox1'de enter tıkladığında textbox2'ye geçeceğini düşünelim

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
End If
End Sub

Imports System.Data.OleDb
Public Class DogusHasarGiris
Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=C:\database\dogus.mdb")
Dim com As OleDbCommand = New OleDbCommand("select tb_1 from dogus", conn)
Sub list()
conn.Open()
Dim komut As OleDbCommand
Dim okut As OleDb.OleDbDataReader
komut = New OleDb.OleDbCommand("Select * from dogus", conn) 'sql sorgumuzu yazdık
okut = komut.ExecuteReader()
While okut.Read
ListBox1.Items.Add(okut.Item("tb_7"))
End While
conn.Close()
End Sub
Sub verigoster()
Dim dv As OleDbDataAdapter
dv = New OleDbDataAdapter("select * from dogus", conn)
Dim ds As New DataSet
dv.Fill(ds, "dogus")
DataGridView1.DataSource = ds.Tables("dogus")
DataGridView1.Columns(0).HeaderText = "Bayi Adı"
DataGridView1.Columns(0).Width = 100
DataGridView1.Columns(1).HeaderText = "Bayi İli"
DataGridView1.Columns(1).Width = 122
DataGridView1.Columns(2).HeaderText = "Bayi Bölge"
DataGridView1.Columns(2).Width = 120
DataGridView1.Columns(3).HeaderText = "Fatura Tarihi"
DataGridView1.Columns(3).Width = 90
DataGridView1.Columns(4).HeaderText = "Fatura Tutarı"
DataGridView1.Columns(4).Width = 90
DataGridView1.Columns(5).HeaderText = "Fatura No"
DataGridView1.Columns(5).Width = 80
DataGridView1.Columns(6).HeaderText = "Takip No"
DataGridView1.Columns(6).Width = 125
DataGridView1.Columns(7).HeaderText = "Hasar Tarihi"
DataGridView1.Columns(7).Width = 90
DataGridView1.Columns(8).HeaderText = "Hasar Şekli"
DataGridView1.Columns(8).Width = 90
DataGridView1.Columns(9).HeaderText = "Malzeme İçerik"
DataGridView1.Columns(9).Width = 125
DataGridView1.Columns(10).HeaderText = "Parça No"
DataGridView1.Columns(10).Width = 90
DataGridView1.Columns(11).HeaderText = "Par/Lır No"
DataGridView1.Columns(11).Width = 90
DataGridView1.Columns(12).HeaderText = "Açıklama"
DataGridView1.Columns(12).Width = 250
DataGridView1.Columns(12).MinimumWidth = 250
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
DateTimePicker1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
DateTimePicker2.Text = ""
ComboBox4.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
RichTextBox1.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "" Then
MessageBox.Show("Bayi adı seçiniz", "Bayi adı", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox1.Focus()
End If
If ComboBox2.Text = "" Then
MessageBox.Show("Bayi il seçiniz", "Bayi ili", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox2.Focus()
End If
If ComboBox3.Text = "" Then
MessageBox.Show("Bayi bölge seçiniz", "Bayi bölge", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox3.Focus()

ElseIf DateTimePicker1.Text = "" Then
MessageBox.Show("Fatura tarihi giriniz", "Fatura tarihi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
DateTimePicker1.Focus()

ElseIf TextBox1.Text = "" Then
MessageBox.Show("Fatura tutarı giriniz", "Fatuura tutar", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox1.Focus()

ElseIf TextBox2.Text = "" Then
MessageBox.Show("Fatura no giriniz", "Fatura no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox2.Focus()

ElseIf TextBox3.Text = "" Then
MessageBox.Show("Takip no giriniz", "Takip no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox3.Focus()

ElseIf DateTimePicker2.Text = "" Then
MessageBox.Show("Hasar tarihi giriniz", "Hasar tarihi", MessageBoxButtons.OK, MessageBoxIcon.Warning)
DateTimePicker2.Focus()

ElseIf ComboBox4.Text = "" Then
MessageBox.Show("Hasar şekli giriniz", "Hasar şekli", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ComboBox4.Focus()

ElseIf TextBox4.Text = "" Then
MessageBox.Show("Malzeme içeriği giriniz", "Malzeme içeriği", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox4.Focus()

ElseIf TextBox5.Text = "" Then
MessageBox.Show("Parça no giriniz", "Parça no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox5.Focus()

ElseIf TextBox6.Text = "" Then
MessageBox.Show("Par/Lır no giriniz", "Par/Lır no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox6.Focus()

ElseIf RichTextBox1.Text = "" Then
MessageBox.Show("Lütfen açıklama giriniz", "Açıklama", MessageBoxButtons.OK, MessageBoxIcon.Warning)
RichTextBox1.Focus()
Else
Try
Dim i
For i = 0 To ListBox1.Items.Count - 1
If TextBox3.Text = ListBox1.Items(i) Then
MessageBox.Show("Bu takip numarası daha önce kayıt edilmiş", "Mükerrer takip no", MessageBoxButtons.OK, MessageBoxIcon.Warning)
TextBox3.Text = ""
TextBox3.Focus()
Exit Sub
End If
Next
Dim komut As OleDbCommand
conn.Open()
komut = New OleDbCommand("insert into dogus(tb_1,tb_2,tb_3,tb_4,tb_5,tb_6,tb_7,tb_8,tb_9 ,tb_10,tb_11,tb_12,tb_13) values('" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & DateTimePicker1.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker2.Text & "','" & ComboBox4.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & RichTextBox1.Text & "')", conn)
komut.ExecuteNonQuery()
conn.Close()
verigoster()
MessageBox.Show("Hasarlı Malzeme Kayıt Edildi", "Kayıt!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Catch ex As Exception
MessageBox.Show("Hata var!" & vbCrLf & ex.Message, "İşlem Hatası", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End If
End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Visible = False
verigoster()
list()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AdminTkAraDogus.Show()
Me.Hide()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
DogusYaz.Show()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MessageBox.Show("Bu adımı kullanmaya yetkili değilsiniz", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MessageBox.Show("Bu adımı kullanmaya yetkili değilsiniz", "Uyarı!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AnaForm.Show()
Me.Hide()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MessageBox.Show("Çıkmak İstediğinizden Eminmisiniz", "Çıkış", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
AnaForm.Show()
Me.Hide()
End If
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEve ntArgs) Handles DataGridView1.CellFormatting
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub
End Class




Yukarıda verdiğm kodlamanın neresinde nasıl kullanılır bu verdiğini kod yardımcı olabilirmisiniz acaba

textbox'un keyup event'ine

If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
End If

bu kodu ekleyeceksiniz.

pek bilginiz yok ise benim anlatımım ile sadece 1 textbox için yapabilirsiniz sanırım. biraz bilen birisi çok kolaylıkla yapabilir bu işi.

Ben verdiğiniz kodu anladım ancak alttarafta eklediğim sayfanın tamamını içeren kod bulunmakta bu kodlara bakarak sizin verdiğiniz kodu bu kodların neresinde kullanmak gerek onun için yardımınızı rica ederim anlatabilmişimdir umarım

bende keyup eventine yazmanız gerekiyor diyorum

textbox'a çift tıklayın form design sayfasında. kod tarafında textchanged eventi açılır. keyup eventini seçin, sonra benim verdiğim kodu kopyalayın.

TAMAM ANLADIM ANCAK BENİM VERDİĞİM KODLARIN NERESİNDE YER ALMALI MESELA ÖRNEK OLARAK
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
End If
End Sub

EN ALTTAN BU ŞEKİLDE BÖYLE DEVAM ETSEK OLURMU

evet olur, ama textbox'ın adı textbox1 değil ise bunu böyle aynen kopyala yapıştır dersen çalışmaz kod. o nedenle diyorum textbox'a form üzerinde çift tıkla, açılan kod bloğundan keyup eventini aç, sonra sadece

If e.KeyCode = Keys.Enter Then
TextBox2.Focus()
End If

bunu kopyala yapıştır yap.