c
| Por Kleber Ferucci Pomarico kleberpomarico@globo.com Analista de Sistemas, atualmente trabalhando em uma multinacional, cursando graduação em Processamento de Dados na Faculdade Informática e Administração Paulista (FIAP), palestrante acadêmico Microsoft em plataforma .NET, Líder do Hub PocketPC no The Spoke Brasil, experiência de 3 anos em .NET, conhecimentos e práticas em Framework .NET, Compact Framework .NET, ASP.NET, WinForms, PocketPC, VB.NET, C#.NET, Active Reports for .NET, MS SQL 2000, UML, XML. Visite o meu The spoke: http://br.thespoke.net/MyBlog/kleberpomarico/MyBlog.aspx |
|
|
|
|
| Habilitando e desabilitando o teclado do pocketPC para controles TEXTBOX | |
|
|
|
Neste artigo irei mostrar como podemos habilitar e desabilitar o
teclado do pocketPC através de dos eventos GotFocus e LostFocus do controle
TEXTBOX.


Após criar a aplicação, mude as propriedades do formulário, como
mostra abaixo:
|
Propriedade do Formulário |
Valores |
|
Name |
frmDefault |
|
Text |
Menu |

Em seguida adicione o controle InputPainel, localizado no TOOLBOX
do Visual Studio .NET. E mantenha as propriedades default dele.

O InputPainel deverá estar no canto inferior esquerdo do seu
layout, como mostra a figura abaixo:

Adicione no formulário, (2) TEXTBOX.
|
Propriedade do TextBox |
Valores |
|
Name |
txtCampo1 |
|
Text |
"" |

|
Propriedade do TextBox |
Valores |
|
Name |
txtCampo2 |
|
Text |
"" |

Seu formulário deverá ficar com o mesmo "stilo" que a figura
abaixo:

![]()
![]()
Logo seu código terá que estar com esses dois eventos:
Private Sub txtCampo1_GotFocus(ByVal
sender As Object, ByVal e As
System.EventArgs) Handles
txtCampo1.GotFocus
Try
Me.InputPanel1.Enabled
= True
Catch
ex As Exception
MessageBox.Show(ex.ToString)
EndTry
End Sub
Private Sub txtCampo1_LostFocus(ByVal
sender As Object, ByVal e As
System.EventArgs) Handles
txtCampo1.LostFocus
Try
Me.InputPanel1.Enabled
= False
Catch
ex As Exception
MessageBox.Show(ex.ToString)
EndTry
End Sub

Figura 2. Mostra o teclado desativado
no momento em que o usuário clicar no txtCampo2!!!

Espero que tenha ajudado para o seu desenvolvimento.