com Setfocus

[RGRQRS 0]

Boa noite!!!

 

Estou iniciando um curso em VB e preciso de auxilio no segundo private.

 

Este codigo abaixo limpa todos os campos e retorna para o primeiro campo TxT1.text, onde seria digitado os valores novamente, está OK.

 

Private Sub cmdLimpar_Click()

 

TxT1.Text = ""

TxT2.Text = ""

TxT3.Text = ""

TxT1.SetFocus

 

End Sub

 

Este codigo abaixo limpa todos os campos e deveria retornar para o primeiro campo lbln1, onde seria inserido os valores atraves de comando, não funciona.

 

Private Sub cmdlimpar_Click()

 

lbln1 = ""

lbln2 = ""

lblresultado = ""

lbln1.Setfocus ................o erro é apresentado aqui

 

End Sub

 

 

Será que label não aceita o setfocus?

O que devo fazer então?

 

Desde já muito obrigado.

 

rgrqrs

[renatoalexrocha 0]

Olá RGRQRS,

 

também sou novo em VB 6, mas pelo pouco que conheço, LABEL não aceita SetFocus, mas você pode utilizar um inputbox para atribuir um valor para este label.

 

EX: lbln1=inputbox("Digite um valor?")

este comando você poderá colocá-lo no evento Load do form, em OnClick de um botão, ele abrirá uma pequena janela para que você possa digitar o valor ou texto e após clicar em OK, a label receberá este valor.

 

espero que possa ter te ajudado,

 

Renatoalexrocha. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[RGRQRS 0]

Olá RGRQRS,

 

também sou novo em VB 6, mas pelo pouco que conheço, LABEL não aceita SetFocus, mas você pode utilizar um inputbox para atribuir um valor para este label.

 

EX: lbln1=inputbox("Digite um valor?")

este comando você poderá colocá-lo no evento Load do form, em OnClick de um botão, ele abrirá uma pequena janela para que você possa digitar o valor ou texto e após clicar em OK, a label receberá este valor.

 

espero que possa ter te ajudado,

 

Renatoalexrocha. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Renatoalexrocha

 

Muito obrigado pela ajuda funcionou exatamente como você detalhou, vou entregar assim, se constetarem algo volto a fazer com text e ja era..

 

walew