RICHTEXTBOX
da pra gerar um arquivo .rtf
tipo ler do banco de dados e imprimir em uma richtextbox
como imprimir em um picturebox,ou em um form
ex select nome,codigo from minhatabela
do until banco.eof
picture1.print banco([Ô]codigo[Ô])
picture1.print banco([Ô]nome[Ô])
loop
tem jeito??
deu pra entender
tipo ler do banco de dados e imprimir em uma richtextbox
como imprimir em um picturebox,ou em um form
ex select nome,codigo from minhatabela
do until banco.eof
picture1.print banco([Ô]codigo[Ô])
picture1.print banco([Ô]nome[Ô])
loop
tem jeito??
deu pra entender
Deu sim, sabe uma coisa q eu fiz ??
Abri um arquivo .rtf com gostaria que as linhas fossem ficar copiei os códigos e comecei a exportar para rtf atraves dos famosos StreamWriter.
Ai descobri que enquanto eu me matava para fazer isso, tinha um controle chamado [Ô]RichTextBox[Ô] que deixava eu fazer isso sem precisar me matar como antes.
Pelo que vejo vc quer fazer isso em VB6 neh?? Em VB6 tem esse controle.
Clique com o botão direito na barra de ferramentas->Components
Em seguida selecione a opção [Ô]Microsoft Rich Textbox Control[Ô] ele funciona como um textbox normal e pode ser salvo em formato rtf tbm claaarooo !! Seguindo sua linha de raciocionio supondo q o controle chama [Ô]RichTextBox1[Ô] ficaria assim:
Será que te ajuda ??
Abraços !!!
Abri um arquivo .rtf com gostaria que as linhas fossem ficar copiei os códigos e comecei a exportar para rtf atraves dos famosos StreamWriter.
Ai descobri que enquanto eu me matava para fazer isso, tinha um controle chamado [Ô]RichTextBox[Ô] que deixava eu fazer isso sem precisar me matar como antes.
Pelo que vejo vc quer fazer isso em VB6 neh?? Em VB6 tem esse controle.
Clique com o botão direito na barra de ferramentas->Components
Em seguida selecione a opção [Ô]Microsoft Rich Textbox Control[Ô] ele funciona como um textbox normal e pode ser salvo em formato rtf tbm claaarooo !! Seguindo sua linha de raciocionio supondo q o controle chama [Ô]RichTextBox1[Ô] ficaria assim:
[ô]Para limpar todo o texto que está nele
RichttextBox1
Do Until banco.eof
RichttextBox1.text = RichttextBox1.text & banco([Ô]codigo[Ô]) & vbcrlf
RichttextBox1.text = RichttextBox1.text & banco([Ô]nome[Ô]) & vbcrlf & vbcrlf
LoopSerá que te ajuda ??
Abraços !!!
entao esley é quase isso
mas queria mudar
tipo de letra,tamanho au cor da fonte por exemplo
para cada entrada
mas obrigado pela força
mas queria mudar
tipo de letra,tamanho au cor da fonte por exemplo
para cada entrada
mas obrigado pela força
Tópico encerrado , respostas não são mais permitidas