vb.net如何觸發(fā)excel內(nèi)的一個(gè)按鈕的單擊事件

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

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、小程序設(shè)計(jì)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了柯橋免費(fèi)建站歡迎大家使用！

在工程中引用Microsoft Excel類型庫(kù)： 從"工程"菜單中選擇"引用"欄；選擇Microsoft Excel 11.0 Object Library（EXCEL2003），然后選擇"確定"。表示在工程中要引用EXCEL類型庫(kù)。

調(diào)用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") '創(chuàng)建EXCEL對(duì)象

Set xlBook = xlApp.Workbooks.Open(FileName) '打開已經(jīng)存在的EXCEL工件簿文件

……

xlBook.Close (True) '保存并關(guān)閉工作簿

xlApp.Quit '結(jié)束EXCEL對(duì)象

Set xlApp = Nothing '釋放xlApp對(duì)象

end sub

vb.net中，如何通過鍵盤上的按鍵觸發(fā)button _click事件

1、將窗口的KeyPreview屬性設(shè)置為True

Me.KeyPreview = True

2、處理窗口的KeyDown事件

Sub MainFormKeyDown(sender As Object, e As KeyEventArgs)

Select Case e.KeyCode

Case Keys.Escape

Me.button1.PerformClick

Case Keys.Enter

Me.button2.PerformClick

End Select

End Sub

vb.net的，按鍵連續(xù)觸發(fā)事件，比如，按著鍵不放，音量增大。

1.定義變量記錄鍵是否被按下，按下的累計(jì)時(shí)間

Dim?按下A鍵??As?Boolean

Dim?按下A鍵時(shí)間?As?Integer

2.添加一個(gè)TextBox1用于接收鍵盤事件，或者直接用窗體的鍵盤事件(確保KeyPreview為True)

在KeyDown事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?True

在KeyUp事件中添加如下代碼：

If?e.Keycode?=?keys.A?Then?按下A鍵?=?False

3.添加一個(gè)Timer1控件，調(diào)整Timer1的Interval來決定按鍵頻率，記得要把Timer1.Enable開啟

在Tick事件中添加如下代碼：

If?按下A鍵?=?True

按下A鍵時(shí)間+=1

Call?音量設(shè)置(按下A鍵時(shí)間?*?10)

End?If

PS:?按下的秒數(shù) =?按下A鍵時(shí)間*Timer1.Interval / 1000