Jump to content
  • 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

Recommended Posts

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.

Share this post


Link to post
Share on other 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"

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites
PedroWieira

Mesmo assim não está a dar, abre o form mas quando la volto o valor da variavel é de -1 na mesma

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.