Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

PedroWieira

Passar valor de um Form para outro

Mensagens Recomendadas

PedroWieira

Boas,

Tou com um problema, estou a abrir o form "frmActualizarCliente" e no Load desse form está a chamar o form "frmProcurarCliente" que nele contem a lista de clientes existentes no banco de dados, e quero que ao selecciona um cliente no form "frmProcurarCliente" passe o ID do cliente para o outro form neste caso o "frmActualizarCliente" , neste momento tenho este codigo mas nao dá:

frmActualizarCliente:

 Private ClienteEscolhidoNoProcurar As Integer = -1
    Public WriteOnly Property EscolherCliente() As Integer
        Set(ByVal Value As Integer)
            ClienteEscolhidoNoProcurar = Value
        End Set
    End Property

    Private Sub frmActualizarCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        frmProcurarCliente.ShowDialog()

        If Not ClienteEscolhidoNoProcurar = -1 Then
            Dim ClienteTEMP As Cliente = clsTrabalho.obterDadosDoCliente(ClienteEscolhidoNoProcurar)

            btnActualizar.Tag = ClienteTEMP.IDClienteCliente.ToString
            txtNome.Text = ClienteTEMP.NomeClienteCliente
            txtMorada.Text = ClienteTEMP.MoradaClienteCliente
            txtContacto.Text = ClienteTEMP.ContactoClienteCliente.ToString
            lblClienteSeleccionado.Text = ClienteTEMP.NomeClienteCliente
        Else
            Me.Close()
        End If
    End Sub

frmProcurarCliente:

 Private Sub btnEscolher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEscolher.Click
            frmActualizarCliente.EscolherCliente = CType(lstClientes.SelectedItems(0).Text, Integer)
        Me.Close()
    End Sub

O que aqui está é abre o form do actualizar cliente, depois abre o do procurar cliente e ao clicar no botao escolher vai o passar para a variavel do outro lado, mas não dá.

Alguem sabe como passar esta "fase" ?

Obrigado.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
PedroWieira

LOOOL , omg  a unica coisa era so fazer um New form , ou seja o form Load fica:

Private Sub frmActualizarCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frm As New frmProcurarCliente
        frm.ShowDialog()

        If Not ClienteEscolhidoNoProcurar = -1 Then
            Dim ClienteTEMP As Cliente = clsTrabalho.obterDadosDoCliente(ClienteEscolhidoNoProcurar)

            btnActualizar.Tag = ClienteTEMP.IDClienteCliente.ToString
            txtNome.Text = ClienteTEMP.NomeClienteCliente
            txtMorada.Text = ClienteTEMP.MoradaClienteCliente
            txtContacto.Text = ClienteTEMP.ContactoClienteCliente.ToString
            lblClienteSeleccionado.Text = ClienteTEMP.NomeClienteCliente
        Else
            Me.Close()
        End If
    End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.