Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VB.NET InputPanel AutoScrolling Late Binding Problem

40 views
Skip to first unread message

The Mad Ape

unread,
Feb 15, 2012, 12:23:19 PM2/15/12
to
VB.NET InputPanel AutoScrolling Late Binding Problem

I am upgrading a VB.Net 2008 Compact Framework project from Windows
Mobile 5 to Windows Mobile 6.

This code worked in WM 5:

If InputPanel1.Enabled = False Then
For Each tbPge In tabCollect.TabPages
tbPge.AutoScroll = False 'error fires on this line see
details below
Next

tabCollect.Height = 268
tabCollect.Width = 240
End If

When I use the same code in WM 6 I get an error message as follows:

The targeted version of the .NET Compact Framework does not support
latebinding.

Why is this happening and how do I fix it?

Thanks

TMA

The Mad Ape

unread,
Feb 15, 2012, 3:22:12 PM2/15/12
to
I solved this:

I added:

Private tbPge As TabPage

Placed it just inside:

Public Class Form2

Then rewrote the code as follows:

Private Sub InputPanel1_EnabledChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
InputPanel1.EnabledChanged
If InputPanel1.Enabled = False Then
For Each Me.tbPge In tabCollect.TabPages
tbPge.AutoScroll = False
Next

tabCollect.Height = 268
tabCollect.Width = 240
Else
' The SIP is enabled, so the height of the tab control
' is set to the height of the visible desktop area.
For Each Me.tbPge In tabCollect.TabPages
tbPge.AutoScroll = True
tbPge.AutoScrollMargin = New Size(5, 5)
Dim ctrl As Control
For Each ctrl In tbPge.Controls
If TypeOf ctrl Is TextBox Then
If ctrl.Focused = True Then
Dim intpos As Integer
intpos = ctrl.Location.Y
tbPge.AutoScrollPosition = New Point(0,
intpos - tbPge.AutoScrollPosition.Y)
End If
End If
Next
Next

tabCollect.Height = InputPanel1.VisibleDesktop.Height
tabCollect.Width = InputPanel1.VisibleDesktop.Width
End If
End Sub

That works and I am back in business
0 new messages