VB.NETでの拡張メソッドの書き方のメモ
System.Runtime.CompilerServices を インポートします。
Module で作成します。
また後で追記します。
Extensions.vb
Imports System.Runtime.CompilerServices
Public Module HogeExtensions
<Extension>
Public Function IsNullOrEmpty(Byval value As String) As Boolean
Return String.IsNullOrEmpty(value)
End Function
'' VB.Net を使用すると メール送信にSmtpClientを使用することが多いと思います。
'' そのため、メールアドレスのチェックはMailAddressクラスで
'' チェックすることをお勧めします。
<Extension>
Public Function IsMailAddress(Byval value As String) As Boolean
If value.IsNullOrEmpty Then
Return False
Else
Try
Dim MailAddress As New System.Net.Mail.MailAddress(value)
Return True
Catch ex As FormatException
Return False
End Try
End If
End Function
End Module
使用方法
Main.vb
Sub Main
If "hoge@example.com".IsMailAddress Then
' Trueの処理
Else
' Falseの処理
True