Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Tablet PC PenInputPanel

Posted on 2003-12-04
2
Medium Priority
?
408 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It seems a simple enough task, yet I see repeated questions asking how to do it: how to pass data between two forms. In this article, I will show you the different mechanisms available for you to do just that. This article is directed towards the .N…
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
This lesson discusses how to use a Mainform + Subforms in Microsoft Access to find and enter data for payments on orders. The sample data comes from a custom shop that builds and sells movable storage structures that are delivered to your property. …

618 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