Ako si vyrobiť tlačidlo myši udalostí pomocou jazyka Visual Basic

Pokiaľ ide o myši udalostí v jazyku Visual Basic , veľa práce a manipulácie je už urobil za vás . Väčšina ovládacích prvkov v jazyku Visual Basic majú " Click " , " MouseDown " a " " udalosti mouseUp , ktoré môžete použiť na ovládanie programu , keď používateľ klikne na tlačidlo myši . Tiež môžete použiť " MouseEventArgs " vlastnosti triedy poskytnúť dodatočné údaje o týchto udalostiach , ako je napríklad, ktoré tlačidlo myši užívateľ lisovaných alebo súradníc myši na formulári . Potom, čo vytvoríte nový projekt Visual Basic , môžete vykonať kliknutím myši udalosti v niekoľkými spôsobmi . Návod
Kliknite akcia
klipart 1

Dvakrát kliknite na tlačidlo " " kontrolu v paneli nástrojov pridať " Button1 " do formulára .
2

Double - kliknite na " Button1 " otvoriť " Button1_Click " okno kód
3

Zadajte nasledujúci príkaz : .

MsgBox ( " Vy ste klikli na tlačidlo " MsgBoxStyle.Information , " ! kliknite na tlačidlo " )

Keď používateľ klikne na tlačidlo Button1 , informačné okno s zobrazí správu . Nahradiť to s praktickým kódom , ako je napríklad volanie inej funkcie , meniace sa hodnoty v štítkov alebo textových poliach , alebo vyzve užívateľa pre viac informácií .
Myši hore a dole
4

Double - kliknite na " Label " kontrolu v paneli nástrojov pridať " Label1 " do formulára . Zmeňte jeho vlastnosť text k " Ste klikli na štítku . " Otvorte okno kód
5

Otvorte funkciu " Label1_MouseDown " a zadajte nasledujúci príkaz : .

Label1.Text = " . Tie sú v súčasnej dobe Kliknutím na štítku "

na štítku sa zobrazí táto správa , keď používateľ klikne na štítok
6

Otvorte funkciu " Label1_MouseUp " a zadajte nasledujúci príkaz : .

Label1.Text = " Zastavili ste kliknutím na štítku "

štítok zobrazuje túto správu , keď užívateľ uvoľní tlačidlo myši
7

Otvorte . " funkciu Label1_MouseLeave " a zadajte nasledujúci príkaz : .

Ak Label1.Text = " Zastavili ste Kliknutím na etikete . " Potom

Label1.Text = " Vy ste klikli na etikete . "

End If

štítok zobrazuje táto správa , ak používateľ už klikli na štítku a potom uvoľnení tlačidla myši , potom sa presunie ukazovateľ myši mimo štítku sám .
MouseEventArgs Trieda
8

Double - kliknite na " Label " kontrolu v paneli nástrojov šesťkrát až pridať šesť štítky do formulára s názvom " Label1 " na " Label6 . "
9

Usporiadať štítky zvisle na formulári tak , aby Label1 je na vrchole , a Label6 je na dne .

10

Otvorte funkciu " Form1_MouseClick " a zadajte nasledujúce :

Label1.Text = " Button " a e.Button.ToString

Label2.Text = " kliknutie : " a e.Clicks

Label3.Text = " X pozície : " & eX

Label4.Text = " pozícia Y : " & ey

Label5.Text = " Location : " a e.Location.ToString

Label6.Text = " Delta " a e.Delta

Keď používateľ klikne na formulári , každý MouseEventArgs vlastnosť sa zobrazí v jednom šesť štítky . To ukazuje , ktoré tlačidlo používateľ klikne , koľkokrát klikli to , súradnice x , súradnice x , xy - koordinuje spoločne a hodnota delta , ktorá sa počíta , koľkokrát sa otáča kolieskom myši . Prevod tlačidiel a umiestnenie vlastnosti strún umožňuje užívateľovi jasne vidieť hodnoty .

• Predchádzajúca strana: Ako pridať dve hodnoty v jazyku Visual Basic 
• Ďalšia strana: Ako tlačiť Array výstup v opačnom poradí v jazyku Visual Basic 6.0