Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


4 participantes

    [Resolvido] Comando VB 2008

    Paulo Soreto
    Paulo Soreto
    Paulo Soreto
    Lenda
    Lenda


    Mensagens : 1980
    Créditos : 367

    Ficha do personagem
    Nível: 1
    Experiência:
    [Resolvido] Comando VB 2008 Left_bar_bleue0/0[Resolvido] Comando VB 2008 Empty_bar_bleue  (0/0)
    Vida:
    [Resolvido] Comando VB 2008 Left_bar_bleue30/30[Resolvido] Comando VB 2008 Empty_bar_bleue  (30/30)
    • Mensagem nº1

    [Resolvido] Comando VB 2008 Empty [Resolvido] Comando VB 2008

    Mensagem por Paulo Soreto Qui Dez 01, 2011 6:43 pm

    Galera, to com uma pequena dúvida, queria saber qual o comando tipo pra verificar se há uma certa palavra na TexBox.
    Tipo pra verificar se a TextBox em si é a seguinte palavra eu uso esse comando:
    Código:
    If TextBox1.Text = "palavra" Then
                'comando
            End If
    Mas preciso saber de um comando para verificar se há uma certa palavra na TexBox.


    _________________
    [Resolvido] Comando VB 2008 FwYnoXI
    • Ir para o topo
    DFox
    DFox
    DFox
    Desenvolvedor
    Desenvolvedor


    Mensagens : 819
    Créditos : 63
    • Mensagem nº2

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por DFox Sex Dez 02, 2011 1:41 am

    eu também preciso disso, só que é no RichTextBox


    _________________
    mãe, tô no youtube
    • Ir para o topo
    Paulo Soreto
    Paulo Soreto
    Paulo Soreto
    Lenda
    Lenda


    Mensagens : 1980
    Créditos : 367

    Ficha do personagem
    Nível: 1
    Experiência:
    [Resolvido] Comando VB 2008 Left_bar_bleue0/0[Resolvido] Comando VB 2008 Empty_bar_bleue  (0/0)
    Vida:
    [Resolvido] Comando VB 2008 Left_bar_bleue30/30[Resolvido] Comando VB 2008 Empty_bar_bleue  (30/30)
    • Mensagem nº3

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por Paulo Soreto Sex Dez 02, 2011 2:15 pm

    Eu to precisando para substituir algumas paralvras automaticamente (sugestão do Nanzin).


    _________________
    [Resolvido] Comando VB 2008 FwYnoXI
    • Ir para o topo
    DragonicK
    DragonicK
    DragonicK
    Experiente
    Experiente


    Mensagens : 542
    Créditos : 81

    Ficha do personagem
    Nível: 1
    Experiência:
    [Resolvido] Comando VB 2008 Left_bar_bleue0/0[Resolvido] Comando VB 2008 Empty_bar_bleue  (0/0)
    Vida:
    [Resolvido] Comando VB 2008 Left_bar_bleue30/30[Resolvido] Comando VB 2008 Empty_bar_bleue  (30/30)
    • Mensagem nº4

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por DragonicK Sex Dez 02, 2011 2:30 pm

    If TextBox1.Text.ToLower.Contains("palavra") Then
    TextBox1.Text = TextBox1.Text.Replace("Palavra", "Nova Palavra")
    End If

    Use isso.
    • Ir para o topo
    Valentine
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : [Resolvido] Comando VB 2008 ZgLkiRU
    Mensagens : 5336
    Créditos : 1163
    • Mensagem nº5

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por Valentine Sex Dez 02, 2011 2:40 pm

    Nadaila escreveu: If TextBox1.Text.ToLower.Contains("palavra") Then
    TextBox1.Text = TextBox1.Text.Replace("Palavra", "Nova Palavra")
    End If

    Use isso.
    E no vb6 como faz isso?
    • Ir para o topo
    DragonicK
    DragonicK
    DragonicK
    Experiente
    Experiente


    Mensagens : 542
    Créditos : 81

    Ficha do personagem
    Nível: 1
    Experiência:
    [Resolvido] Comando VB 2008 Left_bar_bleue0/0[Resolvido] Comando VB 2008 Empty_bar_bleue  (0/0)
    Vida:
    [Resolvido] Comando VB 2008 Left_bar_bleue30/30[Resolvido] Comando VB 2008 Empty_bar_bleue  (30/30)
    • Mensagem nº6

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por DragonicK Sex Dez 02, 2011 3:01 pm

    Dim count as byte
    Dim start as byte
    count = 1
    start = 1

    TextBox1.Text = Replace(TextBox1.Text, "Palavra", "Nova Palavra", start, count, 0)

    Count quer dizer o número de buscas, caso seja 2 irá substituir 2 palavras começando na primeira letra do texto (start). E o 0 no final, quer dizer o tipo de comparação como eu não uso mais o visual basic 6. Não sei qual valor se usa, por padrão deixo em 0.


    Última edição por Nadaila em Sex Dez 02, 2011 3:06 pm, editado 1 vez(es)
    • Ir para o topo
    Paulo Soreto
    Paulo Soreto
    Paulo Soreto
    Lenda
    Lenda


    Mensagens : 1980
    Créditos : 367

    Ficha do personagem
    Nível: 1
    Experiência:
    [Resolvido] Comando VB 2008 Left_bar_bleue0/0[Resolvido] Comando VB 2008 Empty_bar_bleue  (0/0)
    Vida:
    [Resolvido] Comando VB 2008 Left_bar_bleue30/30[Resolvido] Comando VB 2008 Empty_bar_bleue  (30/30)
    • Mensagem nº7

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por Paulo Soreto Sex Dez 02, 2011 3:06 pm

    Funcionou perfeitamente aqui xD Vlw ela ajuda


    _________________
    [Resolvido] Comando VB 2008 FwYnoXI
    • Ir para o topo
    Valentine
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : [Resolvido] Comando VB 2008 ZgLkiRU
    Mensagens : 5336
    Créditos : 1163
    • Mensagem nº8

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por Valentine Sex Dez 02, 2011 4:44 pm

    Obrigado, se as 2 dúvidas foram solucionadas, então tópico trancado.

    + 2 créditos pro Nadaila
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº9

    [Resolvido] Comando VB 2008 Empty Re: [Resolvido] Comando VB 2008

    Mensagem por Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Seg Abr 29, 2024 11:38 am