Aprire Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare
2
Digitare quanto segue per creare un nuovo sottoprogramma "Modulo ". :
ChangeCursor Private Sub ( ) per
Press " Inserire "
3
digitare quanto segue per chiamare la " funzione " e modificare il cursore di un " assignCursorVal I Beam " : .
assignCursorVal ( 3 ) per
4
digitare quanto segue per richiamare la funzione " assignCursorVal " e modificare il cursore su un " Vertical Double Arrow " :
assignCursorVal ( 7 ) economici 5
Tipo quanto segue per chiamare la funzione " assignCursorVal " e cambiare il cursore su una " orizzontale Double Arrow " :
assignCursorVal ( 9 ) economici 6
Digitare quanto segue per chiamare il " assignCursorVal " funzione e cambiare il cursore su una " clessidra" :
assignCursorVal ( 11 ) economici 7
digitare quanto segue per richiamare la funzione " assignCursorVal " e modificare il cursore su un puntatore standard :
assignCursorVal ( 1 ) economici 8
digitare quanto segue per creare il sottoprogramma " assignCursorVal " :
private Sub assignCursorVal ( pntrNum As Integer ) per
Screen.MousePointer = pntrNum
End Sub
Premere " F5 " per eseguire la subroutine .
Programmazione © www.354353.com