none
RichTexBox RRS feed

  • Pregunta

  • Buenas tardes, díganme como puedo hacer lo que esta en la imagen, al parecer es un richtextbox, al darle clic en la opción nuevo, aparece un reglón con el usuario la hora y fecha, para que puedas escribir algún comentario, la verdad es que no tengo idea como realizar eso, espero me deán alguna alternativo o algo similar para poder aplicarlo. Gracias

    lunes, 8 de agosto de 2016 21:30

Respuestas

  • Hola Oscar Perez 1234,

    No sé si estoy mal, pero yo veo un DataGridView que crea una nueva fila con datos.

    Te dejo el código antes que lo borre por si te interesa.

    Agregas un ContextMenuStrip al formulario, le agregas las opciones y luego lo enlazas al DataGridView.

    Luego en el evento click de la opción Agregar.

     Private Sub AgregarToolStripMenuItem_Click(sender As Object, e As EventArgs) _
                          Handles AgregarToolStripMenuItem.Click
    
        'Agrego una fila con la fecha y hora (puedes usar CultureInfo.CurrentCulture)
         DataGridView1.Rows.Add(DateTime.Now.ToString("dd' de 'MMMM' de 'yyyy' - 'HH:mm:ss tt",
                                           CultureInfo.CreateSpecificCulture("es-PE")) & " : ")
    
        'Cambio la celda actual por la última fila ingresada
         DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.RowCount - 1)
    
        'Una vez seleccionado la fila, habilito la edición
         DataGridView1.BeginEdit(True)
    
         'Convierto la celda a TextBox para posicionar al último, para escribir
         Dim txt As TextBox = CType(DataGridView1.EditingControl, TextBox)
         txt.Select(txt.Text.Length, 0)
    
     End Sub

    Y el resultado que obtendrás es el de la imagen.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI



    lunes, 8 de agosto de 2016 21:39

Todas las respuestas

  • Hola Oscar Perez 1234

    primero deberías asociar a tu richtextbox los item del context menu:

    Private Sub InitializeMyContextMenu()
         
         Dim contextMenu1 As New ContextMenu()
         Dim menuItem1 As New MenuItem("Agregar")
         
         contextMenu1.MenuItems.Add(menuItem1)
         
         richTextBox1.ContextMenu = contextMenu1
    
     End Sub

    luego al dar click en el item "Agregar", deberías agregar lo que necesites al richtextbox:

    Dim datos As String = "Esto es una prueba"
    
    rtxt_Datos.Text &= datos
    datos = ""

     Saludos y suerte!

    Javier

    lunes, 8 de agosto de 2016 21:39
  • Hola Oscar Perez 1234,

    No sé si estoy mal, pero yo veo un DataGridView que crea una nueva fila con datos.

    Te dejo el código antes que lo borre por si te interesa.

    Agregas un ContextMenuStrip al formulario, le agregas las opciones y luego lo enlazas al DataGridView.

    Luego en el evento click de la opción Agregar.

     Private Sub AgregarToolStripMenuItem_Click(sender As Object, e As EventArgs) _
                          Handles AgregarToolStripMenuItem.Click
    
        'Agrego una fila con la fecha y hora (puedes usar CultureInfo.CurrentCulture)
         DataGridView1.Rows.Add(DateTime.Now.ToString("dd' de 'MMMM' de 'yyyy' - 'HH:mm:ss tt",
                                           CultureInfo.CreateSpecificCulture("es-PE")) & " : ")
    
        'Cambio la celda actual por la última fila ingresada
         DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.RowCount - 1)
    
        'Una vez seleccionado la fila, habilito la edición
         DataGridView1.BeginEdit(True)
    
         'Convierto la celda a TextBox para posicionar al último, para escribir
         Dim txt As TextBox = CType(DataGridView1.EditingControl, TextBox)
         txt.Select(txt.Text.Length, 0)
    
     End Sub

    Y el resultado que obtendrás es el de la imagen.

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI



    lunes, 8 de agosto de 2016 21:39