vb.net 为PrintPreviewDialog控件添加新按钮

1、先定义一个类，名称：MyPrint_dlg

  '-----------------------------------------

  Public Class MyPrint_dlg

      Public MyPreviewdlg As New PrintPreviewDialog '声明对象变量

       Private toolStrip1 As New ToolStrip   ' PrintPreviewDialog 中Controls集合中ToolStrip控件

      Private WithEvents NButton As New ToolStripButton  ' PrintPreviewDialog 中Controls集合中ToolStrip控件的按钮对象

      Event NButton_Click()  '新按钮的事件

             '创建新按钮的过程

             '----------------------------------

              Public Sub CreatButton()

              Dim c As Control

                  For Each c In MyPreviewdlg.Controls

                      If TypeName(c) = "ToolStrip" Then toolStrip1 = c

                      NButton.Text = "页面设置"

                  Next

              toolStrip1.Items.Add(NButton)

              End Sub

            '------------------------------------

        Private Sub NButton_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles NButton.Click

            MsgBox("进行打印设置...")

            RaiseEvent NButton_Click()  '触发事件

        End Sub

  End Class

2、调用：

public Class Form1

    Dim Mydlg As New MyPrint_dlg

    '用 Sub New()初始化

    Public Sub New()

        ' 此调用是设计器所必需的。

        InitializeComponent()

        Mydlg.CreatButton()  '创建按钮

        ' 在 InitializeComponent() 调用之后添加任何初始化。

    End Sub

   '单击Button1调用

        Private Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

            Mydlg.MyPreviewdlg.ShowDialog()

        End Sub

 

End Class