vb.net 怎么在右上角增加按鈕

制作一個(gè)按鈕：

在泗陽(yáng)等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì) 網(wǎng)站設(shè)計(jì)制作按需定制,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站設(shè)計(jì),成都營(yíng)銷網(wǎng)站建設(shè),成都外貿(mào)網(wǎng)站建設(shè)公司,泗陽(yáng)網(wǎng)站建設(shè)費(fèi)用合理。

Dim my_Button As New Button

my_Button.SetBounds(Me.Width - 75, 0, 75, 23)

Me.Controls.Add(my_Button)

在軟件運(yùn)行前是看不到這個(gè)按鈕，運(yùn)行后可見(jiàn)，運(yùn)行后想更改按鈕位置，簡(jiǎn)單的方法啟動(dòng)一個(gè)事件，如textbox輸入數(shù)值后通過(guò)Button的點(diǎn)擊事件修改my_Button的頂點(diǎn)位置，還有的方法就是拖動(dòng)，拖動(dòng)應(yīng)該是高級(jí)編程部分而且?guī)资写a，沒(méi)有人愿意寫

求助vb.net 2008 中 printPreviewDialog1預(yù)覽窗口中如何添加按鈕？

就是重繪printPreviewDialog1控件?？丶萜髦?，包含ToolStrip控件。

目的：在ToolStrip控件集合中添加一個(gè)ToolStripButton控件按鈕。

代碼如下：

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

Public Class Form1

'定義相關(guān)變量

Private ppdlog1 As New?printPreviewDialog ?'預(yù)覽控件

Private mytoolstrip1 As New ToolStrip

Private WithEvents myButton1 As New ToolStripButton '新按鈕

'------------------創(chuàng)建新按鈕的過(guò)程

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()中調(diào)用如下：

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

Public Sub New()

' 此調(diào)用是設(shè)計(jì)器所必需的。

' 在 InitializeComponent() 調(diào)用之后添加任何初始化。

CreatemyButton() ?'創(chuàng)建“新按鈕”的過(guò)程

End Sub

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

'myButton1的Click過(guò)程

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

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

MsgBox("新按鈕創(chuàng)建成功！")

'//執(zhí)行代碼.......

End Sub

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

'測(cè)試一下：

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

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

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

效果如圖：

vb怎么添加按鈕啊

從左邊的工具箱里，點(diǎn)擊command控件，添加上就可以了啊。如圖：

如果你沒(méi)有看到或者沒(méi)有對(duì)應(yīng)的工具，可能是你軟件未安裝好的原因，請(qǐng)卸載后重新安裝試試。

VB.NET添加按鈕代碼

是有錯(cuò)誤嘛，因?yàn)楸砻鹒amily后應(yīng)該有一個(gè)空格才能接(num,name,pwd,qx,bz）

vb.net用代碼向另一個(gè)窗體添加命令按鈕

先得到目標(biāo)窗體的 handle (句柄) 或整個(gè)對(duì)象, 然后實(shí)例化一個(gè)button 并加入到窗體對(duì)象中. 如: 在 form2 點(diǎn)擊 add 按鈕后, form1 會(huì)新添加一個(gè)按鈕,單擊顯示hello , 下面是兩個(gè)窗口類. public class form1 inherits system.windows.forms.form '這是一個(gè)什么都沒(méi)有的空窗體 public sub new() me.size=new size(200,200) end subend class public class form2 inherits system.windows.forms.form private button1 as button '添加按鈕 private frm as form public sub new() me.size=new size(200,200) button1= new button() '實(shí)例化 button1.text="add" '名字就叫 add button1.location=new point(50,50) addhandle button1.click, addressof add_click me.controls.add(button1) end sub '用于記錄form1對(duì)象的屬性 public property form1() as form get return frm end get set (byval value as form) frm = value end set end property '添加按鈕 private sub add_click(byval o as object, byval e as eventargs) '當(dāng)form1屬性被指定,向form1 添加按鈕 if frm isnot nothing then dim btn as button = new button() btn.text ="new button" btn.location=new point(50,50) addhandle btn.click, addressof button_click frm.controls.add (btn) else msgbox ("未指定form1") end if end sub '新按鈕的單擊事件 private sub button_click(byval o as object, byval e as eventargs) msgbox("hello!") end subend class 兩個(gè)窗體類完成了,然后在模塊寫如下代碼,程序設(shè)置為從模塊啟動(dòng):public module module1 public sub main() dim frm1= new form1() dim frm2 = new form2() frm2.form1=frm1 frm2.show() frm1.show() application.run(frm2) end subend module