none
Datagridview Richtextbox RRS feed

  • Pergunta

  • Ola! amigo sou novo aqui e estou tentando aprender um pouco de desenvolvimento e criação de programas pelo Visual Basic 2013

    Se alguem pode me ajudar estou com um projeto para pq não consigo colocar os dados da Datagridview para richtexbox eu quero enviar os dados por email ou tem outra geito de substituir o Richetbox por outra ferramenta que possa esta usando

    desde ja agradeço a força! 


    quinta-feira, 9 de março de 2017 04:51

Respostas

Todas as Respostas

  • Você precisa ler os dados do seu grid e preencher o RichTextBox manualmente.

    Mais instruções sobre como adicionar valores ao RichTextBox em: https://msdn.microsoft.com/en-us/library/aa733684%28v=vs.60%29.aspx?f=255&MSPPError=-2147217396

    De qualquer modo, como precisa enviar o conteúdo por e-mail, o ideal na minha opinião é utilizar um editor baseado em HTML (RTF também funciona). Seguem alguns links: https://code.msdn.microsoft.com/windowsapps/WinForms-HTML-Editor-01dbce1a#content e https://github.com/tewuapple/WinHtmlEditor


    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".

    Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".



    quinta-feira, 9 de março de 2017 10:38
  • não tem um codigo mais fácil preciso que quanto eu perte um botão os dados do Datagridview va para o richtextbox

    para que possa enviar por email 

     
    quinta-feira, 9 de março de 2017 17:10
  • Infelizmente não há um recurso automático para isto.

    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".

    Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    sexta-feira, 10 de março de 2017 01:17
  •  Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

            RichTextBox1.AppendText("  ")
            RichTextBox1.AppendText(" ")
            RichTextBox1.AppendText("  ")
            RichTextBox1.AppendText("                                                                    " & "      " & Format(Now, "dd/MM/yyyy") & "       " & Format(Now, "HH:mm"))
            RichTextBox1.AppendText("                                                    CNPJ: " & "" & "Tel: (11) Tel: 11 99761 - 3517")
            RichTextBox1.AppendText("                                                    Rua: Fernando Colombo, Pq das Americas - Maúa - SP")
            RichTextBox1.AppendText("                                                    Email: cr.representacoes2010@hotmail.com")
            RichTextBox1.AppendText("  ")
            RichTextBox1.AppendText(" ")
            RichTextBox1.AppendText(" ")
            RichTextBox1.AppendText("...........................................................................................................................................")
            RichTextBox1.AppendText("                                                                                    Pedido                                                                        ")
            RichTextBox1.AppendText("Cliente : " & "             " & (Cliente_TextBox1.Text) & "      " & (" Nro.Nota:  " & "     " & (Nro__Nota_TextBox1.Text)))
            RichTextBox1.AppendText(" End:  " & "     " & (Endereço_TextBox1.Text) & "        " & (" Data Saida/Baixa:  " & "     " & (MaskedTextBox9.Text) & "       " & (" Frete:  " & "     " & (Frete_TextBox1.Text))))
            RichTextBox1.AppendText(" Bairro:  " & "     " & (Bairro_TextBox1.Text) & "        " & (" Cidade:  " & "     " & (Cidade_TextBox1.Text) & "       " & (" UF:  " & "     " & (UF_TextBox1.Text) & "     " & ("CEP: " & "     " & (MaskedTextBox8.Text) & "     " & (" Forma de Pagto.: " & "     " & (TextBox5.Text))))))
            RichTextBox1.AppendText(" CNPJ:  " & "     " & (MaskedTextBox7.Text) & "        " & (" Inscr. Est.:  " & "     " & (Inscr__Est__TextBox.Text) & "       " & (" Tabela de Preço:  " & "     " & (Tabela_de_PreçoTextBox1.Text))))
            RichTextBox1.AppendText(" Contato:  " & "     " & (MaskedTextBox7.Text) & "        " & (" Fone.:  " & "     " & (MaskedTextBox11.Text) & "       " & (" Fax:  " & "     " & (MaskedTextBox12.Text) & "       " & (" Cel:  " & "     " & (MaskedTextBox13.Text)))))
            RichTextBox1.AppendText(" Email:  " & "     " & (Email_TextBox1.Text))
            RichTextBox1.AppendText(" Fornecedor:  " & "     " & (Fornecedor_TextBox.Text))
            RichTextBox1.AppendText("_________________________________________________________________________________________________________________________________")
            RichTextBox1.AppendText("   Referência   |          NCM         |           Descrição         |  Un   |   Qtde.   |      Vl. Unit. |   Desc. %   |    Vl. Total   ")
            RichTextBox1.AppendText("" & "")



    Aqui teria que entra do Datagridview1 enterndeo preciso do codigo que fica aqui e quando eu coloco  este aqui

     For Row As Integer = 0 To Me.DataGridView1.Rows.Count - 1

                For Column As Integer = 0 To Me.DataGridView1.Columns.Count - 1

                    If DataGridView1.Rows(Row).Cells(Column).Value IsNot Nothing Then

                        RichTextBox1.SelectedText = ("   Referência   |    NCM    |             Descrição           |  Un   |   Qtde.   |      Vl. Unit. |   Desc. %   |    Vl. Total   ")


                        RichTextBox1.Text = Me.DataGridView1.CurrentRow.Cells(0).Value & "    " & DataGridView1.CurrentRow.Cells(1).Value & "    " & DataGridView1.CurrentRow.Cells(2).Value & "        " & DataGridView1.CurrentRow.Cells(3).Value & "         " & DataGridView1.CurrentRow.Cells(4).Value & "         " & DataGridView1.CurrentRow.Cells(5).Value & "        " & DataGridView1.CurrentRow.Cells(6).Value & "      " & DataGridView1.CurrentRow.Cells(7).Value


                    End If
                Next
            Next

    'ele apara atudo so aparece ele e so uma linha

            RichTextBox1.AppendText("")
            RichTextBox1.AppendText("_________________________________________________________________________________________________________________________________")
            RichTextBox1.AppendText("")
            RichTextBox1.AppendText("                     Total Produtos : " & "     " & (Total_Produtos_TextBox.Text))
            RichTextBox1.AppendText("  Vendedor :   " & "" & (VendedorTextBox.Text))
            RichTextBox1.AppendText("                         Desc %  :  " & "   " & (TextBox2.Text) & "     " & "  Total Desconto  : " & " " & (Total_Subs__Trib___IPI__TextBox.Text))
            RichTextBox1.AppendText("                       Total Subs. Trib/ IPI.: " & "      " & (TextBox4.Text))
            RichTextBox1.AppendText("                                   Total a Pagar: " & "       " & (txtgeral.Text))
            RichTextBox1.AppendText(" ")


        End Sub

    quarta-feira, 15 de março de 2017 18:48