COMO EXIBIR UM FORMULARIO USANDO O SHOW EM VB.NET?

JONATHANSTECKER 11/02/2014 08:40:33
#434532 Resposta escolhida

Olá, não ficou muito claro sua dúvida, o que você pretende fazer?
Passe mais detalhes, um print do que pretende, e o que você já tem feito para que possamos ajudar.

Pelo que me parece você pretende abrir um formulário no modo MDI Parent... Veja:

VB.NET - CRIE UM FORM MDI E VEJA SE ELE ESTA ATIVO

DANIROSA 14/02/2014 17:08:23
#434805

no formulario cadastro de provincias eu chamo o formulario com a lista de paises para escolher o pais em que cada provincia pertence, segue o codigo abaixo

1º - Segue o codigo do formulario com o DATAGRIDVIEW que contem a lista de paises:


Private Sub FrmListaPaises_Load(sender As Object, e As EventArgs) Handles MyBase.Load


DGVListaPaises.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

DGVListaPaises.AllowUserToAddRows = False

DGVListaPaises.AllowUserToDeleteRows = False

DGVListaPaises.EditMode = DataGridViewEditMode.EditProgrammatically

DGVListaPaises.AllowUserToResizeColumns = False

DGVListaPaises.AllowUserToOrderColumns = False

[ô]DGVListaPaises.AutoGenerateColumns = True [ô]Aqui estamos a dizer que gere colunas automaticas

DGVListaPaises.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders

DGVListaPaises.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single

[ô]Vamos alterar a core das linhas alternadas no grid

DGVListaPaises.RowsDefaultCellStyle.BackColor = Color.White

DGVListaPaises.AlternatingRowsDefaultCellStyle.BackColor = Color.Bisque

[ô]Seleciona a selula inteira

DGVListaPaises.SelectionMode = DataGridViewSelectionMode.FullRowSelect

[ô]Não permitir a seleção de multiplas linhas

DGVListaPaises.MultiSelect = False


[ô]Aqui criamos as colunas no datagrid

DGVListaPaises.Columns.Add([Ô]colID_PAIS[Ô], [Ô]Codigo[Ô])

DGVListaPaises.Columns.Add([Ô]colID_CONTINENTE[Ô], [Ô]Codigo do Continente[Ô])

DGVListaPaises.Columns.Add([Ô]colSIGLA_PAIS[Ô], [Ô]Sigla do Pais[Ô])

DGVListaPaises.Columns.Add([Ô]colDESCRIÇÃO_PAIS[Ô], [Ô]Nome do Pais[Ô])

DGVListaPaises.Columns.Add([Ô]colDESCRIÇÃO_CONTINENTE[Ô], [Ô]Nome do Continente[Ô])



Dim ctxt As New DAL.DANIROSADataContext

Try

Dim listaPaises = From pais In ctxt.LT_Paises

Select pais

Dim IdxLine As Integer = 0

For Each paise In listaPaises

DGVListaPaises.Rows.Add()

DGVListaPaises.Rows(IdxLine).Cells(0).Value = paise.ID_PAIS

DGVListaPaises.Rows(IdxLine).Cells(1).Value = paise.ID_CONTINENTE

DGVListaPaises.Rows(IdxLine).Cells(2).Value = paise.SIGLA_PAIS

DGVListaPaises.Rows(IdxLine).Cells(3).Value = paise.DESCRIÇÃO_PAIS

DGVListaPaises.Rows(IdxLine).Cells(4).Value = paise.DESCRIÇÃO_CONTINENTE

IdxLine = IdxLine + 1


Next

Catch ex As Exception


End Try


[ô]Aqui oucultamos a linha que contem o codigo do continente, exibimos apenas o nome do continente

DGVListaPaises.Columns(1).Visible = False


[ô]Aqui posicionamos o texto das colunas,

DGVListaPaises.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DGVListaPaises.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DGVListaPaises.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

DGVListaPaises.Focus()


[ô]Aqui Aqui estamos a contar o total de registros no datagridview

LblNumeroPais.Text = DGVListaPaises.Rows.Count.ToString()

End Sub

1º-aqui ao premirmos a tecla F2 exibimos a lista de paises para escolhermos um pais


Private Sub TxtCodigoPaisProvincia_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtCodigoPaisProvincia.KeyDown

Try

[ô]aqui ao premirmos a tecla f2 abrimos o formulario com a lista dos paises

If e.KeyCode = Keys.F2 Then


listFormPaises = New FrmListaPaises

listFormPaises.MdiParent = FrmPRINCIPAL

listFormPaises.Show()

[ô]aqui exibimos os dados nas textbox

TxtCodigoPaisProvincia.Text = listFormPaises.DGVListaPaises.CurrentRow.Cells(0).Value.ToString

End If

Catch ex As Exception

MsgBox([Ô]erro : [Ô] & ex.Message, MsgBoxStyle.Exclamation)

End Try



[ô]listFormPaises.Dispose()



[ô] listFormPaises.DGVListaPaises.Columns.Clear()

[ô]listFormContinentes.DGVListaContinentes.Rows.Clear()



[ô]Aqui ao premirmos a tecla escap limpamos as textboxes

If e.KeyCode = Keys.Escape Then

LimparProvincia()

End If


End Sub

aqui no botão procurar pais

2º-aqui ao premirmos o botão exibimos a lista de paises para escolhermos um pais


Private Sub btnLocalizarPaisProvincia_Click(sender As Object, e As EventArgs) Handles btnLocalizarPaisProvincia.Click


Try


listFormPaises = New FrmListaPaises

listFormPaises.MdiParent = FrmPRINCIPAL

listFormPaises.Show()

TxtCodigoPaisProvincia.Text = listFormPaises.DGVListaPaises.CurrentRow.Cells(0).Value.ToString

Catch ex As Exception

MsgBox([Ô]erro : [Ô] & ex.Message, MsgBoxStyle.Exclamation)

End Try

[ô] listFormPaises.Dispose()


[ô] listFormPaises.DGVListaPaises.Columns.Clear()

[ô] listFormPaises.DGVListaPaises.Rows.Clear()


End Sub

eu quero chamar o formulario com a lista dos paises e preencher o codigo do pais na textbox no formulario de cadastro de provincias.