Esta vez deseo presentarles un programilla que tiene la funcionalidad de un Editor de Texto. Debo decirles que el presente viene a constituir la versión beta; bueno, decidí llamarlo así debido a que "falta" agregar algunas funcionalidades muy básicas las cuales serán implementadas más adelante en la versión totalmente completada... ok.? Sin embargo, esta versión reune toda la funcionalidad para que usted pueda editar texto de una manera cómoda y amigable. Incluye funcionalidades que le permitirá, por ejemplo, copiar, pegar y cortar texto. Además, podrá abrir documentos txt y rtf, editarlos y guardar los cambios como también configurarlos e imprimirlos rápidamente.

Debo recomendarle que previamente debe conocer muchos conceptos sumamente importantes en la construcción de aplicaciones MDI y SDI. Bueno, si no entiende esto, no corra!...porque a continuación le explicaré estas cosillas. También debe conocer todo respecto a cuadros de diálogos comunes y el control RichTextBox, todo esto le explico a continuación.

Empezemos primero por entender que es una aplicación MDI y una aplicación SDI.

Utilizar el Patron Singleton con formularios MDI

En dias anteriores estaba creando una aplicación en la cual requería crear una sola instancia de los formularios hijos de una MDI padre. Buscando en la documentación de Microsoft encontré este Pattern llamado Singleton. Acá les muestro una sencilla implementación en formularios MDI para tener solamente una instancia abierta por formulario. Lo primero que hay que hacer es modificar el constructor del formulario hijo, o sea, el formulario que queremos que solo tenga una instancia en la aplicación. En este constructor inicialmente aparece como publico (public).

#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    .....
Lo modificaremos y lo haremos privado (private) para evitar llamados a este formulario.

#Region " Windows Form Designer generated code "
    Private Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    .....   

  

Luego lo que haremos será crear una variable global en este mismo formulario hijo para que controle
 la instancia y la haremos shared para que pueda ser accesada desde el formulario padre.

'Variable global
Private Shared frmInstance As frmReport = Nothing

Finalmente crearemos una función shared que será la que finalmente controlara la creación o manejo
de la instancia del formulario, logrando obtener solo un formulario abierto para este form1.
   
   
    

'Funcion que crea una sola instancia del form1
Public Shared Function Instance() As form1
   
   
    If frmInstance Is Nothing OrElse frmInstance.IsDisposed = True Then
        frmInstance = New form1
   
   
    End If
   
    frmInstance.BringToFront()
   
   
    Return frmInstance
End Function

Ahora en el padre escribiremos el llamado al hijo para crear la instancia, o si ya esta creada, entonces pondrá el formulario hijo en
frente para que lo podamos ver.

Dim frmHijo as form1 = form1.Instance
frmHijo.MdiParent = Me
frmHijo.Show

Las aplicaciones de interfaz con múltiples documentos (MDI) le permiten mostrar múltiples documentos al mismo tiempo con cada documento que aparece en su ventana propia. Las aplicaciones MDI con frecuencia tienen un elemento del menú de Windows con submenús para cambiar entre ventanas y documentos. El fundamento de una Aplicación con interfaz de múltiples documentos (MDI) es el formulario primario MDI. Este es el formulario que contiene las ventanas secundarias MDI, que son las "sub-ventanas" en donde el usuario interactúa con la aplicación MDI.

Para establecer un formulario como primario MDI, configure la propiedad IsMdiContainer = True.
Para crear un formulario secundario MDI nuevo tiene que configurar la propiedad a MdiParent.

Las aplicaciones con interfaz de un único documento (SDI) están formadas por una o más ventanas independientes, cada una de las cuales aparece como ventana independiente en el escritorio de Windows. Microsoft Exchange es un ejemplo de una aplicación SDI, en la que cada mensaje que abra aparece en su propia ventana independiente.

VB .NET

… 



Protected Sub MDIChildNew_Click( _
   
    
    ByVal sender As System.Object, _
   
    
    ByVal e As System.EventArgs) Handles _
    MenuItem2.Click
   
    
    Dim NewMDIChild As New Form2
   
   
    
    'Configurar el Formulario primario de la Ventana secundaria. 
    

   
    NewMDIChild.MdiParent = Me 
    

   
   
    
    'Mostrar el nuevo formulario. 
    

   
   
    NewMDIChild.Show()

End Sub 



...

 

C# .NET

... 



protected void MDIChildNew_Click(object sender, System.EventArgs e)
{
    Form2 newMDIChild = new Form2();
   
   
    
    // Set the Parent Form of the Child window. 
    

   
    newMDIChild.MdiParent = this;
   
   
    
    // Display the new form. 
    

   
    newMDIChild.Show();
}
...

Bueno ya terminamos de explicar una parte. La otra parte se encargará usted de revisarla, para esto le recomiendo ver:

• OpenFileDialog
• SaveFileDialog
• PrintDialog
• PrintDocument
• PageSetupDialog
• ImageList
• PrintPreviewDialog
• ColorDialog
• FontDialog
• RichTextBox

Espero que le haya sido de utilidad este programa que implementé. Bueno, me siento algo cansado y deseo descanzar, mañana debo continuar con mis actividades.

A continuación podemos ver los resultados de editar un documento (por cierto, es un mensaje para novia....jejejeje)

 

Observamos por ejemplo, la alineación de nuestras áreas de trabajo, previamente editado.

Ahora dejo a su disposición todo el código que hace posible obtener los beneficios de un editor de texto.

Imports System.Drawing.Drawing2D

Public Class Form1
   
   
    Inherits System.Windows.Forms.Form
    <STAThread()> Shared Sub main()
       
       
        Try
           
            Application.Run(New Form1)
       
       
        Catch ex As Exception
            MessageBox.Show("Error no controlado: " & ex.Message)
       
       
        End Try
   
   
    End Sub

#Region "PintarMDI"
   
   
    Dim oControlMDI As MdiClient
   
   
    Public Sub FrmLoad(ByVal sender As Object, ByVal e As System.EventArgs)
       
       
        Dim oControl As Control
       
       
        For Each oControl In Me.Controls
           
           
            Try
                oControlMDI = CType(oControl, MdiClient)
                oControlMDI.BackColor = Color.AntiqueWhite
               
               
                AddHandler oControlMDI.Paint, AddressOf PintarFondoAreaCliente
           
           
            Catch ex As InvalidCastException
           
           
            End Try
       
       
        Next
   
   
    End Sub

   

   

    Private Sub PintarFondoAreaCliente(ByVal sender As Object, ByVal _
    e As System.Windows.Forms.PaintEventArgs)
       
       
        Dim GradientePanel As New LinearGradientBrush(New RectangleF(0, 0, _
        oControlMDI.Width, oControlMDI.Height), Color.Orange, Color.PapayaWhip, _
         LinearGradientMode.ForwardDiagonal)
        e.Graphics.FillRectangle(GradientePanel, New RectangleF(0, 0, _
        oControlMDI.Width, oControlMDI.Height))
   
   
    End Sub

   

   

    Private Sub TfrmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) _
   
   
    Handles MyBase.Resize

       

       

        If Not (Me.oControlMDI Is Nothing) Then
           
           
            Me.PintarFondoAreaCliente(Me.oControlMDI, New PaintEventArgs(Me.oControlMDI.CreateGraphics, _
           
           
            New Rectangle(Me.oControlMDI.Location, Me.oControlMDI.Size)))
       
       
        End If

   

   

    End Sub


   


   


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  
  
   Handles MyBase.Load
        FrmLoad(sender, e)
       
       
        Me.Size = New Size(800, 600)
   
   
    End Sub
#End Region
   
   
    Public contador As Integer = 0
   
   
    Private Sub MenuNuevo_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuNuevo.Click

       

       

        If Me.ActiveMdiChild Is Nothing Then
            contador = 0
       
       
        End If
       
       
        Dim oFrm As New FrmChild
        contador += 1
        oFrm.MdiParent = Me
        oFrm.Text = "Documento de texto " & "[" & contador & "]"
        oFrm.StartPosition = FormStartPosition.CenterParent
        oFrm.Show()

   

   

    End Sub


   


   


    Private Sub MenuCascada_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuCascada.Click

       

       

        Me.LayoutMdi(MdiLayout.Cascade)

   

   

    End Sub

   

   

    Private Sub MenuMHorizontal_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuMHorizontal.Click

       

       

        Me.LayoutMdi(MdiLayout.TileHorizontal)

   

   

    End Sub

   

   

    Private Sub MenuMVertical_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuMVertical.Click

       

       

        Me.LayoutMdi(MdiLayout.TileVertical)

   

   

    End Sub

   

   

    Private Sub VistaPrevia(ByVal TipoFuente As String, ByVal TamañoFuente As Byte, _
       
       
        ByVal TextoImpresion As String, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

       

       

        Dim Fuente As New Font(TipoFuente, TamañoFuente)
       
       
        Dim AreaImpresion_Alto, AreaImpresion_Ancho, MargenIzquierdo, MargenSuperior As Integer

       

       

        With Me.PrintDocument1.DefaultPageSettings
           
           
            'Area Neta de Impresion (se descuenta los margenes)
            AreaImpresion_Alto = .PaperSize.Height - .Margins.Top - .Margins.Bottom
            AreaImpresion_Ancho = .PaperSize.Width - .Margins.Left - .Margins.Right
            MargenIzquierdo = .Margins.Left
            MargenSuperior = .Margins.Top

           

           

            'Verificar si se ha elegido el modo horizontal
           
           
            If .Landscape Then
               
               
                Dim NroTemp As Integer
                NroTemp = AreaImpresion_Alto
                AreaImpresion_Alto = AreaImpresion_Ancho
                AreaImpresion_Ancho = NroTemp
           
           
            End If
           
           
            Dim Formato As New StringFormat(StringFormatFlags.LineLimit)
           
           
            Dim Rectangulo As New RectangleF(MargenIzquierdo, MargenSuperior, _
            AreaImpresion_Ancho, AreaImpresion_Alto)
           
           
            Dim NroLineasImpresion As Integer = CInt(AreaImpresion_Alto / Fuente.Height)
           
           
            Dim NroLineasRelleno, NroLetrasLinea As Integer
           
           
            Static CaracterActual As Integer

           

            e.Graphics.MeasureString(Mid(Me.ActiveMdiChild.Controls(0).Text, +1), Fuente, _
           
           
            New SizeF(AreaImpresion_Ancho, AreaImpresion_Alto), Formato, NroLetrasLinea, _
            NroLineasRelleno)
            e.Graphics.DrawString(Mid(TextoImpresion, CaracterActual + 1), Fuente, _
            Brushes.Black, Rectangulo, Formato)
            CaracterActual += NroLetrasLinea
           
           
            If CaracterActual < TextoImpresion.Length Then
                e.HasMorePages = True
           
           
            Else
                e.HasMorePages = False
                CaracterActual = 0
           
           
            End If
       
       
        End With

   

   

    End Sub

   

   

    'PrintDocument.PrintPage (Evento): Se produce cuando se necesita el 
    

   
   
   
    'resultado que se va a imprimir para la página actual.
   
   
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
       
       
        ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
       
       
        Handles PrintDocument1.PrintPage
        VistaPrevia("Arial", 12, Me.ActiveMdiChild.Controls(0).Text, e)
   
   
    End Sub

   

   

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, _
       
       
        ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) _
       
       
        Handles ToolBar1.ButtonClick

       

       

        If e.Button Is ToolBarNuevo Then
            MenuNuevo_Click(sender, e)
       
       
        ElseIf e.Button Is ToolBarGuardar Then
            MenuGuardar_Click(sender, e)
       
       
        ElseIf e.Button Is ToolBarAbrir Then
            MenuAbrir_Click(sender, e)
       
       
        ElseIf e.Button Is ToolBarCortar Then
            MenuCortar_Click(sender, e)
       
       
        ElseIf e.Button Is ToolBarPegar Then
            MenuPegar_Click(sender, e)
       
       
        ElseIf e.Button Is ToolBarImprimir Then
            MenuImprimir_Click(sender, e)
       
       
        End If
   
   
    End Sub

   

   

    Private Sub MenuSalir_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuSalir.Click

       

       

        Me.Close()

   

   

    End Sub

   

   

    Private Sub MnuColores_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MnuColores.Click

       

       

        If ColorDialog1.ShowDialog() = DialogResult.OK Then
           
           
            Me.ActiveMdiChild.Controls(0).BackColor = Me.ColorDialog1.Color
       
       
        End If

   

   

    End Sub
   
   
    Private Sub MnuFuente_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MnuFuente.Click

       

       

        With FontDialog1
            .ShowColor = True
            .ShowApply = True
           
           
            If .ShowDialog() = DialogResult.OK Then
               
               
                Me.ActiveMdiChild.ActiveControl.ForeColor = .Color
               
               
                Me.ActiveMdiChild.ActiveControl.Font = .Font
           
           
            End If
       
       
        End With

   

   

    End Sub
   
   
    Private Sub MnuVistaPrevia_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuVistaPrevia.Click

        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()

   

   

    End Sub

   

   

    Private Sub MnuConfiguracion_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuConfiguracion.Click

        PageSetupDialog1.Document = PrintDocument1
        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings
       
       
        If PageSetupDialog1.ShowDialog = DialogResult.OK Then
            PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings
       
       
        End If

   

   

    End Sub

   

   

    Private Sub MenuAbrir_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuAbrir.Click

       

       

        Try
           
           
            With OpenFileDialog1
                .Filter = "Archivo de Texto (*.txt)|*.txt|Archivo de Texto Enrriquecido (*.rtf)|*.rtf"
                .InitialDirectory = Application.StartupPath
                .RestoreDirectory = True
                .FilterIndex = 1
               
               
                Dim UserResponse As DialogResult = .ShowDialog
               
               
                If UserResponse = DialogResult.OK Then
                   
                   
                    If .FileName <> "" Then
                        MenuNuevo_Click(sender, e)
                       
                       
                        Me.ActiveMdiChild.Text = .FileName
                       
                       
                        If Microsoft.VisualBasic.Right(.Filter.ToString, 3) = "txt" Then

                           

                           

                            Dim LeerEn As New System.IO.StreamReader(.FileName)
                           
                           
                            Me.ActiveMdiChild.Controls(0).Text = LeerEn.ReadToEnd
                           
                           
                            If Not LeerEn Is Nothing Then
                               
                                LeerEn.Close()
                           
                           
                            End If

                       

                       

                        ElseIf Microsoft.VisualBasic.Right(.Filter.ToString, 3) = "rtf" Then

                           

                           

                            Dim Rtbox As RichTextBox = Me.ActiveMdiChild.ActiveControl
                            Rtbox.LoadFile(.FileName, RichTextBoxStreamType.RichText)
                           
                           
                            Me.ActiveMdiChild.ActiveControl = Rtbox

                       

                       

                        End If
                   
                   
                    End If
               
               
                End If
           
           
            End With

       

       

        Catch ex As Exception
            MsgBox(ex.Message)
       
       
        End Try

   

   

    End Sub

   

   

    Private Sub MenuGuardar_Click(ByVal sender As System.Object, _
       
       
        ByVal e As System.EventArgs) Handles MenuGuardar.Click

       

       

        If Me.MdiChildren.Length <> 0 Then
           
           
            With SaveFileDialog1
                .FileName = "Documento de texto " & Microsoft.VisualBasic.Mid(Me.ActiveMdiChild.Text, 21, 1)
                .Filter = "Archivo de Texto (*.txt)|*.txt|Archivo de Texto Enrriquecido (*.rtf)|*.rtf"
                .FilterIndex = 1
                .InitialDirectory = Application.StartupPath

               

               

                If .ShowDialog = DialogResult.OK Then

                   

                   

                    If .FileName <> "" Then

                       

                       

                        If Microsoft.VisualBasic.Right(.Filter.ToString, 3) = "txt" Then

                           

                           

                            Dim GuardarEn As New System.IO.StreamWriter(.FileName)
                            GuardarEn.WriteLine(Me.ActiveMdiChild.ActiveControl.Text, _
                            RichTextBoxStreamType.PlainText)

                           

                           

                            If Not GuardarEn Is Nothing Then
                               
                                GuardarEn.Close()
                           
                           
                            End If

                       

                       

                        ElseIf Microsoft.VisualBasic.Right(.Filter.ToString, 3) = "rtf" Then

                           

                           

                            Dim oRtbox As RichTextBox = Me.ActiveMdiChild.ActiveControl
                            oRtbox.SaveFile(.FileName, RichTextBoxStreamType.RichText)


                       


                       


                        End If
                   
                   
                    End If
               
               
                End If
           
           
            End With

       

       

        Else
           
            MsgBox("Debe crear previamente un documento")
           
           
            End If

       

       

        End Sub

       

       

        Private Sub MenuCortar_Click(ByVal sender As System.Object, _
           
           
            ByVal e As System.EventArgs) Handles MenuCortar.Click

           

           

            Dim ObjRichTextBox As RichTextBox = Me.ActiveMdiChild.Controls(0)
            Clipboard.SetDataObject(ObjRichTextBox.SelectedText)
            ObjRichTextBox.SelectedText = ""

       

       

        End Sub

       

       

        Private Sub MenuCopiar_Click(ByVal sender As System.Object, _
           
           
            ByVal e As System.EventArgs) Handles MenuCopiar.Click

           

           

            Dim ObjRichTextBox As RichTextBox = Me.ActiveMdiChild.Controls(0)
            Clipboard.SetDataObject(ObjRichTextBox.SelectedText)

       

       

        End Sub

       

       

        Private Sub MenuPegar_Click(ByVal sender As System.Object, _
           
           
            ByVal e As System.EventArgs) Handles MenuPegar.Click
           
           
            Dim ObjRichTextBox As RichTextBox = Me.ActiveMdiChild.Controls(0)

           

           

            Dim idata As IDataObject = Clipboard.GetDataObject
           
           
            If idata.GetDataPresent(DataFormats.Text) Then
               
               
                Me.ActiveMdiChild.Controls(0).Text &= idata.GetData(DataFormats.Text)
           
           
            End If

       

       

        End Sub


       


       


        Private Sub MenuSelecionarTodo_Click(ByVal sender As System.Object, _
           
           
            ByVal e As System.EventArgs) Handles MenuSelecionarTodo.Click

           

           

            Dim ObjRichTextBox As RichTextBox = Me.ActiveMdiChild.Controls(0)
            ObjRichTextBox.SelectAll()

       

       

        End Sub

       

       

        Private Sub MenuCerrar_Click(ByVal sender As System.Object, _
           
           
            ByVal e As System.EventArgs) Handles MenuCerrar.Click

           

           

            If Not Me.ActiveMdiChild Is Nothing Then
               
               
                Me.ActiveMdiChild.Dispose()
           
           
            Else
               
                MsgBox("No existe algún documento abierto")
               
               
                End If

           

           

            End Sub

           

           

            Private Sub MenuAutor_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuAutor.Click

                MsgBox("Percy Reyes Paredes")

           

           

            End Sub


           


           


            Private Sub MenuMicrosoft_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuMicrosoft.Click

                MsgBox("Microsoft Corporation")

           

           

            End Sub

           

           

            Private Sub MenuMinimizar_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuMinimizar.Click

               

               

                Me.ActiveMdiChild.WindowState = FormWindowState.Minimized

           

           

            End Sub

           

           

            Private Sub MenuMaximizar_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuMaximizar.Click

               

               

                Me.ActiveMdiChild.WindowState = FormWindowState.Maximized

           

           

            End Sub

           

           

            Private Sub MenuRestaurar_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuRestaurar.Click

               

               

                Me.ActiveMdiChild.WindowState = FormWindowState.Normal

           

           

            End Sub

           

           

            Private Sub MenuCerrarTodo_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuCerrarTodo.Click

               

               

                Dim n As Integer = 0

               

               

                If Not Me.ActiveMdiChild Is Nothing Then
                   
                   
                    For n = 0 To (Me.MdiChildren.Length) - 1
                       
                       
                        Me.MdiChildren(n).Dispose()
                   
                   
                    Next
               
               
                End If

           

           

            End Sub

           

           

            Private Sub MenuImprimir_Click(ByVal sender As System.Object, ByVal _
                e As System.EventArgs) Handles MenuImprimir.Click

                PrintDialog1.Document = PrintDocument1
               
               
                If PrintDialog1.ShowDialog = DialogResult.OK Then
                   
                    PrintDocument1.Print()
               
               
                End If

           

           

            End Sub

           

           

            Private Sub MenuVprevia_Click(ByVal sender As System.Object, ByVal _
                e As System.EventArgs) Handles MenuVprevia.Click

               

               

                Me.MenuVistaPrevia.PerformClick()

           

           

            End Sub

           

           

            Private Sub MenuEditor_Click(ByVal sender As System.Object, _
               
               
                ByVal e As System.EventArgs) Handles MenuEditor.Click

                MsgBox("Este Editor fue desarrollado gracias a un gran esfuerzo de parte de su autor. " _
                & " A la vez este Editor viene a ser más que un Bloc de notas, es simplemente una manera " & _
               
               
                " de demostrarte que todo se puede y que el conocimiento es del mundo y para el mundo." & _
                No olvides de darme tu voto en www.PanoramaBox.com")"

           

           

            End Sub

           

           

            Private Sub MenuPantComp_Click(ByVal sender As System.Object, ByVal _
            e As System.EventArgs) Handles MenuPantComp.Click
               
               
                If Me.MdiChildren.Length <> 0 Then
                   
                   
                    Dim control As New Control
                   
                   
                    Dim AreaCliente As New MdiClient
                   
                   
                    For Each control In Me.Controls
                       
                       
                        If control.GetType.Equals(AreaCliente.GetType) Then
                           
                           
                            Me.ActiveMdiChild.Location = New Point(control.Location.X, _
                            control.Location.Y - Me.ToolBar1.Height)
                           
                           
                            Me.ActiveMdiChild.Size = Me.ClientSize
                           
                           
                            Exit For
                       
                       
                        End If
                   
                   
                    Next
               
               
                End If
           
           
            End Sub
       
       
        End Class

 

No olvides de darme tu voto en PanoramaBox, de esta manera seguiré compartiendo contigo lo que voy aprendiendo. Gracias.

---

Espacios de nombres usados en el código de este artículo:

System.Drawing.Drawing2D

---

Arbis Percy Reyes Paredes es peruano, tiene 21 años y se dedica a la construcción de software de manera profesional, joven desarrollador de aplicaciones Web y Servicios Web XML en VB .NET y C# .NET con bases de datos SQL Server 2000, aplicaciones basadas en Windows con VB .NET y C# .NET, VB 6.0, y controles y bibliotecas ActiveX; actualmente estudia en la Universidad Nacional de Trujillo, la carrera de Ingeniería de Sistemas. Le encanta el desarrollo de aplicaciones para dispositivos móviles tanto como la programación gráfica y programación avanzada de Videojuegos.

Fichero con el código de ejemplo: Percynet_EditorTexto.zip - Tamaño 36 KB