HighTechTalks DotNet Forums  

VB.NET InputPanel AutoScrolling Late Binding Problem

VB.net microsoft.public.dotnet.languages.vb


Discuss VB.NET InputPanel AutoScrolling Late Binding Problem in the VB.net forum.



Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old   
The Mad Ape
 
Posts: n/a

Default VB.NET InputPanel AutoScrolling Late Binding Problem - 02-15-2012 , 11:23 AM






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

Reply With Quote
  #2  
Old   
The Mad Ape
 
Posts: n/a

Default Re: VB.NET InputPanel AutoScrolling Late Binding Problem - 02-15-2012 , 02:22 PM






On 15/02/2012 1:23 PM, The Mad Ape wrote:
Quote:
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
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

Reply With Quote
Reply




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off



Powered by vBulletin Version 3.5.4
Copyright ©2000 - 2013, Jelsoft Enterprises Ltd.