Get Started with Visual Basic Development for Windows Phone 7: Listing 4.
Assigning a Custom Virtual Keyboard Type in MainPage.Xaml.vb
Private Sub ComboBox1_SelectionChanged(ByVal sender As
System.Object, ByVal e As System.Windows.Controls.SelectionChangedEventArgs) _
Handles ComboBox1.SelectionChanged
Dim selectedName = CType(ComboBox1.SelectedItem, ComboBoxItem).Content.ToString
Dim inScope As New InputScope
Dim inScopeName As New InputScopeName
inScope.Names.Add(inScopeName)
'Regex and a few others cause exceptions
Select Case selectedName.ToLower
'Single line format used for brevity - not recommended
Case "default" : inScopeName.NameValue = InputScopeNameValue.Default
Case "chat" : inScopeName.NameValue = InputScopeNameValue.Chat
Case "email address" : inScopeName.NameValue = InputScopeNameValue.EmailNameOrAddress
Case "maps" : inScopeName.NameValue = InputScopeNameValue.Maps
Case "phone" : inScopeName.NameValue = InputScopeNameValue.TelephoneNumber
Case "search" : inScopeName.NameValue = InputScopeNameValue.Search
Case "text" : inScopeName.NameValue = InputScopeNameValue.Text
Case "web" : inScopeName.NameValue = InputScopeNameValue.Url
End Select
SIPinput.InputScope = inScope
Me.SIPinput.Focus()
End Sub
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].