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

ボタンごとに異なるデリゲートを渡す関数を作っててやればいいでしょう。


private void button1_Click(object sender, EventArgs e)
{
    TryActionWithValidation(() => { MessageBox.Show("Button1です。"); });
}

private void button2_Click(object sender, EventArgs e)
{
    TryActionWithValidation(Hello);
}

private void Hello()
{
    MessageBox.Show("Hello!");
}

private void TryActionWithValidation(Action action)
{
    if (Validate())
    {
        MessageBox.Show("検査エラーです。");
        return;
    }
    try
    {
        action();
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}

お早い回答大変ありがとうございました。

参考にさせていただきまして、下記のロジックを使います。

using System.Net;

        /// <summary>
        /// ネットワークアドレス算出
        /// </summary>
        /// <param name="address">IPアドレス</param>
        /// <param name="subnetMask">サブネットマスク</param>
        /// <returns></returns>
        public static IPAddress GetNetworkAddress(this IPAddress address, IPAddress subnetMask) {
            byte[] ipAdressBytes = address.GetAddressBytes();
            byte[] subnetMaskBytes = subnetMask.GetAddressBytes();

            if (ipAdressBytes.Length != subnetMaskBytes.Length)
                throw new ArgumentException("Lengths of IP address and subnet mask do not match.");

            byte[] broadcastAddress = new byte[ipAdressBytes.Length];
            for (int i = 0; i < broadcastAddress.Length; i++) {
                broadcastAddress[i] = (byte)(ipAdressBytes[i] & (subnetMaskBytes[i]));
            }
            return new IPAddress(broadcastAddress);
        }


// 使い方
            IPAddress mainIp = IPAddress.Parse("192.168.0.145");
            IPAddress subnetIp = IPAddress.Parse("255.255.252.0");
            IPAddress networkIp;

            networkIp = GetNetworkAddress(mainIp, subnetIp);

> 事前に計算しておく方法も
> できればお教えいただけないでしょうか？

Private _Left, _Bottom, _Theta As Double
' まずはコンストラクタで計算
Public Sub New(ByVal left AS Double, ByVal bottom As Double, ...)
    Me._Left = left
    Me._Bottom = bottom
    ' ほかの処理があるかもしれないけど省略
    Me.CalcTheta()
End Sub
Private Sub CalcTheta()
    Me._Theta = Atan(Me._Left / Me._Bottom)
End Sub
' Leftとかを変更可能なら、そこのSetでも再計算
' ただし、Structureは基本的にプロパティはすべてReadOnlyにすべき
Public Property Left() As Double
    Get
        Return Me._Left
    End Get
    Set
        Me._Left = Value
        Me.CalcTheta()
    End Set
End Property
' Thetaは計算済みの値を返すだけ
Public ReadOnly Property Theta() As Double
    Get
        Return Me._Theta
    End Get
End Property

> Me.Left とMe.Bottomに両方、値が格納される前に
> Thetaを取得しようとするとNothingを返すようにしたいのですが、
> どうすれば良いですか？

VBだと、Nothingが何を意味するのかが曖昧です。
CDbl(Nothing)は0.0を意味し、0.0 = Nothing はTrueを返します。
（0.0 Is Nothingはコンパイルエラーになりますが）
このことから単に0.0を返せばいいのであれば、そのようにすればいいです。

一方、Is Nothing判定をできるようにしたいのであれば、Thetaの型として Doubleを使うことはできません。
代わりに Double? 型（Nullable(Of Double) の省略形）を使用することになるでしょう。
この場合、
Public ReadOnly Property Theta() As Double?
    Get
        ' このIfはステートメントではなく演算子
        Return If(Me.Left = 0 OrElse Me.Bottom = 0, Nothing, Atan(Me.Left / Me.Bottom))
    End Get
End Property