Afsløring som blev trykket på en mus , som brugeren kan give dig mere information om hvilke handlinger der skal tage i din Visual Basic -program. I VB næsten hver kontrol har " museklik " begivenhed , som udfører , når kontrollen er klikket af musen. Det er nyttigt at vide knappen nede for at vise yderligere information menuer eller besked bokse til brugeren. Du kan tilføje alle VB kode , du ønsker at udføre , når en museknap nede under " museklik " begivenhed . Ting du skal
Microsoft Visual Basic Express
Vis Flere Instruktioner
1
Start Microsoft Visual Basic Express , klik på " Nyt projekt ... " på den venstre rude på skærmen og derefter vælge "Windows Forms Application ". Klik på "OK " for at oprette en Windows Forms projekt.
2
Tilføj en tekstboks ved at dobbeltklikke på " TextBox " fra Toolbox rude.
3 < p > Højreklik på formularen, og klik på "Egenskaber ". Klik på " Arrangementer " ikonet , der ligner et lynnedslag . Rul ned og dobbeltklik på siden af " museklik " for at oprette et museklik begivenhed for formular . Gentag forrige trin for at tilføje et klik handling begivenhed for tekstboks
4
Kopier og indsæt følgende kode inde i " Form1_MouseClick " procedure : .
Select Case e.Button
Case Er = MouseButtons.Left
MessageBox.Show ( " Presset venstre museknap på formular ". )
Case Er = MouseButtons.Right
MessageBox.Show ( " Presset højre museknap på formular ". )
Case Er = MouseButtons.Middle
MessageBox.Show ( " Presset midterste museknap på formular ". )
< p> End Select
5
Kopier og indsæt følgende kode inde i " TextBox1_MouseClick " procedure : Hej
Select Case e.Button
Case Er = MouseButtons.Left
MessageBox.Show ( " Presset venstre museknap på tekstfeltet. " )
Case Er = MouseButtons.Right
MessageBox.Show ( " Presset højre museknap på tekst box ").
Case Er = MouseButtons.Middle
MessageBox.Show ( " Presset midterste museknap på tekstfeltet. " )
End Select
< br > 6
Tryk på " F5 " for at køre dit program og bruge alle museknap nede, mens du klikker på formularen eller tekstboksen. En besked boks vil blive genereret angiver museknappen nede .
