Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Vb/Vbnet


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#1 08.03.2018 12:53
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Enter kao tab u DataGridView kako?
Pomoć prijatelja Smiling
kako da u DataGridView-u nateram ENTER da radi kao TAB. Dole je kod sa forme

podešavanja
EditMode: EditOnEnter

cod
Public Class Form1

Private Sub PorudzbineBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles PorudzbineBindingNavigatorSaveItem.Click
Try
Me.Validate()
Me.PorudzbineBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Porudzbine_DataSet)
Me.PorudzbineDetaljiTableAdapter.Update(Me.Porudzbine_DataSet)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try

End Sub

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
Me.SelectNextControl(Me.ActiveControl, True, True, True, False) 'for Select Next Control
End If
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Porudzbine_DataSet.PorudzbineDetalji' table. You can move, or remove it, as needed.
Me.PorudzbineDetaljiTableAdapter.Fill(Me.Porudzbine_DataSet.PorudzbineDetalji)
'TODO: This line of code loads data into the 'Porudzbine_DataSet.Relacije' table. You can move, or remove it, as needed.
Me.RelacijeTableAdapter.Fill(Me.Porudzbine_DataSet.Relacije)
'TODO: This line of code loads data into the 'Porudzbine_DataSet.Kupci' table. You can move, or remove it, as needed.
Me.KupciTableAdapter.Fill(Me.Porudzbine_DataSet.Kupci)
'TODO: This line of code loads data into the 'Porudzbine_DataSet.Porudzbine' table. You can move, or remove it, as needed.
Me.PorudzbineTableAdapter.Fill(Me.Porudzbine_DataSet.Porudzbine)

End Sub

Private Sub NazivComboBox_LostFocus(sender As Object, e As EventArgs) Handles NazivComboBox.LostFocus
Dim id_dm As New Porudzbine_DataSetTableAdapters.KupciTableAdapter

Try
KupacIDTextBox.Text = id_dm.id_dm_ScalarQuery(NazivComboBox.Text)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

Private Sub PorudzbineDetaljiDataGridView_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles PorudzbineDetaljiDataGridView.CellEndEdit

Dim naziv_proizvoda As New Porudzbine_DataSetTableAdapters.ProizvodiTableAdapter

If e.ColumnIndex = 0 Then

If Val(PorudzbineDetaljiDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) > 0 Then
PorudzbineDetaljiDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = naziv_proizvoda.NazivProizvoda_ScalarQuery(CInt(Val(PorudzbineDeta
ljiDataGridView.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)))

End If

End If

End Sub

End Class
↑  ↓

#2 08.03.2018 15:26
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,863


Predmet:Re: Enter kao tab u DataGridView kako?
Eve ti cod za ovaj problem :

na onKey_Down stavi go ova

PreuzmiIzvorni kôd (Visual Basic):
  1. If KeyCode = vbKeyReturn Then
  2.      SendKeys "{TAB}"
  3.      'CreateObject("WScript.Shell").SendKeys "{TAB}", True
  4.  End If

Ova e za VB6 i VBA

Eve za vb Net

PreuzmiIzvorni kôd (vbnet):
  1.  If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
  2.         SendKeys.Send("{TAB}")
  3.         e.Handled = True
  4.     End If
Ovaj post je ureden 1 puta. Posljednja izmjena 08.03.2018 15:29 od strane Gjoreski. ↑  ↓

#3 08.03.2018 15:56
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: Enter kao tab u DataGridView kako?
Neće. NeÅ¡to ne Å¡tima. I dalje posle unosa ili pregleda na prvo polje ide red ispod i tako dalje.
↑  ↓

#4 08.03.2018 18:13
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,863


Predmet:Re: Enter kao tab u DataGridView kako?
gde si stavio funkcija?

Proveri dali na onKey_Down nastan kad udaris enter nesto se dogadza na primer stavi msgbox

PreuzmiIzvorni kôd (vbnet):
  1.  If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
  2.         'SendKeys.Send("{TAB}")
  3.         MessageBox.Show("OK")
  4.         e.Handled = True
  5.     End If
↑  ↓

#5 09.03.2018 08:15
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: Enter kao tab u DataGridView kako?
Javlja mi grešku

e.keychar is not a member of system.windows.forms.KeyEventArgs

probao sam na Private Sub PorudzbineDetaljiDataGridView_KeyPress ali se ne deÅ¡ava niÅ¡ta. Ide red dole umesto sledeće polje.
↑  ↓

#6 09.03.2018 10:57
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,863


Predmet:Re: Enter kao tab u DataGridView kako?
Moras setirati DataGridView.EditMode kao EditOnEnter da bi radio ova :
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub dgvMyGrid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dgvMyGrid.KeyDown
  2.     Select Case e.KeyCode
  3.         Case Keys.Enter
  4.             e.Handled = True
  5.             SendKeys.Send("{TAB}")
  6.         End Select
  7.     End Sub
↑  ↓

#7 09.03.2018 10:59
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,863


Predmet:Re: Enter kao tab u DataGridView kako?
Eve uste edno resenie probaj go i ova

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Const WM_KEYDOWN = &H100
  2.  
  3. Protected Overrides Function ProcessKeyPreview(ByRef m As System.Windows.Forms.Message) As Boolean
  4. Dim keyCode As Keys = CType(m.WParam.ToInt32() And Keys.KeyCode, Keys)
  5. If m.Msg = WM_KEYDOWN And keyCode = Keys.Enter Then
  6. SendKeys.Send("{TAB}")
  7. Return True
  8. End If
  9. Return MyBase.ProcessKeyPreview(m)
  10. End Function
↑  ↓

#8 09.03.2018 11:09
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: Enter kao tab u DataGridView kako?
Opet ide red ispod.
↑  ↓

#9 09.03.2018 11:28
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: Enter kao tab u DataGridView kako?
Hajde da pitam... Možda ovo Å¡to radim nije ispravno. DataGridView sam stavio da mi bude kao u access subforma. U prvom polju (1) unosim Å¡ifru proizvoda u drugom (2)mi automatski izlazi naziv proizvoda (to polje bi trebalo da preskočim i fokus da stavim na sledeće polje), (3) polje je za komade, (4) transportna pakovanja i (5) težina. Polja 3, 4 i 5 su numerička i tu se unosi ili komadi ili kutije ili težina.
↑  ↓

#10 09.03.2018 11:54
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,863


Predmet:Re: Enter kao tab u DataGridView kako?
Ne bi trebalo biti problema.Ja kod mene isto tako radim samo razlikaje sto ne koristim standardni grid neko imam drugi grid.
Ovaj grid koj ja ga koristim ne radi vo vb.Net.
Znam da moze ova da se resi i sa standardni gridovi,100% nesto si propustio.
Nemam ja instalirano vb.Net da mogu da probam.
↑  ↓

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 36 am.