[Resolvido] Textbox focus e tecla enter

[a3deluxe]

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.

[a3deluxe]

para a tecla ENTER resolvi assim:

//    
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Chr(13) Then
           Process.Start("notepad")
       End If
   End Sub

Agora só falta o Focus na textbox.

[FreiNando]

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.

[a3deluxe]

Resolvido..

Obrigado

Agora precisava ocultar o cursor a piscar numa Texbox, como poderia fazer??

[FreiNando]

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

[a3deluxe]

Mais uma vez muito obrigado.

funcionou sem problemas.