vb.net 如何引用自定義類庫

在項(xiàng)目A里添加引用，在“添加引用”對(duì)話框里找到項(xiàng)目B就可以了。也可以先把項(xiàng)目B生成dll文件，然后在項(xiàng)目A中添加對(duì)這個(gè)dll文件的引用。

成都創(chuàng)新互聯(lián)從2013年開始，先為和平等服務(wù)建站，和平等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為和平企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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

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

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

調(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 Word創(chuàng)建表格并錄入文字

‘首先，創(chuàng)建一個(gè)VB.NET項(xiàng)目，再點(diǎn)擊菜單”項(xiàng)目“-”添加引用“，在”Com“-”類型庫“里，選擇Microsoft.Word?14.0?Object?Library（對(duì)應(yīng)Office版本為2010），將以下代碼復(fù)制粘貼到Form1窗體替換原代碼。

’PS：以下代碼僅創(chuàng)建表格，將第行2至4列合并，添加1個(gè)文字，其他的你自己分析。

Imports?Microsoft.Office.Interop

Imports?Microsoft.Office.Interop.Word??'引入Word

Public?Class?Form1

Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load

Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定義Word及文檔對(duì)象

DDoc?=?DWrd.Documents.Add?'新增文檔

Dim?DTbl?As?Word.Table??'定義表格對(duì)象

DTbl?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格

DTbl.Style?=?"網(wǎng)格型"??'表格的樣式

DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列

DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴(kuò)展兩個(gè)單元格(即選擇第1行的第2至4列)

DWrd.Selection().Cells.Merge()??'單元格合并

DTbl.Cell(1,?1).Range.Text?=?1??'在第1個(gè)單元格填寫文本

DWrd.Visible?=?True?'顯示W(wǎng)ord

End?Sub

End?Class