66.Programación en Visual Basic. Net con Visual Studio 2019 || Formularios MDI.

[@hectormancha4554]

Buen ejercicio, lo pude replicar y llegar al mismo resultado, gracias

[@luisng941]

Excelentes videos, son oro para los que comenzamos el mundo de la programación

[@hectormancha4554]

Lo trataré de realizar en el mismo lenguaje visual basic con Visual Studio pero en ASP.net, Gracias

[@acaruci]

Excelente video tutorial, saludos
he realizado el ejercicio pero no me funciona, no me traslada los datos del listbox al formulario, claro el ejemplo lo hice con una tabla proveedores y una tabla categorias,
formulario MDI frmprincipal llamo al formulario frmProductos
Private Sub ProductosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProductosToolStripMenuItem.Click
Dim frmProd As New FrmProductos
frmProd.MdiParent = Me
frmProd.Show()
End Sub
Public Class FrmDetProducto
Public Shared ExisteInstancia As FrmDetProducto
Public Function GetInstancia() As FrmDetProducto
If ExisteInstancia Is Nothing Then
ExisteInstancia = New FrmDetProducto
Return ExisteInstancia
Else
Return ExisteInstancia
End If
End Function
Public Sub InsertarDatos(DesProducto As String)
TextBox1.Text = DesProducto
End Sub
cargo la lista de categorias en el listbox
Dim i As Integer
If capaNegocios.ListarCategorias.Tables("Categorias").Rows.Count 0 Then
For i = 0 To capaNegocios.ListarCategorias.Tables("Categorias").Rows.Count - 1
'Codigo = capaNegocios.ListarCategorias.Tables("Categorias").Rows(i).Item("cod_categoria")
Categoria = capaNegocios.ListarCategorias.Tables("Categorias").Rows(i).Item("des_categoria")
LstCategorias.Items.Add(Categoria)
Next
End If
Private Sub LstCategorias_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LstCategorias.SelectedIndexChanged
Dim frmDetProd As FrmDetProducto = FrmDetProducto.GetInstancia
Dim ProdSelect As String = LstCategorias.SelectedItem.ToString
frmDetProd.InsertarDatos(ProdSelect)
Me.Close()
End Sub