评估模态对话框的结果 [英] Evaluating Modal Dialog Resut

问题描述

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    With Me.PrintForm1

      .PrinterSettings.PrinterName = "doPDF v7"

      Dim MyMargins As New Margins

      With MyMargins
        .Left = 50
        .Right = 0
        .Top = 40
        .Bottom = 0
      End With

      .PrinterSettings.DefaultPageSettings.Margins = MyMargins

      Try
        .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable)

        If DialogResult.OK Then GoTo TellIt
        If DialogResult.Cancel Then GoTo BreakOut

      Catch ex As Exception

        MessageBox.Show("doPDF v7 NOT Installed," & vbCrLf & "Cannot create pdf file!", "Error", _
                MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1)
      End Try

TellIt:

      MsgBox("File Created")


    End With

BreakOut:

  End Sub

推荐答案

您可以从对话框中检查对话框结果.ShowDialog方法

You check the dialog result from the .ShowDialog method

有点像diz:

    Dim prntDialog As New PrintDialog()

    If prntDialog.ShowDialog(Me) = DialogResult.OK Then

    End If

    'or

    Dim TheResult As DialogResult = prntDialog.ShowDialog

    If TheResult = DialogResult.OK Then

    End If

这篇关于评估模态对话框的结果的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！