Problema nas chamadas de formul�rio com VB.Net

26/09/2016

Boa noite colegas. Estou com o seguinte problema no VB.Net : tenho um formul�rio inicial, por exemplo, de login que chama um MDI que por sua vez chama um form2, que por sua vez chama um form3, que por sua vez chama um form4. Quando o formul�rio inicial � o MDI, as chamadas ocorrem normalmente, mas que a chamada inicial � o frmInicial, por exemplo, o form de login, o form2 n�o consegue chamar o form3. O que posso fazer para que funcione normalmente come�ando pelo form de login?

Public Class frmInicial
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        Dim formInicial As New mdiPrincipal
        formInicial.Show()
    End Sub
End Class

'frm mdiPrincipal (� um MDI)
Public Class mdiPrincipal
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form As New Form2
        form.MdiParent = Me
        form.Show()
    End Sub
End Class


Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form1 As New Form3
        form1.MdiParent = mdiPrincipal
        form1.Show()
    End Sub
End Class


Public Class Form3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim form1 As New Form4
        form1.MdiParent = mdiPrincipal
        form1.Show()
    End Sub
End Class


Public Class Form4
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub
End Class

Carlos Oliveira

Curtir t�pico + 0

Responder

Posts

27/09/2016

Carlos Oliveira

Ol� pessoal. O meu problema � que tenho inicialmente um form de login do sistema.

    Private Sub btnProsseguir_Click(sender As Object, e As EventArgs) Handles btnProsseguir.Click

        Dim form = New frmPrincipal
        Me.Hide()
        form.Show()

    End Sub

Quando passo por ele tenho um form MDI com os menus do sistema onde seleciono um form de cadastro,

    Private Sub CadastroDeProcessoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CadastroDeProcessoToolStripMenuItem.Click
        Dim form = New frmListaProcessos
        form.MdiParent = Me
        form.Show()
    End Sub

Neste eu mostro todos os registros em um DataGridView.

Private Sub preencherGrid()

        'Vari�veis para medir tempo
        Dim tInicio As DateTime
        Dim tFim As DateTime
        Dim tDiferenca As TimeSpan

        tInicio = Now

        With dgvListaProcessos

            'Carregar os dados
            .DataSource = Nothing
            .Rows.Clear()
            .Columns.Clear()
            carregaDadosLINQ()

            'Formatando o DataGridView

            'Coluna do c�digo do Processo
            .Columns(0).HeaderText = "C�digo"
            .Columns(0).Width = 50
            .Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.BottomCenter
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).Name = "Codigo"

            'Assunto do Processo
            .Columns(1).HeaderText = "Assunto"
            .Columns(1).Width = 585
            .Columns(1).Name = "Assunto"

            'Bot�o de manuten��o
            Dim btn As New DataGridViewButtonColumn()
            .Columns.Add(btn)
            btn.HeaderText = "Manuten��o"
            btn.Text = "Click aqui"
            btn.Name = "btn"
            btn.UseColumnTextForButtonValue = True
            'btn.Width = 30

        End With

        tFim = Now
        tDiferenca = tFim.Subtract(tInicio)
        lblTempoGasto.Text = "Tempo: " & tDiferenca.TotalSeconds.ToString("0.0") & " segundos"

    End Sub

Quando o usu�rio clica em um dos registros, deveria abrir um outro form com todos os dados do registro selecionado, que s�o muitos, para fazer a manuten��o, conforme rotina abaixo:

    Private Sub dgvListaProcessos_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListaProcessos.CellContentDoubleClick

        Dim linha As Integer
        Dim nIdProcesso As Integer

        linha = dgvListaProcessos.CurrentRow.Index
        nIdProcesso = dgvListaProcessos.Rows(linha).Cells("Codigo").Value

        Dim form As New frmDadosProcesso(nIdProcesso)
        form.MdiParent = frmPrincipal
        form.Show()

    End Sub

Mas o form n�o aparece. Pelo debug verifico que o form frmDadosProcesso � iniciado, mas n�o sei porque n�o aparece. Mas quando eu retiro o form de login, ou seja, in�cio � pelo MDI eu consigo abrir o form frmDadosProcesso.

Public Sub New(nIdProc As Integer)

        ' Esta chamada � requerida pelo designer.
        InitializeComponent()

        ' Adicione qualquer inicializa��o ap�s a chamada InitializeComponent().
        nIdProcesso = nIdProc
        mostrarDados()

    End Sub

O que eu posso fazer para resolver este problema?

Responder

Gostei + 0