Visual Basic (VB) è considerato un linguaggio di programmazione molto facile da imparare. Visual Basic è un derivato del vecchio linguaggio di programmazione Basic DOS. Visual Basic 6.0 è stato rilasciato nel 1998, e Microsoft ha interrotto il supporto per questa versione nel marzo 2008. NET è la versione più recente della famiglia Visual Basic e ora è semplicemente chiamato Visual Basic. Questo articolo si concentra sul comando mouseover per una casella di testo. Con piccole modifiche al codice, funziona per tutti i comandi del mouse.

Istruzioni

1

Aprire Visual Basic 6.0.

2

Digitare il seguente codice:
Private Sub MyText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MyText è il nome della casella di testo che si farà il mouseover.

3

Digitare la seguente riga di codice:
MyText.MousePointer = vbHourGlass
Questo produrrà il puntatore del mouse a forma di clessidra quando il mouse passa sopra la casella di testo MyText.

4

Chiudere la subroutine con la seguente riga:
End Sub
Codice si deve come:
Private Sub MyText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MyText.MousePointer = vbHourGlass
End Sub

Consigli & Avvertenze

• Per aggiungere un'icona personalizzata, utilizzare il codice riportato di seguito:
• Private Sub MyText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
• MtText.MouseIcon=LoadPicture("C:\Windows\Cursors\hmove.cur")
• MyText.MousePointer = vbHourGlass
• End Sub
• Il "C:\Windows\Cursors\hmove.cur" è il percorso del file cur che si desidera utilizzare. Ricordate che "vbHourGlass" è una funzione e non un'icona. Si sta affermando che quando Windows normalmente sarebbe utilizzare l'icona a forma di clessidra, utilizzerà l'icona personale.