Agenda con efectos especiales y Archivos. Visual Basic.Net 2012 - 2013.

Aplicacion de una agenda, manejando archivos, podria ser modificado con base de datos. Tiene efectos especiales con graficos.

 En ejecucion:

  

Se puede agrandar la imagen:

 

La opcion imprimir:

Codigo fuente:

 Private Sub DrawComponenten(ByVal Gr1, ByVal pic1)
        Dim f As Font = New Font("Arial", 10, FontStyle.Bold)
        Dim ff As Font = New Font("Arial", 20, FontStyle.Bold)
        Dim br1 As SolidBrush = New SolidBrush(Color.FromArgb(0, 0, 0))
        Dim br2 As SolidBrush = New SolidBrush(Color.FromArgb(0, 220, 220))
        Xcenter = Me.Width / 2
        Ycenter = Me.Height / 2
        Label1.Text = "Bienvenido a Photo Diseño Studio"
        Label2.Text = "Imagen original"
        Gr1.DrawString(Label1.Text, ff, br1, Xcenter - (Label1.Width / 2) - 2, 23)
        Gr1.DrawString(Label1.Text, ff, br2, (Xcenter - (Label1.Width / 2)) + 2, 27)
        Gr1.DrawString(Label2.Text, f, br1, (Xcenter - (Label2.Width / 2)), 65)
        Me.BackPic.Image = pic1
        Label3.Top = 150 : Label3.Left = 40
        PictureBox1.Top = 170
        PictureBox1.Left = 40
        PictureBox1.Width = 700
        PictureBox1.Height = 500
        PictureBox2.Top = 200
        PictureBox2.Left = 70
        PictureBox2.Width = 640
        PictureBox2.Height = 440
        RightPic.Top = 170
        RightPic.Left = 740
        RightPic.Width = 40
        RightPic.Height = 500
        BottomPic.Top = 670
        BottomPic.Left = 40
        BottomPic.Width = 740
        BottomPic.Height = 40
    End Sub

Solicitar codigo fuente a:

cgprognet@hotmail.com

cgprognet@gmail.com

Costo del codigo fuente: 40 soles