Smart Device - InputPanel Númerico

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja neste artigo de Jefferson Luis, como mostrar a parte númerica do teclado virtual no InputPanel usando VB.NET.

Mostrando a parte númerica do teclado virtual no InputPanel usando VB.NET

Em quase todas as aplicações para Pocket PC usa-se o teclado virtual, você já deve ter desenvolvido alguma aplicação que os campos em que o usuário irá utilizar apenas a parte numérica do teclado virtual.

Nesse artigo demonstrarei como habilitar apenas a parte numérica do teclado virutal, importaremos algumas funções da Dll core.dll, usaremos a Plataforma Invoke para charmar funções de DLL não gerenciadas.

Inicando o Desenvolvimento

Usarei nesse artigo o Microsoft Visual Studio 2003, abra ele, criei um novo Projeto, usando a Linguagem VB.net, do tipo Smart Device Application, escolha a Plataforma Pocket PC e o tipo Windows Application.

Após criado o projeto araste um TexBox, um InputPanel e um Button para o Formulário principal, altere a propriedade Text do Button para Mostra Teclado Virtual Numérico.

No Solution Explorer clique encima da solução e em Add/Add Modulo, coloque o nome desse módulo para InputPanelNumerico.vb, insira nesse modulo o código da Listagem 1.

 

Listagem 1. Código do InputPanelNumerico.vb

Imports System

Imports System.Runtime.InteropServices

Imports System.Drawing

Imports System.Collections

Imports System.Windows.Forms

Imports System.Data

Imports Microsoft.WindowsCE.Forms

 

Module InputPanels

#Region " P/Invoke definições "

 

Declare Function FindWindow Lib "coredll" (ByVal wndClass As String, ByVal caption As String) As IntPtr

 

Declare Function GetWindow Lib "coredll" (ByVal hWnd As IntPtr, ByVal nType As Integer) As IntPtr

 

Declare Function GetPixel Lib "coredll" (ByVal hdc As IntPtr, ByVal nXPos As Integer, ByVal nYPos As Integer) As Integer

 

Declare Sub SetPixel Lib "coredll" (ByVal hdc As IntPtr, ByVal nXPos As Integer, ByVal nYPos As Integer, ByVal clr As Integer)

 

Declare Function GetDC Lib "coredll" (ByVal hWnd As IntPtr) As IntPtr

 

Declare Sub ReleaseDC Lib "coredll" (ByVal hWnd As IntPtr, ByVal hDC As IntPtr)

 

Declare Function SipSetCurrentIM Lib "coredll" (ByVal clsid As Byte()) As Boolean

 

Const WM_LBUTTONDOWN As Integer = &H201

Const WM_LBUTTONUP As Integer = &H202

Const GW_CHILD As Integer = 5

 

#End Region

    Public Sub InputNumeric(ByVal InputPanel1 As Microsoft.WindowsCE.Forms.InputPanel)

        ' Mostra o Teclado Virtual se ele não estiver visivel

        If Not (InputPanel1.Enabled) Then

            InputPanel1.Enabled = True

            Application.DoEvents()

        End If

 

        Dim clsidKbdIM As New Guid("{42429667-ae04-11d0-a4f8-00aa00a749b9}")

        SipSetCurrentIM(clsidKbdIM.ToByteArray())

 

        Dim hWnd As IntPtr

        hWnd = FindWindow("SipWndClass", "")

 

        hWnd = GetWindow(hWnd, GW_CHILD)

 

        Dim hDC As IntPtr

        hDC = GetDC(hWnd)

        Dim pixel As Integer

        pixel = GetPixel(hDC, 2, 2)

 

        Dim clrText As Integer

        clrText = ((CInt(SystemColors.Window.R)) Or (CInt(SystemColors.Window.G) << 8) Or (CInt(SystemColors.Window.B) << 16))

        SetPixel(hDC, 2, 2, clrText)

 

        Dim pixelNew As Integer

        pixelNew = GetPixel(hDC, 2, 2)

 

        SetPixel(hDC, 2, 2, pixel)

 

        If (pixel = pixelNew) Then

            Dim msg As Message = Message.Create(hWnd, WM_LBUTTONDOWN, New IntPtr(1), New IntPtr(&H90009))

            MessageWindow.SendMessage(msg)

            msg = Message.Create(hWnd, WM_LBUTTONUP, New IntPtr(0), New IntPtr(&H90009))

            MessageWindow.SendMessage(msg)

        End If

 

        ReleaseDC(hWnd, hDC)

    End Sub

End Module

 

Aqui foi declarada a função InputNumeric que recebe como parâmetro um InputPanel no qual só será exibido a parte numérica do telcado.

Referenciando e chamando o Teclado Virtual Númerico

É necessário referenciar os seguintes namespaces Microsoft.WindowsCE.Forms, para isso no Solution Explorer, na solução atual em References clique com o botão direito do mouse e Add Reference, abrirá seguinte janela Figura 1.

 

Figura 1. Referenciando o Namespace necessário

Agora volte ao formulário principal no evento Click do Button coloque o seguinte código, Listagem 2.

 

Listagem 2. Chamando o Teclado Virtual Númerico

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  InputNumeric(InputPanel1)

End Sub

 

Agora execute a aplicação no Emulador e veja o antes e o depois do teclado virtual, quando você clicar no Botão será exibida a parte Numérica do Teclado, você poderia ter colocar esse código no evento Load do Formulário assim quando o usuário entrasse no Formulário ele automaticamente estaria com a parte numérica do teclado virtual, veja o resultado na Figura 2.

 

Figura 2. Na primeira imagem mostra o Teclado Virtual normal, quando clicamos no Button ele mostrará o Teclado Virtual Numérico como na segunda imagem.

Conclusões

Agora você poderá usar essa função para mostrar a parte numérica do teclado virtual, em qualquer tipo de aplicação basta copiar esse modulo e executar a função.

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?