直接上代碼：

Public Sub TooltripItemAdd()Dim XTool As ToolStrip = NothingFor Each tCtrl As Control In Me.CrystalReportViewer1.ControlsIf TypeOf tCtrl Is ToolStrip ThenXTool = tCtrlContinue ForEnd IfNextDim BtClose As New ToolStripButtonBtClose.Image = My.Resources.關閉1BtClose.ImageScaling = ToolStripItemImageScaling.SizeToFitBtClose.ToolTipText = "關閉報表"BtClose.Margin = New System.Windows.Forms.Padding(15, 0, 0, 0)AddHandler BtClose.Click, AddressOf Me.CRClosedDim BtSelect As New ToolStripButtonBtSelect.Image = My.Resources.搜索BtSelect.ImageScaling = ToolStripItemImageScaling.SizeToFitBtSelect.ToolTipText = "搜索"BtSelect.Margin = New System.Windows.Forms.Padding(15, 0, 10, 0)AddHandler BtSelect.Click, AddressOf Me.OpenSelect'增加按鈕XTool.Items.Add(BtSelect)XTool.Items.Add(BtClose)XTool.Size = New System.Drawing.Size(200, 36)'ToolStripItem 設定手動重新排列XTool.AllowItemReorder = True'調整顯示順序XTool.Items.Insert(0, BtSelect)'增加分割符XTool.Items.Insert(12, New ToolStripSeparator())End Sub

總結

以上是生活随笔為你收集整理的VB.NET Crystal Reports 水晶报表 自定义工具栏的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。