vb.net的簡單按鈕編寫 我剛剛接觸這個求教

Dim?I?As?Integer

創(chuàng)新互聯(lián)建站是一家專注于網(wǎng)站設(shè)計制作、網(wǎng)站設(shè)計與策劃設(shè)計,呼中網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:呼中等地區(qū)。呼中做網(wǎng)站價格咨詢:18980820575

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

Button1.Text?=?"繼續(xù)"

TextBox1.Text?=?I

I?=?I?+?1

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

I?=?2

End?Sub

代碼如上 如圖的效果

VB.NET按下一個按鈕如何彈出第三個窗口，隱藏第一個和第二個

首先要添加兩個窗體，假設(shè)第一個窗體名為Form1，第二個窗體名為Form2。在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為：

Private Sub Command1_Click()

Form2.Show '用show方法加載并且顯示名為Form2的窗體

End Sub

show 方法后面省略了兩個參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省?？勺孕羞\行驗證

vb.NET 生成按鈕

Public Sub GenerateDynamiceButton()

'建立 坐標位置的變數(shù), 方便一會兒安排 自動生產(chǎn)的button 的位置

Dim y As Integer = 15

Dim x As Integer = 0

' 用for loop 來建立 這些button 做 18只button

For ButtonIndex As Integer = 0 To 17

' 建造新的 button

Dim MyButton As New Button

'設(shè)定這新的button 的闊度

MyButton.Width = 80

'設(shè)定這新的button 的高度

MyButton.Height = 20

'我們暫定每行有4個BUTTON, 當每行有多個4個BUTTON 時重設(shè)行距, 令到下一行的和這一行的距離有10 個PIXEL

' 和重設(shè)x 坐標` = 0, 令到位置由頭開始

If ButtonIndex Mod 4 = 0 Then

'設(shè)定 TOP 的 坐標位置令他可以和上一排的有10個PIXEL 的距離

y += MyButton.Height + 10

x = 0

End If

'設(shè)定文字 和 位置

' Set the text and set its top and left based on its dimensions and count

MyButton.Text = "My Button" ButtonIndex

'設(shè)定 TOP 的 坐標位置

MyButton.Top = y

'下面的CODE 可以令到這個BUTTON 和另一個BUTTON 有5個PIXEL 的距離

MyButton.Left = 26 + (x * (MyButton.Width + 5))

x += 1

'設(shè)定 BUTTON CLICK EVENT

AddHandler MyButton.Click, AddressOf MyButton_Click

'把button 加到 form 中

Me.Controls.Add(MyButton)

Next

End Sub

'處理 button click event

Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim btn As Button = sender

'pop up 一個自己button 的字的message

MsgBox(btn.Text)

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

先得到目標窗體的 handle (句柄) 或整個對象, 然后實例化一個button 并加入到窗體對象中. 如: 在 form2 點擊 add 按鈕后, form1 會新添加一個按鈕,單擊顯示hello , 下面是兩個窗口類. public class form1 inherits system.windows.forms.form '這是一個什么都沒有的空窗體 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() '實例化 button1.text="add" '名字就叫 add button1.location=new point(50,50) addhandle button1.click, addressof add_click me.controls.add(button1) end sub '用于記錄form1對象的屬性 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) '當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 兩個窗體類完成了,然后在模塊寫如下代碼,程序設(shè)置為從模塊啟動: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

VB.NET添加按鈕代碼

是有錯誤嘛，因為表名family后應(yīng)該有一個空格才能接(num,name,pwd,qx,bz）