Jump to content

[Resolvido] Textbox focus e tecla enter


a3deluxe
 Share

Recommended Posts

Boas,

Queria que quando inicia-se o meu Form

a Textbox1 fica-se logo activa com Focus

para isso tentei:

//  
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


       TextBox1.Focus()
       Me.ActiveControl = TextBox1
       TextBox1.Select()

   End Sub

E não funcionou.

Depois queria quando carrega-se na tecla ENTER ele aceita-se.o que escrevi.

Link to comment
Share on other sites

O evento Load é chamado quando o formulário é criado e carregado na memoria, e se ele for fechado e aberto novamente esse evento não é chamado, por isso deves usar o evento Shown.

Apenas uma dessas instruções é necessária e a mais adequada é Select(), e a instrução Focus() não irá funcionar no evento Load

O melhor seria estabeleceres a ordem de tabulação com esse controlo no inicio e a propriedade TabStop activada.

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Link to comment
Share on other sites

Precisas chamar funções API:

   Private Declare Function HideCaret Lib "user32" (ByVal wHandle As Int32) As Int32
   Private Declare Function ShowCaret Lib "user32" (ByVal wHandle As Int32) As Int32

E se queres que nunca mostre o cursor (Caret) usa o evento GotFocus da textbox:

Private Sub TextBox1_GotFocus(sender As Object, e As System.EventArgs) Handles TextBox1.GotFocus
    HideCaret(TextBox1.Handle.ToInt32)
   End Sub

O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.