Treść książki
Przejdź do opcji czytnikaPrzejdź do nawigacjiPrzejdź do informacjiPrzejdź do stopki
1030ModeleprogramowaniaaplikacjiUWP
21
PoutworzeniuprojektuHelloWorldVBnietrudnozauważyć,żedefnicjagłównego
widokuaplikacjiskładasięterazzplikówMainPage.xamlorazMainPage.xaml.vb.
PierwszyznichzawierakodXAML,adrugilogikęaplikacjiimplementowanąwjęzyku
VisualBasic.Wobectegodefnicjainterfejsuużytkownikabędziewyglądałaniemal
identyczniejaktaprzedstawionanalistingu1.1.Jedynezmianydotycząatrybutów
x:Class
oraz
xmlns:local
znacznika
Page
.Musząonebowiemwskazywaćna
odpowiedniąklasęorazprzestrzeńnazw,którezostałyautomatycznieustalonepod-
czastworzeniaprojektu.Odpowiedniewartościtychatrybutówzostaływyróżnione
nalistingu1.3.
Listing1.3.FragmentplikuMainPage.xamlprojektuHelloWorldVB
<Page
x:Class="HelloWorldVB.MainPage"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:local="using:HelloWorldVB"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/&
markup-compatibility/2006"
mc:Ignorable="d">
<!--DalszaczęśćidentycznajakwListingu1.1-->
SytuacjaniewyglądajużtakprostowprzypadkuplikuMainPage.xaml.vb(listing1.4),
którywymagawiększejilościzmian.Wynikatooczywiściezezmianyjęzykawyko-
rzystywanegodoimplementacjilogikiaplikacji.Jednakogólnastrukturapoleceńjest
analogicznadoprzedstawionejnalistingu1.2.Podobniejakwprzypadkuimple-
mentacjiopierającejsięnajęzykuC#,wyświetlenieoknadialogowegorealizujesię,
wykorzystującklasę
MessageDialog
.Jejkonstruktorwyglądaanalogicznie,aróżnice
semantycznewynikajągłówniezzastosowaniasłówkluczowych,specyfcznychdla
językaVB.
Uruchomienieaplikacjinastępujeidentyczniejakwpoprzednimpodrozdziale
i,cozatymidzie,równieżwynikdziałaniaaplikacjibędzietakisam.
Listing1.4.ZawartośćplikuMainPage.xaml.vb
ImportsWindows.UI.Popups
PublicNotInheritableClassMainPage
InheritsPage
PrivateAsyncSubButton_Click(senderAsObject,&
eAsRoutedEventArgs)
DimmessageDialog=New&
MessageDialog("Czyjesteśpełnoletni?","PWN")
DimcommandInvokedHandler=New&
UICommandInvokedHandler(AddressOfCommandClick_Handler)
