''' <summary>
''' Clase VistaMenu
''' </summary>
Public Class FrmGestionUsuarios
Private _controllerUsuario As New ControllerUsuario.ControllerUsuario
Private _modelUsuario As New ModelUsuario.ModelUsuario
Private f As New VistaUsuarios.FrmAddUsuario
Private msj_alert As String
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
If _controllerUsuario.RutaGetUsuario(msj_alert) IsNot Nothing AndAlso _controllerUsuario.RutaGetUsuario(msj_alert).Rows.Count > 0 Then
DGVusuarios.DataSource = _controllerUsuario.RutaGetUsuario(msj_alert)
Else
MessageBox.Show(msj_alert, "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End If
End Sub
Private Sub FrmGestionUsuarios_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnAgregarUsuario_Click(sender As Object, e As EventArgs) Handles BtnAgregarUsuario.Click
f.ShowDialog()
End Sub
Private Sub DGVusuarios_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGVusuarios.CellDoubleClick
End If
End Sub
End Class
Public Class FrmAddUsuario
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub FrmAddUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
I try to reference a textbox that is in the second form in this way f.textbox1.text but apparently it is not possible to reference it that way