[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 411
  • Last Modified:

Tablet PC PenInputPanel

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
jeremypettit
Asked:
jeremypettit
1 Solution
 
jeremypettitAuthor Commented:
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
 
PashaModCommented:
Question closed and points refunded

PashaMod
CS Moderator
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now