Başlangıç > Vb > vb universal app hello world

vb universal app hello world


Merhaba
universalapp
Bugün Universal App olarak bir Hello World uygulamamızı hazırlayacağız. Bildiğiniz gibi universal app her platformda çalışıyor(desktop,web, mobile ve Microsoft’un desteği olan her yerde xbox gibi). Bizde bugün sabit bir uygulama hazırlayalım. Öncelikli olarak projemizi oluşturalım ve bunun için Visual Studio da sırası ile File > New > Project > Installed > Templates > Visual Basic > Windows > Universal adımlarını takip edip, gelen ekrandan da Blank App(Universal Windows) seçeneği ile projemizi oluşturuyoruz. Oluşturduğumuz projenin örnek kodları aşağıdaki gibi olacaktır.
Uygulamamızın dizaynını yaptığımız MainPage.xaml içeriği.

[MainPage.xaml]

<Page x:Class="UniversalAppVb.MainPage" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:local="using:UniversalAppVb" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d">

    <Grid Background="{ThemeResource ApplicationPageBackgroundThemeBrush}">
        <TextBox x:Name="txtHelloWorld" HorizontalAlignment="Left" Margin="10,10,0,0" TextWrapping="Wrap" Text="Hello World" VerticalAlignment="Top" Height="178" Width="340" FontSize="30" TextAlignment="Center"/>
        <Button x:Name="btnHelloWorld" Content="Hello World" HorizontalAlignment="Left" Margin="10,355,0,0" VerticalAlignment="Top" Height="51" Width="340" FontSize="30" Click="btnHelloWorld_Click"/>
    </Grid>
</Page>

Dizayn ettiğimiz uygulamamızın kontrolleriniz yazdığımız MainPage.xaml.vb içeriği

[MainPage.xaml.vb]

' The Blank Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=402352&clcid=0x409
Imports Windows.UI.Popups
'''
<summary>
''' An empty page that can be used on its own or navigated to within a Frame.
''' </summary>

Public NotInheritable Class MainPage
    Inherits Page

    Private Async Sub btnHelloWorld_Click(sender As Object, e As RoutedEventArgs)
        txtHelloWorld.Text = "Windows Universal App, Hello World."
        Dim message As MessageDialog = New MessageDialog("Windows Universal App with Vb, Like it ? ")
        message.Title = "Hello World"
        message.Commands.Add(New UICommand("Yes"))
        message.Commands.Add(New UICommand("No"))

        Dim result = Await message.ShowAsync()
        If result.Label = "Yes" Then
            Dim msg As MessageDialog = New MessageDialog("Thank you very much :) ")
            msg.Title = "Thanks"
            msg.Commands.Add(New UICommand("Ok"))
            Await msg.ShowAsync()
        End If
    End Sub
End Class

Burada basit olarak bir ekran hazırladık ve içinde butona bastığımızda değişen bir mesaj ekleyip sonrasında ise kullanıcıya mesaj verip işlemi kontrol etmesini sağladık. Uygulama çalıştığında aşağıdaki gibi ekran görüntülerindeki gibi olacaktır.

universalappvb1

universalappvb2

universalappvb3

Burada dikkat etmemiz gereken bir konu var. Eğer işletim sisteminizde geliştirici seçenekleri aktif değil ise uygulamayı dizayn ederken uyarı alırız. Bu özelliği aktif etmek için Başlat > Ayarlar > Güncelleştirme ve güvenlik > Geliştiriciler için sekmesi altından Geliştirici modu seçeneğini aktif etmeliyiz. Bu ayarlamayı yaptıktan sonra ise uygulamamızı dizayn edip çalıştırabiliriz.

Projenin kaynak kodlarına üzerinden ulaşabilirsiniz.
Kolay gelsin.

Reklamlar
Kategoriler:Vb Etiketler:, , , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: