question

Visual Basic 6: Botao de comando?

Como faço para obter um botão de comando ao clicar em seu auto depois de seu feito seu trabalho por exemplo

Private Sub Command1_Click()
Origem = Inet1.OpenURL ("http://www.habbo" & hotel.Texto & "/ home /" & habidTexto & "/ identificação /")
Origem = Split (fonte,"<h2 class="" page-owner""="">")(1)
Origem = Split (fonte,"</h2>")(0)
Text1.Text = Text1.Text & origem & vbCrLf
habid.Texto = Val (habid.Texto) + 1
EndSub

Que é meu código, eu quero que ele clicar no próprio para que ele mantém indo e indo e indo

resposta Resposta

Use o loop dentro command1_click:

Private Sub Command1_Click()

while(1)


Origem = Inet1.OpenURL ("http://www.habbo" & hotel.Texto & "/ home /" & habidTexto & "/ identificação /")
Origem = Split (fonte,"<h2 class="" page-owner""="">")(1)
Origem = Split (fonte,"</h2>")(0)
Text1.Text = Text1.Text & origem & vbCrLf
habid.Texto = Val (habid.Texto) + 1

Wend
EndSub

resposta Não é a resposta que você estava procurando?
Adicionar um comentário ou resposta a esta pergunta

Pesquisar uma resposta melhor..
Ou, fazer uma pergunta..
Comentários
Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..

Guest


HTML não é permitido!

Image Code

Digite os caracteres que aparecem na imagem por isso sabemos que você é humano!

Receber um email quando alguém acrescenta outro comentário a esta pergunta


Topo da página


Home  Terms
Copyright © Accelerated Ideas 2005-2020
All rights reserved