Prikazi cijelu temu 13.07.2012 11:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Key preview
Ovo je vrlo interesantna stvar i malo sam sada to isprobavao i doÅ¡ao sam na ideju da pomoču ovog koda selektiram subforme na glavnoj formi. malo sam prepravio tvoj kod:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_KeyPress(KeyAscii As Integer)
  2. If Vrijeme = 0 Then
  3. Vrijeme = Timer
  4. End If
  5.  
  6. Vrijeme = Timer - Vrijeme
  7. If Chr(KeyAscii) = "A" Then
  8.     If Vrijeme < 0.5 Then
  9.     Vrijeme = Timer
  10.     Znak = Znak + KeyAscii
  11.     Else
  12.     Znak = 0
  13.     Vrijeme = 0
  14.     End If
  15. Else
  16.     Znak = 0
  17.     Vrijeme = 0
  18. End If
  19. End Sub
  20.  
  21. Private Sub Form_Timer()
  22.  
  23. Select Case Znak
  24.  
  25. Case 97, 65
  26. Forms!frmEvidencija.Form!frmRealizacijaSub.SetFocus
  27. MsgBox "Selektirana je subforma A"
  28.  
  29. End Select
  30. Znak = 0
  31. Vrijeme = 0
  32. End Sub

i stavio to na prvu subformu. Kada pritisnem tipku 'A' fokus se prebaci na drugu subformu. Ali sa druge subforme ne radi. Razlog je valjda Å¡to su u prvoj subformi sva polja zaljučana, a u drugoj nisu pa mi se znak A upisuje u textBox.
A i mislio sa ovo izvesti sa strelicama ili sa tabom ali neznam koji im je Ascii kod

Prilozi:
PrimjerKey.rar
Preuzimanja:263
Velicina datoteke:113.12 KB

Pozdrav