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

electric

Enviar dados pra outra form

29 mensagens neste tópico

boas ppl tou a fazer 1 miniprograma que tem como função eu preencher 1s campos e depois esses campos vão ser escritos num tbx, so que eu queria que essa parte fosse numa form a parte ou seja

escrevo

carrego no btn

é processado e escrito na tbx da form 2 que vai ser aberta ao clip do btn :P

sera que alguem consegue me dar uma ajudinha ?

[]'s

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

a maneira mais fácil é criares uma variável/propriedade pública na form que vais chamar e antes de executares o procedimento Show/Show Dialog atribuires um valor a essa variável. Dps no evento load da dita form processas o conteúdo da variável :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sub converter()

        Try
            ' Pega o nome do arquivo para salvar
            If Me.SDTexto.ShowDialog() = Windows.Forms.DialogResult.OK Then
                ' abre um stream para escrita e cria um StreamWriter para implementar o stream
                Dim fs As New FileStream(SDTexto.FileName, FileMode.Append, FileAccess.Write)
                Dim m_streamWriter As New StreamWriter(fs)
                m_streamWriter.Flush()
                'Escreve para o arquivo usando a classe StreamWriter
                'm_streamWriter.BaseStream.Seek(SeekOrigin.Begin, SeekOrigin.Current)
                ' escreve no controle richtextbox
                m_streamWriter.Write("Titulo:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxTitulo.Text)
                m_streamWriter.Write("[b]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Comentario")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxComentario.Text)
                m_streamWriter.Write("[b]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("ScreenShots:")
                If TbxImg1.Text <> "" Then
                    m_streamWriter.Write("[img]")
                    m_streamWriter.Write(TbxImg1.Text)
                    m_streamWriter.Write("[/img]")
                Else
                    m_streamWriter.WriteLine()
                End If

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Links para download:")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown1.Text)
                m_streamWriter.Write("]Download Parte 1[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown2.Text)
                m_streamWriter.Write("]Download Parte 2[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown3.Text)
                m_streamWriter.Write("]download Parte 3[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown4.Text)
                m_streamWriter.Write("]Download Parte 4[/url]]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Partes:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxPartes.Text)
                m_streamWriter.Write("[b]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Tamanho:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxTamanho.Text)
                m_streamWriter.Write("[b]")


                ' fecha o arquivo
                m_streamWriter.Flush()
                m_streamWriter.Close()
            End If
        Catch em As Exception
            MsgBox("Erro a salvar o arquivo ", MsgBoxStyle.Critical, "Erro ao Salvar")
        End Try

    End Sub

isto é o que quero escrever na tal tbx do outro lado :confused:

na outra form tenho 1 variavel do tipo string

dim codigo as string

agora quando ponho no btnconverter

codigo = converter()

o converter da erro :$

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tanto quanto sei n podes fazer codigo = converter() porque converter não devolve nenhum valor

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Isto é VB6 ou VB.NET?

Se for .NET, basta o seguinte:

Dim f as Form2 = New Form2();
f.caixadetexto.Text = "CONTEUDO";
f.ShowDialog();

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ya isso resulta mas eu quero mostrar todo o conteudo do converter :\ e se meter entre " " aparece o que esta entre elas como obvio mas se meter ...=converter() o converter da-me erro

PS: isto é VB.NET :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Basta pegares no conteudo do converter e guardar numa variavel e no fim atribuis o valor dessa variavel à caixa de texto.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

man sito pode parecer muito noob :\ mas como é que faço isso é que n tou a conseguir :| porque tipo eu crio 1 var

dim fora as string

e depois

fora = convetrer()

e da ero como ja disse a cima :\

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

o problema é que converter não é uma função porque n devolve nenhum resultado! Logo n podes fazer variavel = converter().

Para o poderes fazer tens que declarar

Public Function Converter()

e depois fazer

Return resultado

dentro do código.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ya isso resulta mas eu quero mostrar todo o conteudo do converter :\ e se meter entre " " aparece o que esta entre elas como obvio mas se meter ...=converter() o converter da-me erro

PS: isto é VB.NET :P

VB.NET ? basta mesmo  nomedaform.TextBox1.Text = valor e isto vái para a tua outra form  :dontgetit:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

coloquei o meu code entre

public function converter

...

retrun (resultado)

end function

e depois no btn coloco

sobre.TbxTexto.Text = resultado

        sobre.ShowDialog()

e ao mostrar-me a frm com a tbx esta esta vazia :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

talvez

sobre.ShowDialog()

sobre.TbxTexto.Text = resultado

       

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nop não da na mesma :\ é que deve ser algo basico so que n tou a encontarr a falha :\

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para despistar mete

sobre.ShowDialog()

sobre.TbxTexto.Text = "Debuging"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Então, como é obvio o problema esta na função converter() que não esta a dar resultado nenhum.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pah mesmo que eu meta so

public function ola
write ("ola mundo")
return abc
en function

e depois pessa pra escrever na outra frm ele n escreve e é algo basico :\

ps: gostei desse obviamente xD

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

é normal que essa função n te devolva nada lol ;)

experimenta tipo esta:

Public Function Ola as String
Dim blabla as String = "Debug"
Return blabla
End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

:)

tenta algo deste genero

Imports System.Drawing
Public Class Form1

Function converter()

        Try
            ' Pega o nome do arquivo para salvar
            If Me.SDTexto.ShowDialog() = Windows.Forms.DialogResult.OK Then
                ' abre um stream para escrita e cria um StreamWriter para implementar o stream
                Dim fs As New FileStream(SDTexto.FileName, FileMode.Append, FileAccess.Write)
                Dim m_streamWriter As New StreamWriter(fs)
'declara a var text
                Dim text As New System.Text.StringBuilder()
                m_streamWriter.Flush()
                'Escreve para o arquivo usando a classe StreamWriter
                'm_streamWriter.BaseStream.Seek(SeekOrigin.Begin, SeekOrigin.Current)
                ' escreve no controle richtextbox
                m_streamWriter.Write("Titulo:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxTitulo.Text)
                m_streamWriter.Write("[b]")
'escreve na var text
                text.Append("Titulo:")
                text.Append("[b]")
                text.Append(TbxTitulo.Text)
                text.Append("[b]")


                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()
'Dar duas linhas de espaço na var text 
               text.AppendLine()
               text.AppendLine()

                m_streamWriter.Write("Comentario")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxComentario.Text)
                m_streamWriter.Write("[b]")
'escreve na var text
                text.Append("Comentario")
                text.Append("[b]")
                text.Append(TbxComentario.Text)
                text.Append("[b]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()
'Dar duas linhas de espaço na var text 
               text.AppendLine()
               text.AppendLine()
'tens de continuar apartir daqui 

                m_streamWriter.Write("ScreenShots:")
                If TbxImg1.Text <> "" Then
                    m_streamWriter.Write("[img]")
                    m_streamWriter.Write(TbxImg1.Text)
                    m_streamWriter.Write("[/img]")
                Else
                    m_streamWriter.WriteLine()
                End If

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Links para download:")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown1.Text)
                m_streamWriter.Write("]Download Parte 1[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown2.Text)
                m_streamWriter.Write("]Download Parte 2[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown3.Text)
                m_streamWriter.Write("]download Parte 3[/url]")
                m_streamWriter.Write("[url=")
                m_streamWriter.Write(TbxDown4.Text)
                m_streamWriter.Write("]Download Parte 4[/url]]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Partes:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxPartes.Text)
                m_streamWriter.Write("[b]")

                m_streamWriter.WriteLine()
                m_streamWriter.WriteLine()

                m_streamWriter.Write("Tamanho:")
                m_streamWriter.Write("[b]")
                m_streamWriter.Write(TbxTamanho.Text)
                m_streamWriter.Write("[b]")

'converte a var text para string e retorna-a como valor da função
                Return (text.ToString)


                ' fecha o arquivo
                m_streamWriter.Flush()
                m_streamWriter.Close()
            End If
        Catch em As Exception
            MsgBox("Erro a salvar o arquivo ", MsgBoxStyle.Critical, "Erro ao Salvar")
        End Try

    End Function



End Class

agora no code do botão metes

sobre.ShowDialog()

sobre.TbxTexto.Text = converter()

;)

Diz qq coisa

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mete uma msgbox("Debug") asseguir ao If Me.SDTexto.ShowDialog() = Windows.Forms.DialogResult.OK Then

para teres a certeza que esse if está a ser passado....

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas eu trokei uma beca o codigo e ele mostra a msg tanto se meter antes como depois ...

o codigo agora esta assim

Function converter()
        Try

            Dim fs As New FileStream(SDTexto.FileName, FileMode.Append, FileAccess.Write)
            Dim m_streamWriter As New StreamWriter(fs)
            m_streamWriter.Flush()
            'Escreve para o arquivo usando a classe StreamWriter
            'm_streamWriter.BaseStream.Seek(SeekOrigin.Begin, SeekOrigin.Current)
            ' escreve no controle richtextbox
            m_streamWriter.Write("Titulo:")
            m_streamWriter.Write("[b]")
            m_streamWriter.Write(TbxTitulo.Text)
            m_streamWriter.Write("[b]")

            m_streamWriter.WriteLine()
            m_streamWriter.WriteLine()

            If TbxImg1.Text <> "" Then
                m_streamWriter.Write("[img]")
                m_streamWriter.Write(TbxImg1.Text)
                m_streamWriter.Write("[/img]")
            Else
                m_streamWriter.WriteLine()
            End If

            m_streamWriter.WriteLine()
            m_streamWriter.WriteLine()

            m_streamWriter.Write("Links para download:")
            If TbxDown1.Text <> "" Then
                m_streamWriter.WriteLine("[url=")
                m_streamWriter.Write(TbxDown1.Text)
                m_streamWriter.Write("][b]Download Parte 1[/color][/b][/url]")
            Else
                m_streamWriter.WriteLine()
            End If

            If TbxDown2.Text <> "" Then
                m_streamWriter.WriteLine("[url=")
                m_streamWriter.Write(TbxDown2.Text)
                m_streamWriter.Write("][b]Download Parte 2[/color][/b][/url]")
            Else
                m_streamWriter.WriteLine()
            End If

            If TbxDown3.Text <> "" Then
                m_streamWriter.WriteLine("[url=")
                m_streamWriter.Write(TbxDown3.Text)
                m_streamWriter.Write("][b]download Parte 3[/color][/b][/url]")
            Else
                m_streamWriter.WriteLine()
            End If
            If TbxDown4.Text <> "" Then
                m_streamWriter.WriteLine("[url=")
                m_streamWriter.Write(TbxDown4.Text)
                m_streamWriter.Write("][b]Download Parte 4[/color][/b][/url]]")
            Else
                m_streamWriter.WriteLine()
            End If

            m_streamWriter.WriteLine()
            m_streamWriter.WriteLine()

            m_streamWriter.Write("Tamanho: ")
            m_streamWriter.Write("[b]")
            m_streamWriter.Write(TbxTamanho.Text)
            m_streamWriter.Write("[b]")


            ' fecha o arquivo
            m_streamWriter.Flush()
            m_streamWriter.Close()
            'End If

        Catch em As Exception
            MsgBox("Erro a salvar o arquivo ", MsgBoxStyle.Critical, "Erro ao Salvar")
        End Try
        Return (resultado)

    End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas tu não metes-te o código que te disse....

'declara a var text

                Dim text As New System.Text.StringBuilder()

etc... etc... etc...

Vê o code que postei antes e mete no teu aquelas partes da var Text (no fim depois terá de ser return(text.ToString) )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pois foi lol ja vejo tudo igual :\ desculpa la ;) vou tentar isso mais logo e depois digote algo :) desde ja  obrigado :P

[]'s

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