Visual Basic Code , VB.NET Code, VB Code
  Home   :  Code   :  Forums   :  Submit   :  Mailing List   :  About   :  Contact


InputPanel AutoScrolling Late Binding Problem


InputPanel AutoScrolling Late Binding Problem

Author
Message
Joey
Joey
Forum God
Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)

Group: Forum Members
Posts: 72, Visits: 46
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 would I fix it?



Thanks
Joey
Joey
Forum God
Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)Forum God (16K reputation)

Group: Forum Members
Posts: 72, Visits: 46
Found the problem.



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
GO


Similar Topics


Reading This Topic


Login
Existing Account
Email Address:


Password:


Social Logins

Select a Forum....

















A1VBCode Forums


Search