锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net用代码花按钮 vbs简单代码对话框

IT技术代码

在vb中那些按钮的代码怎么写啊在你选择的按钮上"双击",记住是双击噢!会弹出按钮的代码编辑位置,在里面就可以写按钮代码了,如下是退出的按钮代码.其他代码要根据的需要的功能,作相应的修改
Private
Sub
Command1_Click()
MsgBox
"我是退出的按钮代码!"
End
End
Sub
vb.net怎么样美化按钮button 都是可以放图片作为底图vb.net用代码花按钮的字体颜色也可以更改vb.net用代码花按钮的或者你知道画图的话 也可以把按钮变成其他形状
VB如何用代码创建一个按钮思路
两种方式：
1、通过动态按钮方式创建，
2：通过控件数组方式创建 。
个人倾向于通过控件数组vb.net用代码花按钮的方式 。一般应用都是有规律vb.net用代码花按钮的创建的，所以用控件数组合适些 。
举例
' 先在窗体上添加一个标准按钮
' 在属性窗口中，把它的 Index属性设置成 0
'名称改为 cmdDynCmd （其它的名称也行，注意后面的说明）
'Visible 可以设置成 False
Option Explicit
Private lCmdIndex As Long
Private Sub LoadCmdButton()
'这儿就是加载动态按钮的
Dim i
For i = 0 To NNN'这儿NNN等于你需要的按钮数减1，可以用变量的
'你应该能通过你的“数据库中"a"表中"名称"字段”项目数 来确定值为多少
' *** 注意这儿的 cmdDynCmd 就是设计时确定的按键名称 ***
If (lCmdIndex0) Then Load cmdDynCmd(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).move x, y也行
next
End Sub
' 这儿就是动态按钮的事件代码
' 根据 Index 判断是哪个按钮触发vb.net用代码花按钮了事件
' 跟你事先设计好的控件数组完全是相同的用法
' ***** 注意vb.net用代码花按钮?。。∽⒁庹舛?cmdDynCmd 就是设计时确定的按键名称
Private Sub cmdDynCmd_Click(Index As Integer)
MsgBox "你点击的是第 "Index + 1" 个动态按钮 。", 64
'具体事件代码只能你自己写
End Sub
VB中如何用代码添加命令按钮按以下步骤实现动态添加命令按钮
（1）新建一个VB6工程
（2）Form1窗体代码
Option Explicit
'定义要动态添加的命令按钮变量（带事件处理）
Dim WithEvents cmdX As CommandButton
'点击动态添加的按钮，弹出对话框
Private Sub cmdX_Click()
MsgBox "动态添加的命令按钮?。。?
End Sub
'鼠标双击窗体，动态添加一个命令按钮
Private Sub Form_DblClick()
If cmdX Is Nothing Then
Set cmdX = Controls.Add("VB.CommandButton", "cmd1")
cmdX.Caption = "点击我呀"
cmdX.Width = 4500
cmdX.Move 150, 150
cmdX.Visible = True
End If
End Sub
（3）运行
启动后
鼠标双击窗体
点击命令按钮，弹出一个对话框
VB.NET添加按钮代码⒃谙允景磁サ氖录?刑砑?br /me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")
命令按钮1.Visable=False'或者命令按钮1.Hide
命令按钮2.Visable=False'或者命令按钮2.Hide
【vb.net用代码花按钮 vbs简单代码对话框】在窗体的Click事件中添加
命令按钮1.Visable=True'或者命令按钮1.show
命令按钮2.Visable=True'或者命令按钮2.show
me.backgroundimage=nothing
在退出按钮的事件中添加
End
2、这里应该还有两个Timer,Timer1和Timer2
在开始按钮的事件中添加

推荐阅读


上一篇：怎么把手机内容放电视里，怎么把手机上的内容放在电视上看

下一篇：微信直播十七级要多少钱，微信直播1到60级价格表