roko
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka
Predmet:
Re: Jel se može ovo ??
Preuzmi
Izvorni kôd (Visual Basic):
Public
Sub
OnNavigateRecord(ctl
As
IRibbonControl)
On
Error
GoTo
errorhend
Dim
prov
As
Object
Dim
prova
As
Variant
Set
prov = Screen.ActiveReport
'(acHiddenCurrentPage)
prova = prov.count
'''''''''''''''' to moras nac
Select
Case
ctl.ID
Case
"btnDesno"
: SendKeys
"{RIGHT}"
,
True
Case
"btnLijevo"
: SendKeys
"{LEFT}"
,
True
Case
"btnPocetak"
Do
Until
prova = 0
prova = prova - 1
SendKeys
"{LEFT}"
,
True
Loop
SendKeys
"%{Z}"
,
True
Case
"btnkraj"
Do
Until
prova = 0
SendKeys
"{RIGHT}"
,
True
prova = prova - 1
Loop
SendKeys
"%{Z}"
,
True
End
Select
Exit
Sub
errorhend:
MsgBox
"Koncentracije malo... "
, vbCritical,
"Upozorenje"
End
Sub
Ovaj post je ureden
1
puta. Posljednja izmjena 12.12.2010 09:27 od strane zxz.