none
loop ou next RRS feed

  • Pergunta

  •  

    Prezados, preciso fazer com que o visual basic repita uma instrução quantas vezes forem descritos em um textbox.

     

    por exemplo:

    se for informado no textbox1 o numero 10 ele repita 10 vezes a instrução   SendKeys.Send("{Tab}")

     

    agradeço desde já quem puder me ajudar.

     

     

     

     

    segunda-feira, 3 de março de 2008 18:09

Respostas

  • Gustavo,

    Um exemplo simples com For:

    Code Snippet

    Dim intNumVezes As Integer = CType(TextBox1.Text, Integer)

    For intI As Integer = 1 To intNumVezes

    SendKeys.Send("{Tab}")

    Next intI

     

     

    Um exemplo simples com Loop:

    Code Snippet

    Dim intNumVezes As Integer = CType(TextBox1.Text, Integer)

    Dim intI As Integer

     

    intI = 1

    Do While intI <= intNumVezes

       SendKeys.Send("{Tab}")

       intI = intI + 1

    Loop

     

     

    Além disso, no próprio site do MSDN, vc vai encontrar diversos vídeos sobre .NET 2005 https://www.msdnbrasil.com.br/mediacenter/default.aspx

     

    Ajude a melhorar o nosso Fórum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

     

    segunda-feira, 3 de março de 2008 18:19

Todas as Respostas

  • Gustavo,

    Um exemplo simples com For:

    Code Snippet

    Dim intNumVezes As Integer = CType(TextBox1.Text, Integer)

    For intI As Integer = 1 To intNumVezes

    SendKeys.Send("{Tab}")

    Next intI

     

     

    Um exemplo simples com Loop:

    Code Snippet

    Dim intNumVezes As Integer = CType(TextBox1.Text, Integer)

    Dim intI As Integer

     

    intI = 1

    Do While intI <= intNumVezes

       SendKeys.Send("{Tab}")

       intI = intI + 1

    Loop

     

     

    Além disso, no próprio site do MSDN, vc vai encontrar diversos vídeos sobre .NET 2005 https://www.msdnbrasil.com.br/mediacenter/default.aspx

     

    Ajude a melhorar o nosso Fórum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

     

    segunda-feira, 3 de março de 2008 18:19
  • Code Snippet

    For x As Integer = 0 To Convert.ToInt32(TextBox1.Text) - 1
               seuMetodo
    Next

    segunda-feira, 3 de março de 2008 18:28
  •  

    Obrigado, funcionou perfeitamente com oque eu tinha pensado
    terça-feira, 4 de março de 2008 13:55