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 joekunk@ajboggs.com.