Come modificare puntatore del mouse in Visual Basic 6

December 22

Come modificare puntatore del mouse in Visual Basic 6


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

istruzione

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 passaggio del mouse.

3 Digitare la successiva riga di codice:
MyText.MousePointer = vbHourglass
Questo produrrà il puntatore del mouse clessidra quando il mouse passa sopra la casella di testo MyText.

4 Chiudere la subroutine con la seguente riga:
End Sub
È codice dovrebbe piace:
Private Sub MyText_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
MyText.MousePointer = vbHourglass
End Sub

Consigli e avvertenze

  • Per aggiungere un'icona personalizzata, utilizzare il seguente codice:
  • 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
  • La "C: \ Windows \ Cursors \ hmove.cur" è la posizione del file .cur che si desidera utilizzare. Ricorda che "vbHourglass" è una funzione e non un'icona. Si intende l'quando Windows normalmente utilizzare l'icona della clessidra, si userà l'icona del personale invece.