[ vb 2008 ] Ellipse 예제

참고 사이트 : taedi.kr

자세한 설명은 위의 사이트에서 참고 하시면 될 듯......

<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="506" Width="551">
    <Grid>
        <Ellipse Height="373" Name="Ell" Stroke="Red" Width="373" MouseEnter="Ell_MouseEnter"
             MouseLeave="Ell_MouseLeave" />
    </Grid>
</Window>

 

Imports System
Imports System.Windows

Class Window1  
    Private Sub Window1_MouseEnter(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseEnter

        ell.Fill = Brushes.Red
    End Sub

    Private Sub Window1_MouseLeave(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles Me.MouseLeave
     
        ell.Fill = Brushes.Blue
    End Sub

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

Ariicle Writer : 정태호 님

1차 수정일 : 2010.01.05  수정자 : 객