⑴ 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