Prikazi cijelu temu 04.07.2013 09:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Datum + -
Ukoliko zelimo u nekom text polju sa datumom da mozemo mijenjati datum na vise i na nize sa tasterima + i - onda to mozemo napraviti na sledeci nacin.
Krerati formu i na formi jedan text box pod nazivom text1.
Na on loda forme staviti ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Form_Load()
  2. Me.Text1 = Date
  3. End Sub
Na KeyPress tekst polja staviti sledeci kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. Select Case KeyAscii
  3.     Case 43            ' Plus key
  4.        KeyAscii = 0
  5.         Screen.ActiveControl = Screen.ActiveControl + 1
  6.     Case 45            ' Minus key
  7.        KeyAscii = 0
  8.         Screen.ActiveControl = Screen.ActiveControl - 1
  9.     End Select
  10. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.