C# と VB.NET の質問掲示板

■No39462 (Lisa さん) に返信
> 【VWD2005のエラーメッセージ】
> Send_JIS_Mail.vbの4行目と9行目
> 名前空間のステートメントが無効です。
> WebMail.aspxの8行目
> 名前'Send_JIS_Mail'は宣言されていません。
 
メソッドはクラスの中に記述しなければいけないです。


解決策１．同じページクラスにメソッドを移動する

<script runat="server">
    Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Send_JIS_Mail()
    End Sub
    
    Private Function myEncode(ByVal str As String, ByVal enc As System.Text.Encoding) As String
        ...
    End Function

    Private Sub Send_JIS_Mail()
        ...
    End Sub
</script>


解決策２．新規にクラスを作成する

Class Mail
    Private Function myEncode(ByVal str As String, ByVal enc As System.Text.Encoding) As String
        ...
    End Function

    Public Sub Send_JIS_Mail()
        ...
    End Sub
End Class

<script runat="server">
    Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim m As New Mail()
        m.Send_JIS_Mail()
    End Sub
</script>