jeremypettit
asked on
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
I've tried code like the following...
Dim thePenInputPanel As New PenInputPanel(PainDiagram.
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
'In Declarations
Dim thePenInputPanel As PenInputPanel()
'In form Load
thePenInputPanel = New PenInputPanel(InkEdit1)
thePenInputPanel.DefaultPa
thePenInputPanel.CurrentPa
thePenInputPanel.AutoShow = True
'thePenInputPanel.
Dim PanelTop As Int32 = Screen.PrimaryScreen.Worki
thePenInputPanel.MoveTo(0,
' Add a VisibleChanged event handler
AddHandler thePenInputPanel.VisibleCh
Public Sub VisibleChanged_Event(ByVal
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.AttachedEditContr
thePanel.AttachedEditContr
thePanel.AttachedEditContr
End If
End If
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.Source)
End Try
End Sub 'VisibleChanged_Event