AJUDA GERADOR DE POEMA

ZARCE 26/04/2013 10:33:06
#422542
Eu Quero Escrever No Palavra 1 ao 3 e Aparecer a Palavra No Poema [Ô]Fui Ao Comer Voltei de[Ô]

Ta Ai o Print de Mais Ou Menos Como eu quero
KERPLUNK 26/04/2013 11:13:27
#422548
Bacana que você sabe o que quer fazer, mas qual a sua dúvida?
ZARCE 26/04/2013 11:22:45
#422550
Minha Duvida:



Eu To Querendo Escrever Uma Palavra nos texbox e que Elas Apareça, No Poema Ao Lado Mas Sem Modificar as Outras Palavras Somente As:

Palavra 1
Palavra 2
Palavra 3

Eu Ja tentei de Tudo Quanto eh Jeito Mas Nao Vai Me Ajudem Please.
KERPLUNK 26/04/2013 12:06:30
#422554
Acho que não tentou de tudo quanto é jeito não... Isso está me parecendo um trabalho de cursinho, mas enfim, vamos te ajudar. O que você quer fazer é ao clicar no botão, preencher o campo da poesia, com strings pré-estabelecidas concatenadas com o que digitar nas caixas, certo? Se for o caso:

dim poema as string
poema = [Ô]Fui ao [Ô] & textbox1.text & vbNewLine
poema = poema & [Ô]Comer [Ô] & textbox2.text & vbNewLine
poema = poema & [Ô]E voltei [Ô] & textbox3.text & vbNewLine
textboxPoema.text = poema


Não esqueça de substituir os [Ô]textboxX[Ô] pelos nomes das suas textbox.
ZARCE 26/04/2013 12:22:33
#422556
Amigo a Utima Linha Esta Dando Erro

[Ô]textboxPoema.text = poema[Ô]
ZARCE 26/04/2013 12:26:59
#422557
Amigo Arrumei o Erro malz kk eh Pq eu tinha que Renomeiar a TextBox do Poema kkk
ZARCE 26/04/2013 12:30:04
#422559
Mas Man e se Eu Quizer Criar Uma Frase e A Palavra no Meio Tipo Assim:

Fui Na [Ô]Palavra[Ô] Foi Muito Bom Comi [Ô]Palavra[Ô]

ou Somente Assim:

Fui Na [Ô]Palavra[Ô] Foi Muito Bom.
KERPLUNK 26/04/2013 14:09:52
#422570
Quase a mesma coisa, só ao invés de concatenar, você vai usar o comando Replace:

dim poema as string
poema = Replace([Ô]Fui ao {Marcador} ele explodiu [Ô], [Ô]{Marcador}[Ô], textbox1.text) & vbNewLine
poema = poema & Replace([Ô]Daí um {Marcador} apareceu do nada[Ô], [Ô]{Marcador}[Ô], textbox2.text) & vbNewLine
poema = poema & Replace([Ô]E eu {Marcador} com ele[Ô], [Ô]{Marcador}[Ô], textbox3.text) & vbNewLine
textboxPoema.text = poema
Faça seu login para responder
Voltar