如何修复这个从 C# 翻译的 VB 短片段？

Question

我得到了这个在 Visual Studio 2010 中完美运行的 C# sn-p：

使用系统； 使用 System.Web.UI.WebControls；

public partial class MasterPage : System.Web.UI.MasterPage
{
protected void Page_Load(object sender, EventArgs e)
{
}

protected void RequestLanguageChange_Click(object sender, EventArgs e)
{
    LinkButton senderLink = (LinkButton)sender;
    Response.Redirect(Request.RawUrl.ApplyCultureToUrl(senderLink.CommandArgument));
}
}

每个在线转换器（和 SharpDevelop）都会在 VB 中将其翻译成这个：

Imports System
Imports System.Web.UI.WebControls

Public Partial Class MasterPage
Inherits System.Web.UI.MasterPage
Protected Sub Page_Load(sender As Object, e As EventArgs)
End Sub

Protected Sub RequestLanguageChange_Click(sender As Object, e As EventArgs)
Dim senderLink As LinkButton = DirectCast(sender, LinkButton)

Response.Redirect(Request.RawUrl.ApplyCultureToUrl(senderLink.CommandArgument))
End Sub
End Class

VS 也在做同样的事情：

Public NotInheritable Class Localization
Private Sub New()
End Sub
<System.Runtime.CompilerServices.Extension()> _
Public Shared Function ApplyCultureToUrl(rawUrl As String, culture As String) As String
Dim modifiedUrl As String

说System.Runtime.CompilerServices.Extension只能在模块中运行。

问题：

在 Visual Studio 2010 中，Request.RawUrl.ApplyCultureToUrl 带有蓝色下划线，它不提供解决方案。它只是说 ApplyCultureToUrl 不是“字符串”的成员。这是阻止我的解决方案工作的唯一原因！

我在 MSDN 上进行了研究，它说错误意味着它必须被模块包围，但不是编码器，我不知道如何修复它。 sn-p 是为了帮助我的 ?lang=en-GB 查询字符串出现在我的多语言网站中。任何帮助将不胜感激！

---

更新：我有 ApplyCulturetoUrl 的工作，只需单击 Visual Studio 中的很多图标，它就会吐出这个：

Partial Public Class MasterPage
Inherits System.Web.UI.MasterPage
Protected Sub Page_Load(sender As Object, e As EventArgs)
End Sub

Protected Sub RequestLanguageChange_Click(sender As Object, e As EventArgs)
    Dim senderLink As LinkButton = DirectCast(sender, LinkButton)
    Response.Redirect(ApplyCultureToUrl(Request.RawUrl, senderLink.CommandArgument))
End Sub

Private Sub body()
    Throw New NotImplementedException
End Sub

Private Function ApplyCultureToUrl(p1 As String, p2 As String) As String
    Throw New NotImplementedException
End Function
End Class

这并没有给我任何错误，虽然我不知道它是否正确......呵呵......现在，给我一个错误的代码的唯一其他部分是在本地化.vb，一个类，是这样的：

Public NotInheritable Class Localization
Private Sub New()
End Sub
<System.Runtime.CompilerServices.Extension()> _
Public Shared Function ApplyCultureToUrl(rawUrl As String, culture As String) As String
 Dim modifiedUrl As String

并且 System.Runtime.CompilerServices.Extension() 用波浪形的蓝色下划线表示扩展方法只能在模块中定义。我正在使用您的所有建议！感谢您的坚持！

Answer 1

看起来ApplyCultureToUrl是一个扩展方法。

解决这个问题就像导入定义了ApplyCultureToUrl 的命名空间一样简单。

但它可能比这更复杂：

在 VB.Net 中，扩展方法必须在一个模块中，这必须是公共的，以引用其他项目的扩展。要包含它们，您只需要引用包含的程序集并导入正确的命名空间。

VB.Net 扩展方法的 MSDN 页面是here。

Answer 2

将光标放在 C# 文件中的 ApplyCultureToUrl 关键字上，然后按 F12 键。该方法在某处定义为扩展方法。

不知道Visual Basic是否支持扩展方法，如果没有，可以在VB本地定义：

Private Function ApplyCultureToUrl(RawUrl as String, Command as String) As String
   // body
End Function

在这种情况下，您将按如下方式调用它：

Response.Redirect(ApplyCultureToUrl(Request.RawUrl, senderLink.CommandArgument))