vb.net怎么添加按钮 vbnet andalso

求助vb.net 2008 中 printPreviewDialog1预览窗口中如何添加按钮？

就是重绘printPreviewDialog1控件。控件容器中，包含ToolStrip控件。

目的：在ToolStrip控件集合中添加一个ToolStripButton控件按钮。

代码如下：

====================================================

Public Class Form1

'定义相关变量

Private ppdlog1 As New printPreviewDialog  '预览控件

Private mytoolstrip1 As New ToolStrip

Private WithEvents myButton1 As New ToolStripButton '新按钮

'------------------创建新按钮的过程

Private Sub CreatemyButton()

Dim c1 As Control

For Each c1 In ppdlog1.Controls

If TypeName(c1) = "ToolStrip" Then

mytoolstrip1 = c1

End If

Next

myButton1.Text = "新按钮"

mytoolstrip1.Items.Add(myButton1)

End Sub

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

'在Sub New()中调用如下：

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

Public Sub New()

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

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

CreatemyButton()  '创建“新按钮”的过程

End Sub

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

'myButton1的Click过程

'===================

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

MsgBox("新按钮创建成功！")

'//执行代码.......

End Sub

'===================

'测试一下：

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

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

ppdlog1.Document = PrintDocument1

ppdlog1.ShowDialog()

End Sub

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

End Class

==================================================

效果如图：

相关问答

Q1: 在VB里面界面设计时添加按钮怎么添加啊？

VB6

VB2010等版本用法相同

步骤一：（鼠标左键）单击左侧工具条里按钮图标

步骤二：在窗体上点住鼠标左键不放，拖拽出按钮后再松开即可

工具条上其它控件的使用方法也一样的用法。祝你学习VB的旅程愉快顺利

Q2: vb怎么添加按钮啊

从左边的工具箱里，点击command控件，添加上就可以了啊。如图：

如果你没有看到或者没有对应的工具，可能是你软件未安装好的原因，请卸载后重新安装试试。

关于vb.net怎么添加按钮和vbnet andalso的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。