none
Sobre Progamacion Visual Basic (Trapazo de datos de forma a forma Cargadas ) RRS feed

  • Pregunta

  • Tengo un Form1 abierto, donde tengo un TextBox1, Este TextBox1 esta acompañado de un Button1 Donde el Button1 es utilizado para que al dar clic se abra un pequeño Form2 el cual contiene en un DataGridView1  (Con la propiedad FullRowSelected) informacion de usuarios registrados. 

    private sub Quiero que en el evento CellClick del DataGridView1 

    - Se muestre el nombre y los apellidos seleccionados del DataGridView1(Form2) en el TexBox1 que se  encentra en el Form1 (ya abierto/Cargado)

    - Se cierre el Form2

    end sub


    Mi data DataGridView1 Tiene columnas de [Nombre, Apellido_paterno, Apellido_Materno...] respectivamente en estas posiciones

    Uso Visual Studio 2013(VisualBasic) y SQL server 2008 R2
    sábado, 14 de febrero de 2015 18:05

Todas las respuestas

  • '========
    'form1.vb
    '========
    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim f As New Form2
    
            AddHandler f.DatoSeleccionado, AddressOf DatosArrivados
            f.Show()
            'o f.ShowDialog()
    
        End Sub
    
        Private Sub DatosArrivados(nombre As String, paterno As String, materno As String)
            TextBox1.Text = nombre & " " & paterno & " " & materno
        End Sub
    End Class
    
    '========
    'form2.vb
    '========
    Public Class Form2
    
        Public Delegate Sub DatoSeleccionadoEventHandler(nombre As String, paterno As String, materno As String)
    
        Public Event DatoSeleccionado As DatoSeleccionadoEventHandler
    
        Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Dim datos As New List(Of Dato)
    
            datos.Add(New Dato() With {.Nombre = "AAA", .ApellidoPaterno = "aaa", .ApellidoMaterno = "bbb"})
            datos.Add(New Dato() With {.Nombre = "BBB", .ApellidoPaterno = "ccc", .ApellidoMaterno = "ddd"})
            datos.Add(New Dato() With {.Nombre = "CCC", .ApellidoPaterno = "eee", .ApellidoMaterno = "fff"})
            datos.Add(New Dato() With {.Nombre = "DDD", .ApellidoPaterno = "ggg", .ApellidoMaterno = "hhh"})
    
            DataGridView1.DataSource = datos
        End Sub
    
        Private Sub DataGridView1_CellClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
            If e.RowIndex < 0 Then Return
    
            Dim arg1 As String = DataGridView1.Item(0, e.RowIndex).Value.ToString
            Dim arg2 As String = DataGridView1.Item(1, e.RowIndex).Value.ToString
            Dim arg3 As String = DataGridView1.Item(2, e.RowIndex).Value.ToString
    
            RaiseEvent DatoSeleccionado(arg1, arg2, arg3)
            'Close()
        End Sub
    End Class
    
    Class Dato
        Private _nombre As String
        Public Property Nombre() As String
            Get
                Return _nombre
            End Get
            Set(ByVal value As String)
                _nombre = value
            End Set
        End Property
    
        Private _apePat As String
        Public Property ApellidoPaterno() As String
            Get
                Return _apePat
            End Get
            Set(ByVal value As String)
                _apePat = value
            End Set
        End Property
    
        Private _apeMat As String
        Public Property ApellidoMaterno() As String
            Get
                Return _apeMat
            End Get
            Set(ByVal value As String)
                _apeMat = value
            End Set
        End Property
    End Class
    

    sábado, 14 de febrero de 2015 18:53