VB.NET InputPanel AutoScrolling Late Binding Problem

Question

0.00/5 (No votes)

See more:

VB.NET InputPanel AutoScrolling Late Binding Problem

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

This code worked in WM 5:

VB

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

Posted 15-Feb-12 8:10am

TheMadApe

Updated 15-Feb-12 8:20am

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

TheMadApe · Answer 1 · 2012-02-15T09:21:00

I figured this out

I added:

Private tbPge As TabPage

Placed it just inside:

Public Class Form2

Then rewrote the code as follows:

VB

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.