Datagridview Richtextbox

Question

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! 

Answer 1

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".

Answer 2

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 

 

Answer 3

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".

Answer 4

 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: [phone] - 3517")
        RichTextBox1.AppendText("                                                    Rua: Fernando Colombo, Pq das Americas - Maúa - SP")
        RichTextBox1.AppendText("                                                    Email: [e-mail]")
        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