Prikazi cijelu temu 12.12.2010 03:21
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:Re: Jel se može ovo ??
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Sub OnNavigateRecord(ctl As IRibbonControl)
  2. On Error GoTo errorhend
  3.     Dim prov As Object
  4.    Dim prova As Variant
  5.   Set prov = Screen.ActiveReport '(acHiddenCurrentPage)
  6. prova = prov.count '''''''''''''''' to moras nac
  7.    Select Case ctl.ID
  8.     Case "btnDesno": SendKeys "{RIGHT}", True
  9.     Case "btnLijevo": SendKeys "{LEFT}", True
  10.  Case "btnPocetak"
  11.        Do Until prova = 0
  12.             prova = prova - 1
  13.             SendKeys "{LEFT}", True
  14.             Loop
  15.             SendKeys "%{Z}", True
  16. Case "btnkraj"
  17.         Do Until prova = 0
  18.             SendKeys "{RIGHT}", True
  19.             prova = prova - 1
  20.         Loop
  21.           SendKeys "%{Z}", True
  22. End Select
  23.  
  24. Exit Sub
  25. errorhend:
  26.  MsgBox "Koncentracije malo...  ", vbCritical, "Upozorenje"
  27. End Sub
Ovaj post je ureden 1 puta. Posljednja izmjena 12.12.2010 09:27 od strane zxz.