Solved

Tablet PC PenInputPanel

Posted on 2003-12-04
2
370 Views
Last Modified: 2012-05-04
I'm writing a prototype for the Tablet PC and can't figure out how to get the PenInputPanel to display.

I've tried code like the following...

     Dim thePenInputPanel As New PenInputPanel(PainDiagram.ActiveForm)
     thePenInputPanel.Visible = True

I've even tried to attach it to a control, but nothing.

One note, even though I have the latest TabletPC SDK installed, I get an error on my development box, when this code is ran, stating that the Com object i either not valid or not registered. I do not get this error when it is ran on a Tablet PC. Maybe this is because of my dev box not being a tablet pc.

Please Help
0
Comment
Question by:jeremypettit
2 Comments
 
LVL 1

Author Comment

by:jeremypettit
ID: 9897067
Got it to work after compiling on tablet

'In Declarations
Dim thePenInputPanel As PenInputPanel()

'In form Load
            thePenInputPanel = New PenInputPanel(InkEdit1)
            thePenInputPanel.DefaultPanel = PanelType.Keyboard
            thePenInputPanel.CurrentPanel = PanelType.Keyboard
            thePenInputPanel.AutoShow = True
            'thePenInputPanel.
            Dim PanelTop As Int32 = Screen.PrimaryScreen.WorkingArea.Height - thePenInputPanel.Height

            thePenInputPanel.MoveTo(0, PanelTop)



            ' Add a VisibleChanged event handler
            AddHandler thePenInputPanel.VisibleChanged, AddressOf VisibleChanged_Event



Public Sub VisibleChanged_Event(ByVal sender As Object, ByVal e As PenInputPanelVisibleChangedEventArgs)
        Try
            ' Make sure the object that generated
            ' the event is a PenInputPanel object
            If TypeOf sender Is PenInputPanel Then
                Dim thePanel As PenInputPanel = CType(sender, PenInputPanel)

                ' When the panel has become visible...
                If e.NewVisibility Then
                    ' Display the left edge of the
                    ' panel in the attached edit control
                    thePanel.AttachedEditControl.Text += "The left edge of the panel is at "
                    thePanel.AttachedEditControl.Text += thePanel.Left.ToString()
                    thePanel.AttachedEditControl.Text += " pixels." + ControlChars.Lf
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message & vbNewLine & ex.Source)
        End Try
    End Sub 'VisibleChanged_Event
0
 

Accepted Solution

by:
PashaMod earned 0 total points
ID: 9899407
Question closed and points refunded

PashaMod
CS Moderator
0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Summary Displaying images in RichTextBox is a common requirement with limited solutions available. Pasting through clipboard or embedding into RTF content only support static images.  This article describes how to insert Windows control objects int…
A basic question.. “What is the Garbage Collector?” The usual answer given back: “Garbage collector is a background thread run by the CLR for freeing up the memory space used by the objects which are no longer used by the program.” I wondered …
This video discusses moving either the default database or any database to a new volume.
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now