AJUDA - CICLO COM CONDICAO DE PARAGEM

USUARIO.EXCLUIDOS 15/12/2006 19:03:17
#190294
Aí pessoal tudo bom? Desculpa, mas eu sou mesmo leigo em Visual Basic

é o seguinte: eu queria fazer im ciclo com condição de paragem até que a tecla P seja pressionada.

Por exemplo: em ciclo que escreve a letra A numa textbox até que a tecla P seja precionada.


Muito obrigado desde já!
USUARIO.EXCLUIDOS 15/12/2006 19:21:01
#190302
Olá,

Vc quer que seja informado automaticamente até a letra P ou o usuário vai digitando até que quando ele digite a letra P aconteca algo ?

Veja esse código abaixo que verifica o que for digitado num textbox. Se for pressionada a letra P ele mostra uma mensagem. Não sei se é isso q vc está querendo.

Private Sub TextBox_Change()
    X = Right(TextBox.text, 1)
    If UCase(X) = "P" Then
        MsgBox "asdfasdf"
    End If
End Sub



Espero poder tê-lo ajudado.

Boa Sorte,


Daniel
YVESMAURICIO 15/12/2006 19:38:17
#190304
se não for o que o DANIELDGOMES disse vc terá que usar o DoEvents dentro do seu ciclo...

abraço...
USUARIO.EXCLUIDOS 16/12/2006 11:37:23
#190367
Desde já muito obrigado pela respostas, vocês são 10!

Mas o que eu quero é, por exemplo: um ciclo infinito que escreve a msgbox "Teste" até que a leta p seja pressionada! é possivel fazer isto?

Muito obrigado desde já!
USUARIO.EXCLUIDOS 16/12/2006 11:53:49
#190368
Cara, faça assim, nas caixa de propriedades de seu form, ponha o KeyPreview = True, coloque um textbox e um commandbutton e cole o código no form:

Dim Cancelar As Boolean

[c]Private Sub Command1_Click()
  Cancelar = False
  'Faz o loop enqto o cancelar é falso
  Do While Cancelar = False
    'Ação do loop
    Text1.Text = Text1.Text & "A"
    'Libera os eventos (para q o VB perceba o pressionamento da tecla)
    DoEvents
  Loop
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift AS Integer)
  'Verifica se pressionou o "P"
  If KeyCod = vbKeyP Then Cancelar = True
End Sub


Agora clique no botão e veja se funfa...flw
[/c]
USUARIO.EXCLUIDOS 16/12/2006 12:05:58
#190369
Funciona perfeitamente... Muito obrigado, a sua ajuda ajudou muito...

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