Publicado por: euchuma | 24 janeiro 2008

Tutorial 6 – Utilizando o Inking Support do Silverlight com o Visual Studio 2008

Tutorial 6 – Utilizando o Inking Support do Silverlight com o Visual Studio 2008

tut6_2.gif

Download completo do exemplo

1- Para construirmos nosso exemplo vamos precisar ter instalado em nosso computador o

– Microsoft Visual Studio 2008
– Microsoft Silverlight Tools Alpha for Visual Studio 2008
– E claro o plug-in Silvelight 1.1 Alpha
2- Abra o Visual Studio 2008  vá no menu File -> New -> Project -> Visual Basic -> Silverlight -> SilverLight Project e dê o nome “inksilverlight” para o projeto.

tut6_1.gif
Figura: Criando um projeto Silverlight no Visual Studio 2008
3- Abra o arquivo Page.xaml e insira o seguinte código antes de </Canvas>:

 <InkPresenter x:Name=”inkP” Background=”Gray” Width=”600″ Height=”400″></InkPresenter>
4- Abra o Page.xaml.vb e deixe o código como abaixo:

Partial Public Class Page
    Inherits Canvas

    Dim s As Stroke

    Public Sub Page_Loaded(ByVal o As Object, ByVal e As EventArgs)
        ‘ Required to initialize variables
        InitializeComponent()

    End Sub

    Private Sub inkP_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles inkP.MouseLeftButtonDown
        ‘ Start capture mouse movevement and drawing
        inkP.CaptureMouse()
        ‘ Create stroke object
        s = New Stroke
        s.StylusPoints.AddStylusPoints(e.GetStylusPoints(inkP))
        ‘ Set stroke color to red
        s.DrawingAttributes.Color = Colors.Red
        ‘ Set stroke width to 15
        s.DrawingAttributes.Width = 15
        inkP.Strokes.Add(s)
    End Sub

    Private Sub inkP_MouseLeftButtonUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles inkP.MouseLeftButtonUp
        ‘ Stop drawing
        s = Nothing
    End Sub

    Private Sub inkP_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Input.MouseEventArgs) Handles inkP.MouseMove
        ‘ Drawing in mouse move
        If s IsNot Nothing Then
            s.StylusPoints.AddStylusPoints(e.GetStylusPoints(inkP))
        End If
    End Sub

End Class
5- Teste o projeto com menu Debug -> Start Without Debugging (Ctrl + F5) e veja o resultado 

tut6_2.gif
Figura: Testando o projeto


Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Categorias

%d blogueiros gostam disto: