vb.net - 等效于 vb.net 中的“this”关键字

Question

你能告诉我如何在 vb.net 中编写下一个代码吗？

public static bool IsYear(this string data)
    {
        return data.Length == 4 && Regex.IsMatch(data, @"[12]+[0-9]+[0-9]+[0-9]");
    }

Answer 1

看看这篇关于 VB 扩展方法的 MSDN 文章。应用它会导致这样的事情。

Imports System.Runtime.CompilerServices
Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        Dim myString As String
        myString = "1955"
        Console.WriteLine(myString & " is Year =" & myString.IsYear)
        myString = "3955"
        Console.WriteLine(myString & " is Year =" & myString.IsYear)
        myString = "19555"
        Console.WriteLine(myString & " is Year =" & myString.IsYear)
        Console.ReadLine()
    End Sub

End Module
Module Extensions
    <Extension()>
    Public Function IsYear(ByVal data As String) As Boolean
        Return data.Length = 4 And Regex.IsMatch(data, "[12]+[0-9]+[0-9]+[0-9]")
    End Function
End Module