none
No puedo meter TEXTBOXNUEVO.text en tiempo de ejecucion RRS feed

  • Pregunta

  • No puedo meter que esta creado en tiempo de ejecucion en el evento del boton tambien creado en tiempo de ejecucion el formulario tambien esta creado en tiempo de ejecucion

    'CREA FORMULARIO EN TIEMPO DE EJECUCION
        Private Sub RenombrarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RenombrarToolStripMenuItem.Click
    
            Dim frmNuevo As Form
            frmNuevo = New Form()
            Dim TEXTBOXNUEVO As TextBox
            TEXTBOXNUEVO = New TextBox()
            Dim Botonnuevo As Button
            Botonnuevo = New Button()
    
            frmNuevo.Controls.Add(TEXTBOXNUEVO)
            frmNuevo.Controls.Add(Botonnuevo)
            frmNuevo.StartPosition = FormStartPosition.CenterParent 'CENTRA FORMULARIO
            frmNuevo.MaximizeBox = False   'DESACTIVA MAXIMIZAR
            frmNuevo.MinimizeBox = False   'DESACTIVA MINIMIZAR
            frmNuevo.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog 'DESACTIVA MODIFICAR ANCHURA Y ALTURA DEL FORMULARIO
            frmNuevo.Size = New Size(400, 200)
            AddHandler Botonnuevo.Click, AddressOf Botonnuevo_Click
    
            With Botonnuevo
                .Text = "Aceptar"
                .Location = New Point(200, 50) ' 1º horizontar 2º vertical
                .Name = "Boton1"
            End With
    
            With TEXTBOXNUEVO
                .Text = Dgv_Herramientas.Columns(Dgv_Herramientas.CurrentCell.ColumnIndex).HeaderText
                .Location = New Point(50, 50)
            End With
            With frmNuevo
    
                .Text = "Renombrar Columna"
                .ShowDialog()
    
            End With
    
    
        End Sub
    
        Private Sub Botonnuevo_Click(sender As Object, e As EventArgs)
            Dgv_Herramientas.Columns(Dgv_Herramientas.CurrentCell.ColumnIndex).HeaderText = TEXTBOXNUEVO.Text
    
        End Sub
        'CREA FORMULARIO EN TIEMPO DE EJECUCION


    • Editado JETET miércoles, 9 de marzo de 2016 20:27
    miércoles, 9 de marzo de 2016 20:27

Respuestas

  • A también puedes hacer referencia a el por su nombre en C# setia así

    this.Controls["textbox"].Text;
    
    En VB creo que seria
    
    Me.Controls("textbox").Text

    y en este bloque que tienes le tendrías que poner el nombre.

    With TEXTBOXNUEVO
                .Text = Dgv_Herramientas.Columns(Dgv_Herramientas.CurrentCell.ColumnIndex).HeaderText
                .Location = New Point(50, 50)
                .Name="textbox"
    End With


    Es de buena educación dar las gracias cuando te ayudan, si alguna respuesta te ha sido de utilidad agradécelo marcandola como útil.
    Blog


    • Editado Rodripelto miércoles, 9 de marzo de 2016 21:16
    • Marcado como respuesta JETET miércoles, 9 de marzo de 2016 22:48
    miércoles, 9 de marzo de 2016 21:06

Todas las respuestas

  • Ya te comento que no he manejado mucho VB, pero me imagino que sera como C# si creas un objeto en un método solo existe en ese método. Por lo tanto tendrás que buscar una manera de hacerlo persistir para que este disponible en el evento, por ejemplo declarándolo como variable de clase. Que es lo que hace el sistema cuando usamos el diseñador.

    Es de buena educación dar las gracias cuando te ayudan, si alguna respuesta te ha sido de utilidad agradécelo marcandola como útil.
    Blog

    miércoles, 9 de marzo de 2016 20:57
  • A también puedes hacer referencia a el por su nombre en C# setia así

    this.Controls["textbox"].Text;
    
    En VB creo que seria
    
    Me.Controls("textbox").Text

    y en este bloque que tienes le tendrías que poner el nombre.

    With TEXTBOXNUEVO
                .Text = Dgv_Herramientas.Columns(Dgv_Herramientas.CurrentCell.ColumnIndex).HeaderText
                .Location = New Point(50, 50)
                .Name="textbox"
    End With


    Es de buena educación dar las gracias cuando te ayudan, si alguna respuesta te ha sido de utilidad agradécelo marcandola como útil.
    Blog


    • Editado Rodripelto miércoles, 9 de marzo de 2016 21:16
    • Marcado como respuesta JETET miércoles, 9 de marzo de 2016 22:48
    miércoles, 9 de marzo de 2016 21:06
  • !000 gracias otra vez

    miércoles, 9 de marzo de 2016 22:48