Aprire il programma Visual Basic . Accedere alla finestra di codice
2
Aprire la funzione Form_MouseMove e digitare quanto segue: .
Form1.MousePointer = vbCrosshair
Quando l'utente posiziona il puntatore del mouse sul modulo , il cursore predefinito cambia di un mirino
3
aprire la funzione Label1_MouseMove e digitare quanto segue: .
Label1.MousePointer = vbSizeNS
Quando il utente si posiziona oltre Label1 (assumendo questo controllo esiste sul modulo ) , il cursore predefinito modifiche a una freccia che punta a nord e sud. Questo sostituisce il cursore a croce che viene visualizzato sul resto del modulo
4
Aprire la funzione Label2_MouseMove e digitare quanto segue: .
Label2.MouseIcon = LoadPicture ( " C : \\ MyCursor . cur " ) per
Label2.MousePointer = vbCustom
Quando l'utente posiziona oltre Label2 ( supponendo questo controllo esiste sul modulo ) , il cursore predefinito trasforma in un cursore personalizzato fornito nella funzione LoadPicture . Assicurarsi che il percorso nella lista dei parametri corrisponde in cui è stato salvato il file di cursore .
Programmazione © www.354353.com