Aperte 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 in cui si farà il mouseover
3
Tipo la successiva riga di codice : . MyText.MousePointer = vbHourGlassThis produrrà il puntatore del mouse clessidra quando il mouse passa sopra la casella di testo MyText
4
Chiudere il sottoprogramma con la seguente riga : . End codice SubYou vorrei : MyText_MouseMove private Sub ( Button As Integer , shift As Integer , X As Single , Y As Single ) MyText.MousePointer = vbHourGlassEnd Sub
Programmazione © www.354353.com