[ vb 2008 ] WPF 예제 본문

[PL]/VB & VB.NET

[ vb 2008 ] WPF 예제

객과 함께. 2010. 1. 2. 01:48

   Class Window1

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Dim a As String
        a = CStr(TextBox1.Text)
        Label1.Content = a
        TextBox1.Text = ""
    End Sub

    Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
      

  Button1.Content = "확  인"     
        Button2.Content = "종  료"
        Label1.Content = ""

        Me.Title = "첫 WPF 프로그램 "
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button2.Click
        Me.Close()
        End
    End Sub
End Class

 

XAML SOURCE :

<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Window1" Height="147" Width="276" Name="Window1" AllowDrop="False">
    <Grid Height="110" Name="Grid1" Width="253">
        <Grid.RowDefinitions>
            <RowDefinition Height="32*" />
            <RowDefinition Height="32*" />
            <RowDefinition Height="32*" />
        </Grid.RowDefinitions>
        <Grid.ColumnDefinitions>
            <ColumnDefinition Width="96*" />
            <ColumnDefinition Width="96*" />
            <ColumnDefinition Width="96*" />
        </Grid.ColumnDefinitions>
        <TextBox Grid.ColumnSpan="3" Margin="6,6,12,6" Name="TextBox1" />
        <Button Margin="46,6,55,4" Name="Button1" Grid.ColumnSpan="2" Grid.Row="2">Button</Button>
        <Label Grid.ColumnSpan="3" Grid.Row="1" Margin="6,2,6,0" Name="Label1">Label</Label>
        <Button Margin="72,6,29,4" Name="Button2" Grid.Column="1" Grid.ColumnSpan="2" Grid.Row="2">Button</Button>
    </Grid>
</Window>


 

 

 

 

 

 

첫번째 WPF 예제 텍스트.zip
0.12MB