vb点虐 执行按钮 vbnet adodb

【vb点虐 】怎么点击一个按钮执行一个代码，5秒后执行另一个代码

button里执行

我们一直强调成都网站设计、成都网站建设对于企业的重要性,如果您也觉得重要,那么就需要我们慎重对待,选择一个安全靠谱的网站建设公司,企业网站我们建议是要么不做，要么就做好,让网站能真正成为企业发展过程中的有力推手。专业网站设计公司不一定是大公司,成都创新互联公司作为专业的网络公司选择我们就是放心。

sleep 5000 '等5秒

call xxxx '另外的过程代码

即可。

在VB.NET里我想在程序启动时执行Button_click怎样做?

Public ClassForm1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click ‘button1按下时的代码 End Sub Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Button1_Click(sender, e) End SubEnd Class/p

vb点虐 如何触发excel内的一个按钮的单击事件

一定要先在VB中添加excel引用。

在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。

调用excel的工作表中的命令按钮，代码如下：

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Dim FileName, SheetName As String

FileName = "e:\data.xls" '打开的工作簿路径名称

SheetName = "sheet1" '命令按钮所在的工作表名

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件

……

xlBook.Close (True) '保存并关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

end sub