• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

hpires24

Interação entre forms

5 mensagens neste tópico

Antes de mais boa tarde e vu dizer q sou novato no forum mas agradecia a vossa ajuda caso possam,

Tenho dois Forms um Form1 e um Forma2

dentro do From2 apenas tenho 3 botoes Tipo:TESTE FABRICA SAIR

qd eu carrego no botao TEste faço o seguinte

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FForm1.Show()
End Sub

Este FForm1 esta definido num modelo do seguinte modo:

Module Module1
    Public FForm1 As New Form1()
    Public FForm2 As New Form2()

    Sub main()
        FForm1.ShowDialog()
    End Sub

End Module

O form1 possui varios metodos por exemplo SelectProjectFile_H() e por exemplo tem um botao q faz a seleccao de um projecto isto é dentro do Form1 tenho um botao como segue em baixo:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
     
        SelectProjectFile_H()
        dReg()

        Try
            TEst.Connect()
        Catch ex As Exception
            tbMsg.Text = "Erro de Conexão"
        End Try
        tbMsg.Text = "Conexão OK"

        If (TEst.IsPointValid("AS133", "Send_Bit")) Then
            tbMsg.Text = tbMsg.Text + vbCrLf + "Send_Bit Point OK"
        Else
            tbMsg.Text = tbMsg.Text + vbCrLf + "Send_Bit Point NOT OK"
        End If

        If (TEst.IsPointValid("AS133", "BoxCount")) Then
            tbMsg.Text = tbMsg.Text + vbCrLf + "BoxCount Point OK"
        Else
            tbMsg.Text = tbMsg.Text + vbCrLf + "BoxCount Point NOT OK"
        End If
       
        Dim t As String
        t = MsgBox("Deseja Continuar", MsgBoxStyle.OkCancel, "TEXO")

        If (t = "1") Then


            tbMsg.Text = tbMsg.Text + vbCrLf + vbCrLf + vbCrLf
            tbMsg.Text = tbMsg.Text + "Sending Restart Message"

            Dim bStatus As Boolean = True
            Dim NumElements(9) As Integer

            NumElements(0) = "1001"
            NumElements(1) = "1"
            NumElements(2) = "0"
            NumElements(3) = "0"
            NumElements(4) = "0"
            NumElements(5) = "0"
            NumElements(6) = "0"
            NumElements(7) = "0"
            NumElements(8 ) = "0"
            NumElements(9) = "0"

            bStatus = TEst.Write("AS133", "Send", NumElements)
            tbMsg.Text = tbMsg.Text + vbCrLf + bStatus.ToString()
           
            Dim Val As Object
            Dim bQuality As Boolean
            TEst.Read("AS133", "Send", Val, bQuality)
            DisplayData(Val)

            lsDataIn.Items.Add(TEst.Read("AS133", "Send_Bit", Val, bQuality).ToString() + " Send_Bit")
            addMsg("go to work")
            dwork()
        End If
        'Else
        'SelectProjectFile()
        'End If
       
    End Sub

O que eu pretendo é q quando carrego no botao Testes do From2 ele me chame esse botao e por exemplo qd carrego no botao Fabrica ele me carregue de novo este botao mas em vez de ter o  SelectProjectFile_H() ter sim o  'SelectProjectFile() que eu tenho comentado mesmo no fim desse trecho de codigo acima.

Agradecia a vossa ajuda obrigado

EDIT: Adicionado Geshi

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O que eu pretendo é q quando carrego no botao Testes do From2 ele me chame esse botao e por exemplo qd carrego no botao Fabrica ele me carregue de novo este botao mas em vez de ter o  SelectProjectFile_H() ter sim o  'SelectProjectFile() que eu tenho comentado mesmo no fim desse trecho de codigo acima.

Tu consegues entender isto ? Explica lá melhor o que queres.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

o que eu pretendo é o seguinte tenho um form1 com um botao que é o buton6 com o codigo q ai esta, depois tenho um form 2 com tres butoes que sao o Testes Fabrica e Sair, qd eu clico no botao TEstes quero que ele me abra o form1 e depois de carregar no butao 6 ele execute o codigo que ai esta isso ele esta a fazer ok

Agora o q pretendia que me expliquei mal é qunado eu carrego no butao Fabrica do form 2 ele de igual forma abra o form1 e depois de carregar no butao 6_click ele em vez de executar  o SelectProjectFile_H() executar SelectProjectFile() que se enontra comentado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Rapaz, tenta por vírgulas, parágrafos, etc de modo a que a gente perceba.

Contudo, acho que o que tu pretendes é algo do género:

FormX.ButtonX.PerformClick

Este código, faz com que, quando clicares num determinado butão, ele vai abrir um determinado Form e nesse Form vai executar a linha de código de um butão.

Cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

vou entao tentar ser mais claro, e desculpem nao ter feito pontuação.

Este codigo que cito abaixo esta na class Form1 e qd faço Dim form as new form2 é para, quando carregar no Button_Teste do form2 ele fazer uma determinada instrução no form1

  Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim form As New Form2
        If form.Button_Teste = "Aqui devo meter o que " Then ' o q pretendo é se seleccionei o Button_Teste do form 2 entao faço instruçoes

        End If
        else
        form.Button2= "xx" ´' se seleccionei este entao faço outra coisa



       
    End Sub


0

Partilhar esta mensagem


Link 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