.NET (Core and Framework)

custom membership provider 

Protected Overrides Sub OnValidating(e As CancelEventArgs)
    'valueisChanged = True
    'EditingControlValueChanged = True
    'Me.EditingControlDataGridView.NotifyCurrentCellDirty(True)
    'MyBase.OnValidating(e)
    If AllowNull = False Then
        If String.IsNullOrEmpty(Me.Text.Trim) = True Then
            e.Cancel = True
            ' show message that cell value can not be null
            MessageBox.Show("لطفاً اطلاعات را وارد نمائید", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        Select Case InputType
            Case Inputs.NationalCode
                If ValidateNcode(Me.Text.Trim) = False Then
                    e.Cancel = True
                    'show message that nationalcode is not in correct format
                    MessageBox.Show("لطفاً کد ملی را بصورت صحیح وارد نمائید", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Case Inputs.Numbers
                If AllowNegative = True Then
                    If ismatched(Me.Text.Trim, negshregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                Else
                    If ismatched(Me.Text.Trim, shregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                End If
            Case Inputs.Decimals
                If AllowNegative = True Then
                    If ismatched(Me.Text.Trim, negshregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                Else
                    If ismatched(Me.Text.Trim, shregex) = False Then
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        e.Cancel = True
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                End If
        End Select
    End If

End Sub

namespace SgCntr
{
    public partial class LogOn : Form
    {
        private void button_Exit_MouseClick(object sender, MouseEventArgs e)
        {
            this.Hide();
            string message =
            "Are you sure that you would like to Terminate \n"
            "the Softguard Sales Terminal Application?";
            const string caption = "Application Terminating";
            var result = MessageBox.Show(message, caption,
                                         MessageBoxButtons.YesNo,
                                         MessageBoxIcon.Question);

            if (result == DialogResult.No)
            {
                this.Show();
                return;
            }
            this.Dispose();
        }
    }
}