⑴ vb如何單擊按鈕增加按鈕
使用控制項數組，把command1的index設置為0
Dim j As Long, lf As Long, tp As Long
Private Sub Command1_Click(Index As Integer)
j = j + 1
Load Command1(j)
lf = 10
tp = tp + 150
Command1(j).Left = lf
Command1(j).Top = tp
Command1(j).Visible = True
End Sub
⑵ 在VB裡面界面設計時添加按鈕怎麼添加啊
VB6
VB2010等版本用法相同
步驟一：（滑鼠左鍵）單擊左側工具條里按鈕圖標
步驟二：在窗體上點住滑鼠左鍵不放，拖拽出按鈕後再松開即可
工具條上其它控制項的使用方法也一樣的用法。祝你學習VB的旅程愉快順利
⑶ vb6.0動態增加按鈕
其實也不是很難，給你一個框架，作為參考吧。
具體的也只有你自己進行完善。
'先在窗體上添加一個標准按鈕
'在屬性窗口中，把它的Index屬性設置成0
'名稱改為cmdDynCmd（其它的名稱也行，注意後面的說明）
'Visible可以設置成False
OptionExplicit
PrivatelCmdIndexAsLong
PrivateSubLoadCmdButton()
'這兒就是載入動態按鈕的
Dimi&
Fori=0ToNNN'這兒NNN等於你需要的按鈕數減1，可以用變數的
'你應該能通過你的「資料庫中"a"表中"名稱"欄位」項目數來確定值為多少
'***注意這兒的cmdDynCmd就是設計時確定的按鍵名稱***
If(lCmdIndex>0)ThenLoadcmdDynCmd(i)
cmdDynCmd(i).Visible=True
'這兒的Caption屬性，你自己用代碼跟你的資料庫中"a"表中"名稱"欄位內容關聯
cmdDynCmd(i).Caption="動態按鈕"&i+1
'這兒的x、y你可以根據i的值來進行計算
cmdDynCmd(i).Top=X
cmdDynCmd(i).Left=Y
'直接cmdDynCmd(i).movex,y也行
Next
EndSub
'這兒就是動態按鈕的事件代碼
'根據Index判斷是哪個按鈕觸發了事件
'跟你事先設計好的控制項數組完全是相同的用法
'*****注意！！！注意這兒的cmdDynCmd就是設計時確定的按鍵名稱
PrivateSubcmdDynCmd_Click(IndexAsInteger)
MsgBox"你點擊的是第"&Index+1&"個動態按鈕。",64
'具體事件代碼只能你自己寫
EndSub
⑷ VB中如何實現一個按鈕既控制資料庫數據的添加,又實現資料庫數據的更改
通過定義一個全局變數（如xACTION)可以實現。
當點擊添加按鈕時：xACTION＝1,
當點擊重命名按時：xACTION＝2,
最後當點擊保存按鈕時，對xACTION進行判斷：
假如xACTION＝1時執行插入數據的sql語句,
假如xACTION＝2時執行更新數據的SQL語句。
希望對你有所幫助。
⑸ vb中如何只用一個按鈕事件將數據添加到資料庫中
if command1.caption="准備添加" then
data1.recordset.addnew
command1.caption="確認添加"
else
if text1<> "" then
data1.recordset.update
command1.caption="准備添加"
else
msgbox "請輸入文本"
text1=.setforce
end if
end if
⑹ VB編寫添加按鈕的代碼
⒃諳允景磁サ氖錄?刑砑尹br
/>me.backgroundimage=system.drawing.bitmap.fromfile("你的圖片文件路徑")
命令按鈕1.visable=false'或者命令按鈕1.hide
命令按鈕2.visable=false'或者命令按鈕2.hide
在窗體的click事件中添加
命令按鈕1.visable=true'或者命令按鈕1.show
命令按鈕2.visable=true'或者命令按鈕2.show
me.backgroundimage=nothing
在退出按鈕的事件中添加
end
2、這里應該還有兩個timer,timer1和timer2
在開始按鈕的事件中添加
timer1.interval=1000
timer1.enable=true
timer2.interval=500
timer2.enable=true
在timer1的tick事件中添加
label1.text=timeofday
在timer2的tick事件中添加
label2.left=label2.left
10
if
label2.left
⑺ VB中 怎麼樣設置命令按鈕
命令按鈕不像label，image那樣可以簡單的設置為透明的屬性的，label，image這樣的控制項再做的時候都提供了backstyle這個屬性設置，從而可以很簡單的修改它們的透明性質，但是button這樣的命令按鈕卻沒有提供，因此想設計一個透明的命令按鈕常用的有三種做法:
1.用標簽label來替代命令按鈕來執行命令功能，把它設置為透明的即可，但這種方法的缺點是label是平面的，不好看;
2.用image來替代命令按鈕來執行命令功能，用它是非常靈活的，效果極好，最常用，因為它本身有個backstyle屬性，從而可以將它設置為透明的，另外做一個或者找一個漂亮的圖片加在里邊就行了，圖片是什麼效果的做出來的按鈕就是什麼效果的;
3.第3種就有些復雜，不常用，且比較難，就是繼承vb提供的按鈕，然後自己再他的基礎上給你編寫backstyle的屬性，也就是做一個控制項了，這個實用性就很低了，不過有時間可以試著做一下。
好了，你可以針對性的參考.
⑻ vb怎麼添加按鈕啊
從左邊的工具箱里，點擊command控制項，添加上就可以了啊。如圖：
如果你沒有看到或者沒有對應的工具，可能是你軟體未安裝好的原因，請卸載後重新安裝試試。
⑼ 怎樣用VB對access資料庫 進行 數據 添加
兩種辦法，一種是 用SQL，另一種是ADO
1、用SQL添加數據：
insert into 表名（欄位1，欄位2，欄位3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外貿總監',12500)"
2、用ADO的辦法：
ADO比較復雜，給你一個完整的例子吧：
Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset 『定義一個ADO連接，連進資料庫
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic 』打開連接
RSfitjc.addnew '添加一個紀錄
RSfitjc.Fields("配件編號") = 「style」 『給每個欄位賦值
.Update 』儲存賦值的新紀錄
.Close 關閉連接
End With
⑽ VB如何用代碼創建一個按鈕
思路
兩種方式：
1、通過動態按鈕方式創建，
2：通過控制項數組方式創建。
個人傾向於通過控制項數組的方式。一般應用都是有規律的創建的，所以用控制項數組合適些。
舉例
'先在窗體上添加一個標准按鈕
'在屬性窗口中，把它的Index屬性設置成0
'名稱改為cmdDynCmd（其它的名稱也行，注意後面的說明）
'Visible可以設置成False
OptionExplicit
PrivatelCmdIndexAsLong
PrivateSubLoadCmdButton()
'這兒就是載入動態按鈕的
Dimi&
Fori=0ToNNN'這兒NNN等於你需要的按鈕數減1，可以用變數的
'你應該能通過你的「資料庫中"a"表中"名稱"欄位」項目數來確定值為多少
'***注意這兒的cmdDynCmd就是設計時確定的按鍵名稱***
If(lCmdIndex>0)ThenLoadcmdDynCmd(i)
cmdDynCmd(i).Visible=True
'這兒的Caption屬性，你自己用代碼跟你的資料庫中"a"表中"名稱"欄位內容關聯
cmdDynCmd(i).Caption="動態按鈕"&i+1
'這兒的x、y你可以根據i的值來進行計算
cmdDynCmd(i).Top=X
cmdDynCmd(i).Left=Y
'直接cmdDynCmd(i).movex,y也行
next
EndSub
'這兒就是動態按鈕的事件代碼
'根據Index判斷是哪個按鈕觸發了事件
'跟你事先設計好的控制項數組完全是相同的用法
'*****注意！！！注意這兒的cmdDynCmd就是設計時確定的按鍵名稱
PrivateSubcmdDynCmd_Click(IndexAsInteger)
MsgBox"你點擊的是第"&Index+1&"個動態按鈕。",64
'具體事件代碼只能你自己寫
EndSub