Prikazi cijelu temu 12.07.2018 00:39
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Validacija podataka
Evo
PreuzmiIzvorni kôd (Visual Basic):
  1.  
  2.  
  3.  
  4. Private Sub Text0_Click()
  5.  If Text0.Tag = True Then
  6.     Text0.Tag = False
  7.     Text0.SelStart = 0
  8.     Text0.SelLength = 0
  9.     'Text0.SelLength = Len(Text0)   ' Ovo se koristi ako zelis da se selektira cel tekst
  10.  End If
  11. End Sub
  12.  
  13. Private Sub Text0_GotFocus()
  14.   Text0.Tag = True
  15.   Text0.SelStart = 0
  16.   Text0.SelLength = 0
  17.   'Text0.SelLength = Len(Text0)    ' Ovo se koristi ako zelis da se selektira cel tekst
  18. End Sub
  19.  
  20. Private Sub Text0_KeyUp(KeyCode As Integer, Shift As Integer)
  21.   Text0.Tag = False
  22. End Sub