Rilevamento quale pulsante è stato premuto su un mouse da parte dell'utente può dare maggiori informazioni sulle azioni da intraprendere nel programma Visual Basic . In VB quasi ogni controllo ha l'evento " MouseClick ", che viene eseguito quando il controllo si fa clic con il mouse. E ' utile sapere premuto per visualizzare ulteriori informazioni come i menu o finestre di messaggio per l'utente del pulsante . È possibile aggiungere qualsiasi codice VB che si desidera eseguire quando un pulsante del mouse premuto sotto l'evento " MouseClick " . Cose che ti serviranno
Microsoft Visual Basic Express
Mostra più istruzioni
1

Avviare Microsoft Visual Basic Express , fare clic su " Nuovo progetto ... " nel riquadro sinistro dello schermo , quindi selezionare " Applicazione Windows Form ". Fare clic su " OK " per creare un progetto Windows Forms.
2

Aggiungere un controllo casella di testo facendo doppio clic su " TextBox " dal pannello degli strumenti.
3 < p > Fare clic con il modulo e fare clic su "Proprietà ". Fare clic sull'icona "Eventi" che assomiglia a un colpo di fulmine . Scorrere verso il basso e fare doppio clic su accanto a " MouseClick " per creare un evento click del mouse per il modulo . Ripetere il passaggio precedente per aggiungere un evento azione clicca per il controllo casella di testo
4

Copia e incolla il seguente codice all'interno della procedura " Form1_MouseClick " : .

Select e.Button Caso

Case Is = MouseButtons.Left

MessageBox.Show ( " Premuto il pulsante sinistro del mouse sul modulo . " ) per

Case Is = MouseButtons.Right

MessageBox.Show (" Premuto il pulsante destro del mouse sul modulo . " ) per

Case Is = MouseButtons.Middle

MessageBox.Show ( " pulsante centrale del mouse sul modulo stampato . " ) per < p > End Select
5

Copia e incolla il seguente codice all'interno della procedura " TextBox1_MouseClick " :

Select Case e.Button

caso è = MouseButtons.Left

MessageBox.Show ( " Premuto il tasto sinistro del mouse sulla casella di testo. " ) per

Case Is = MouseButtons.Right

" Premuto il pulsante destro del mouse sul testo MessageBox.Show ( scatola . " ) per

Case Is = MouseButtons.Middle

MessageBox.Show ( " pulsante centrale del mouse sulla casella di testo stampato . " ) per

End Select
< br > 6

Premere " F5 " per eseguire il programma e utilizzare un pulsante del mouse mentre si clicca il modulo o la casella di testo . Una finestra di messaggio viene generato indicando il pulsante del mouse premuto .