TEMPO PARA ENVIO!

PEGUDO 12/11/2013 12:30:02
#431031

Dentro do Timer, pode colocar

Dim valor As Byte = 0

If CheckBox1.Checked Then
    valor = 10
ElseIf valor = 20 Then
    valor = 20
End If

For A = 0 to (valor - 1)
    [txt-color=#007100][Ã´]Envia 10 ou 20 emails dependendo da seleção[/txt-color]
Next

PEGUDO 12/11/2013 12:35:18
#431032

Você nunca vai conseguir do jeito que está tentando porque a propriedade Text da TexBox Ã© uma String
O certo seria:

For A = 0 To TextBox1.Text.Lenght - 1
    [txt-color=#007100][Ã´]Código[/txt-color]
Next

NETBRFAKES 12/11/2013 12:39:45
#431033

Consegui , vlw PEGUDO por me mostrar o caminho certo
segue abaixo meu codigo

minutos5.Interval = TextBox1.Text

minutos5.Enabled = False

Dim quan As Decimal

quan = TextBox2.Text

For a = 0 To quan

Next

minutos5.Enabled = True

Página 2 de 2 [13 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar