'宣言
Public Event LayoutChanging As LayoutChangingEventHandler
public event LayoutChangingEventHandler LayoutChanging
'宣言
Public Event LayoutChanging As LayoutChangingEventHandler
public event LayoutChangingEventHandler LayoutChanging
Private Sub ardMain_LayoutChanging(ByVal sender As Object, ByVal e As Design.LayoutChangingArgs) Handles ardMain.LayoutChanging If e.Type = Design.LayoutChangeType.SectionDelete Then Dim Result As DialogResult Result = MessageBox.Show("このセクションを削除しますか。", "削除しますか。", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) If Result = DialogResult.Cancel Then e.AllowChange = False Else e.AllowChange = True End If End If End Sub
private void ardMain_LayoutChanging(object sender, Grapecity.ActiveReports.Design.LayoutChangingArgs e) { if (e.Type == Design.LayoutChangeType.SectionDelete) { DialogResult Result; Result = MessageBox.Show("このセクションを削除しますか。", "削除しますか。", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1); if (Result == DialogResult.Cancel) { e.AllowChange = false; } else { e.AllowChange = true; } } }