用于 windows 手机的 VB Silverlight答案

【问题标题】：VB silverlight for windows phone用于 windows 手机的 VB Silverlight
【发布时间】：2012-05-13 20:52:52
【问题描述】：

我正在用 VB 为 windows phone 7.5 编写一个应用程序

但它有一些错误

Imports System.IO
Imports System.IO.TextReader
Imports System.Xml
Imports System.Windows.RoutedEventArgs
Imports System.Windows.RoutedEvent
Imports System.ComponentModel
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Net
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes
Imports Microsoft.Phone.Tasks
Imports System.Xml.Linq 
Imports System.Net.NetworkInformation
Imports Microsoft.VisualBasic.CompilerService

Partial Public Class MainPage
    Inherits PhoneApplicationPage

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub MainPage_Loaded(sender As Object, e As System.Windows.RoutedEventArgs)             Handles MyBase.Loaded
        Final.Items.Clear()
        If NetworkInterface.GetIsNetworkAvailable Then
            Dim cl As New WebClient
            AddHandler cl.DownloadStringCompleted, AddressOf cl_DownloadStringCompleted
            cl.DownloadStringAsync(New Uri("http://web.com/xml.xml"))
        Else
            MessageBox.Show("check your internet connection")
        End If
    End Sub


    Private Sub cl_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs)
        Dim doc = XDocument.Parse(e.Result)
        Dim names = XDocument.Parse(e.Result)
        Dim result_name = names.<Data>.<Entry>
        For Each result In doc.<Data>.<Entry>.<tag>
            Dim item As New ListBoxItem
            item.Content = result.Value
            AddHandler item.Tap, AddressOf ItemTap
            Final.Items.Add(item)
        Next
    End Sub

    Private Sub ItemTap(sender As Object, e As GestureEventArgs)
        Dim lbi As New ListBoxItem
        lbi = sender
        Dim url As New Uri("/" & lbi.Content & ".xaml", UriKind.Relative)
        Me.NavigationService.Navigate(url)
    End Sub

End Class

它在Dim url As New Uri("/" & lbi.Content & ".xaml", UriKind.Relative)发现了一个错误

报告上写着：

请求的操作不可用，因为运行时库功能 'Microsoft.VisualBasic.CompilerServices.Operators.ConcatenateObject' 没有定义。

注意：当我将 ItemTap 更改为此： Private Sub ItemTap(ByRef sender As Object, e As GestureEventArgs)

这个错误消失了，又出现了一个：

Method 'Private Sub ItemTap(ByRef sender As Object, e As System.Windows.Input.GestureEventArgs)' 没有签名兼容委托 'Delegate Sub EventHandler(Of System.Windows.Input.GestureEventArgs)（发送者作为对象，e 作为 System.Windows.Input.GestureEventArgs)'。

在行：“AddHandler item.Tap, AddressOf ItemTap”

任何想法为什么我有这个？谢谢！

【问题讨论】：

标签： vb.net silverlight windows-phone-7

【解决方案1】：

您正在尝试将两个字符串和一个对象组合起来，但它无法做到这一点。

我强烈怀疑lbi.Content（在出错的行中）是一个 TextBlock，所以您的代码说“将一个字符串、一个 TextBlock 和一个字符串连接在一起”。
我怀疑您想要在 TextBlock 中显示的文本，所以只需相应地转换它：

"/" & DirectCast(lbi.Content, TextBlock).Text & ".xaml"

【讨论】：