Ve VB6 byl podprogram události, jako Button1_Click, mnohem méně komplikovaný, protože systém nazýval subrutinu přísně jménem. Pokud existovala událost Button1_Click, systém ji nazval. Je to přímé a přímé.
Ve VB.NET však existují dvě hlavní aktualizace VB.NET SOOPercharged (to je "OOP" pro Objektově orientované programování).
- Klauzule "Popisy" řídí, zda systém volá podprogram, nikoli název.
- Parametry odesílatele a e jsou předávány do podprogramu.
Použití parametrů
Podívejme se na jednoduchý příklad, abychom viděli rozdíl, který parametry dělají ve VB.NET.
Private Sub Button1_Click (
Odesílatel ByVal jako systém. Objekt,
ByVal e As System. EventArgs
) Popisovač Button1.Click
"Váš kód jde sem."
End Sub
Podprogramy událostí vždy obdrží objekt "odesílatele" a systémový parametr EventArgs "e". Protože parametr EventArgs je objekt, podporuje všechny potřebné vlastnosti a metody. Například starý podprogram události VB6 MouseMove slouží k přijetí čtyř parametrů:
- Tlačítko jako celé číslo
- Shift As Integer
- X jako singl
- Y jako svobodný
Když vyšly pokročilejší myši s více knoflíky, měl VB6 skutečný problém s jejich podporou. VB.NET předává pouze jeden parametr MouseEventArgs, ale podporuje mnohem více vlastností a metod. A každý z nich jsou objekty, které ještě více podporují. Například e. Vlastnost button obsahuje všechny tyto vlastnosti:
- Vlevo, odjet
- Střední
- Že jo
- Žádný
- XButton1
- XButton2
Pokud někdo vymyslí „transcendentní“ myš pomocí tlačítka „virtuální“, bude VB.NET muset pouze aktualizovat .NET Framework, aby ji podporoval, a v důsledku toho se nezlomí žádný předchozí kód.
Existuje řada technologií .NET, které na těchto parametrech naprosto závisí. Například protože váš počítač má obvykle pouze jednu obrazovku pro zobrazení grafiky, váš kód musí sloučit grafiku, kterou vytvoří, do stejného obrazu, jaký používá Windows. Z tohoto důvodu musí být sdílen jeden „grafický“ objekt. Hlavním způsobem, jak je váš kód schopen použít tento „grafický“ objekt, je použít parametr e, který je předán události OnPaint s objektem PaintEventArgs.
Chráněné potlačení Sub OnPaint (
ByVal e As System. Okna. Formuláře. PaintEventArgs)
Dim g As Graphics = e. Grafika
Další příklady
Co jiného s těmito parametry můžete udělat? Pro ilustraci předpokládejme, že chcete zjistit, zda řetězec, možná něco, co jste zadali do textového pole, existuje v některé z kolekcí jiných textových polí, když na něj kliknete. Pro každé textové pole byste mohli kódovat několik desítek prakticky identických podprogramů:
Pokud TextBox42.Text. IndexOf (
SearchString. Text) = -1
Pak NotFound. Text =
"Nenalezeno"
Je však mnohem snazší kódovat pouze jednu a nechat ji zpracovat všechny. Parametr odesílatele odhalí, na které textové pole bylo kliknuto.
Private Sub FindIt (
Odesílatel ByVal jako systém. Objekt,
ByVal e As System. EventArgs
) Popisovače TextBox1.Enter,
TextBox2.Enter,
... a dál a dál.. .
TextBox42.Enter
Dim myTextbox As TextBox
myTextbox = odesílatel
Dim IndexChar As Integer =
myTextbox. Text. IndexOf (
SearchString. Text)
Pokud IndexChar = -1 Pak _
Nenalezeno. Text = "Nenalezeno" _
Jinak _
Nenalezeno. Text = "Nalezeno!"
End Sub
Nedávno mě programátor požádal o lepší způsob, jak „odstranit řádek, na který bylo kliknuto v kterémkoli ze šesti určených seznamů“. Nechal to pracovat v několika desítkách řádků kódu, které mě prostě zmátly. Ale pomocí odesílatele to bylo opravdu docela jednoduché:
Soukromý dílčí seznamBox_Click (
Odesílatel ByVal jako objekt,
ByVal e As System. EventArgs
) Popisy ListBox1.Click, ListBox2.Click
Dim myListBox jako nový ListBox
myListBox = odesílatel
myListBox. Položky. RemoveAt (myListBox. SelectedIndex)
End Sub
Dalším příkladem toho, jak to zmírnit, je otázka, kterou zaslal Pierre v Belgii. Pierre testoval rovnost Button1 a odesílatele pomocí Je operátor pro objekty:
Pokud je odesílatel Button1, pak ...
Toto je syntakticky správné, protože odesílatel i Button1 jsou oba objekty, na které lze odkazovat. A protože odesílatel je skutečně totožný s Button1, proč to nefunguje?
Odpověď závisí na klíčovém slově, které se nachází ve výpisu o něco dříve. Nejprve se podívejme na dokumentaci společnosti Microsoft Je operátor.
Visual Basic porovnává dvě referenční proměnné objektu s operátorem Is. Tento operátor určí, zda dvě referenční proměnné odkazují na stejnou instanci objektu.
Všimněte si, že odesílatel je předán ByVal. To znamená, že je předána kopie Button1, nikoli samotný objekt. Takže když Pierre testuje, zda jsou odesílatel a Button1 stejná instance, výsledkem je False.
Chcete-li otestovat, zda bylo klepnuto na Button1 nebo Button2, musíte změnit odesílatele na skutečný Button objekt a poté otestovat vlastnost tohoto objektu. Text se obvykle používá, ale můžete otestovat hodnotu ve značce nebo dokonce ve vlastnosti Location.
Tento kód funguje:
Dim myButton As Button
myButton = odesílatel
Pokud myButton. Text = "Button1" Pak