Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Office Access a zvoľte " Prázdna databáza , " kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " . " . Modul " Kliknite na " Vložiť " menu a vyberte
2
Zadajte nasledujúci vytvoriť nový podprogram :
Private Sub changeCursor ( )
Stlačte " . Zadajte "
3
Zadajte nasledujúce volať " " funkciu a zmení kurzor na " assignCursorVal Aj Beam " :
assignCursorVal ( 3 )
stránka 4
Zadajte nasledujúce volanie funkcie " assignCursorVal " a zmeniť kurzor na " Vertikálne dvojitá šípka " :
assignCursorVal ( 7 )
5
Typ nasledujúce volanie funkcie " assignCursorVal " a zmeniť kurzor na " Horizontálne dvojitá šípka " :
assignCursorVal ( 9 )
6
Zadajte nasledujúce volať " assignCursorVal " funkcie a zmeniť kurzor na " Hour Glass " :
assignCursorVal ( 11 )
7
Zadajte nasledujúce volanie funkcie " assignCursorVal " a zmeniť kurzor na štandardný ukazovateľ :
assignCursorVal ( 1 )
8
Zadajte nasledujúci vytvoriť " assignCursorVal " podprogram :
Private Sub assignCursorVal ( pntrNum As Integer )
Screen.MousePointer = pntrNum
End Sub
Stlačte " F5 " spustiť podprogram .