vb.net的安裝怎么去安裝？選擇什么

步驟一：打開(kāi)需要制作安裝程序的VB.Net項(xiàng)目

創(chuàng)新互聯(lián)建站擁有一支富有激情的企業(yè)網(wǎng)站制作團(tuán)隊(duì)，在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)深耕十余年，專業(yè)且經(jīng)驗(yàn)豐富。十余年網(wǎng)站優(yōu)化營(yíng)銷經(jīng)驗(yàn)，我們已為超過(guò)千家中小企業(yè)提供了成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)解決方案，按需策劃設(shè)計(jì)，設(shè)計(jì)滿意，售后服務(wù)無(wú)憂。所有客戶皆提供一年免費(fèi)網(wǎng)站維護(hù)!

點(diǎn)擊菜單【文件—新建項(xiàng)目】出現(xiàn)如圖01的對(duì)話框單擊【其他項(xiàng)目類型—安裝和部署】選擇【安裝項(xiàng)目】如圖：

步驟二：

雙擊【My Project】（在“解決方案資源管理器”里面呢），如圖所示。

步驟三3：?jiǎn)螕簟疽谩窟x項(xiàng)卡，查看解決方案的引用項(xiàng)，關(guān)注一下.Net類型的引用，本解決方案引用.Net類型的版本是2.0版。查看這個(gè)信息直接關(guān)系到最終安裝文件的大小。

右鍵單擊“解決方案資源管理器”中【Setup1】，選擇【添加—項(xiàng)目輸出】，選擇“主輸出”后單擊【確定】。

再次右鍵點(diǎn)擊【Setup1】，選擇【屬性】，跳出對(duì)話框。

步驟四：這里的設(shè)置可是關(guān)鍵中的關(guān)鍵

步驟五：“選擇要安裝的系統(tǒng)必備組件”，解決的是運(yùn)行可執(zhí)行文件環(huán)境的問(wèn)題運(yùn)行使用VB.Net編寫的程序，必須在系統(tǒng)中安裝.Net Framework（也有軟件使用虛擬環(huán)境運(yùn)行的）?！安榭匆谩辈榈降男畔⒕陀玫搅?。如果解決方案只是引用了2.0版本的框架（.Net Framework），默認(rèn)的系統(tǒng)組件選擇。

可以選擇框架3.5，建議使用框架2.0，因?yàn)榭蚣?.0大小是30M，而框架3.5卻有300M之巨.指定系統(tǒng)必備組件的安裝設(shè)置”這個(gè)選項(xiàng)也挺有用。如果編寫了一個(gè)很簡(jiǎn)單的程序，想發(fā)布（此發(fā)布不是前述的發(fā)布）出去讓大家使用，而又不想拖著少則幾十兆多則幾百兆的框架的話，那么可以選擇第一個(gè)互斥按鈕。如果擔(dān)心用戶在安裝程序時(shí)上網(wǎng)不方便，不能從供應(yīng) 商那兒下載框架的話，那么，只好把框架拖上嘍（這也是為什么在能選擇框架2.0的時(shí)候莫要選擇框架3.5的原因，安裝程序越小越好，用戶如果安裝了幾百 兆的程序，發(fā)現(xiàn)打開(kāi)的只是個(gè)簡(jiǎn)單的計(jì)算器的話，會(huì)氣的摔鍵盤的?。?/p>

VB.NET怎么安裝

VB.NET安裝部署一).創(chuàng)建部署項(xiàng)目

1. 在“文件”菜單上指向“添加項(xiàng)目”，然后選擇“新建項(xiàng)目”。

2. 在“添加新項(xiàng)目”對(duì)話框中，選擇“項(xiàng)目類型”窗格中的“安裝和部署項(xiàng)目”，然后選擇“模板”窗格中的“安裝項(xiàng)目”。在“名稱”框中鍵入 setup1。

3. 單擊“確定”關(guān)閉對(duì)話框。

4. 項(xiàng)目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開(kāi)。

5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統(tǒng) 。

VB.NET安裝部署二).將 主程序 項(xiàng)目的輸出添加到部署項(xiàng)目中

1. 在“文件系統(tǒng)編輯器”中，選擇“應(yīng)用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項(xiàng)目輸出”。

2. 在“添加項(xiàng)目輸出組”對(duì)話框中，選擇“項(xiàng)目”下拉列表中的“你的程序”。

3. 單擊“確定”關(guān)閉對(duì)話框。

4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。

VB.NET安裝部署三).創(chuàng)建安裝程序類

1. 在“文件”菜單上指向“新建”，然后選擇“項(xiàng)目”。

2. 在“新建項(xiàng)目”對(duì)話框中，選擇“項(xiàng)目類型”窗格中的“Visual Basic 項(xiàng)目”，然后選擇“模板”窗格中的“類庫(kù)”。在“名稱”框中鍵入 installDB。

3. 單擊“打開(kāi)”關(guān)閉對(duì)話框。

4. 從“項(xiàng)目”菜單中選擇“添加新項(xiàng)”。

5. 在“添加新項(xiàng)”對(duì)話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。

6. 單擊“確定”關(guān)閉對(duì)話框。

7. 詳細(xì)代碼附后。

VB.NET安裝部署四).創(chuàng)建自定義安裝對(duì)話框

1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。

2. 在用戶界面編輯器中，選擇“安裝”下的“啟動(dòng)”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加對(duì)話框”。

3. 在“添加對(duì)話框”對(duì)話框中，選擇“許可協(xié)議”對(duì)話框，然后單擊“確定”關(guān)閉對(duì)話框。

4. 在“添加對(duì)話框”對(duì)話框中，選擇“文本框 (A)”對(duì)話框，然后單擊“確定”關(guān)閉對(duì)話框。

5. 在“操作”菜單上，選擇“上移”。重復(fù)此步驟，直到“文本框 (A)”對(duì)話框位于“安裝文件夾”節(jié)點(diǎn)之上。

6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫(kù).

7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕?biāo)機(jī)器上安裝數(shù)據(jù)庫(kù)

8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫(kù)名稱:

9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA1

10. 選擇 Edit1Value 屬性并鍵入：dbservers

11. 選擇 Edit2Label 屬性并鍵入：服務(wù)器名:

12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA2

13. 選擇 Edit2Value 屬性并鍵入：(local)

14. 選擇 Edit3Label 屬性并鍵入：用戶名:

15. 選擇 Edit3Value 屬性并鍵入：sa

16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA3

17. 選擇 Edit4Label 屬性并鍵入：密碼:

18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA4

19. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，并將它們?cè)O(shè)置為 true

VB.NET安裝部署五).創(chuàng)建自定義操作

1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。

2. 在自定義操作編輯器中選擇“安裝”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加自定義操作”。

3. 在“選擇項(xiàng)目中的項(xiàng)”對(duì)話框中，雙擊“應(yīng)用程序文件夾”。

4. 選擇“主輸出來(lái)自 installDB（活動(dòng)）”項(xiàng)，然后單擊“確定”關(guān)閉對(duì)話框。

5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

附:/targetdir="[TARGETDIR]/"是安裝后的目標(biāo)路徑，為了在installDB類中獲得安裝后的路徑，我們?cè)O(shè)置此參數(shù)。

VB.NET安裝部署六).添加文件

1. 將SQL Server備份成文件DB.dat添加到“setup1”項(xiàng)目(在企業(yè)管理器中右擊數(shù)據(jù)庫(kù)-所有工作-備份數(shù)據(jù)庫(kù),備份成一個(gè)文件，取名為DB.dat)

2. 將安裝文件LisenceFile.rtf添加到“setup1”項(xiàng)目

3. 在用戶界面編輯器中，選擇許可協(xié)議，設(shè)置LisenceFile屬性為L(zhǎng)isenceFile.rtf文件

4.一般會(huì)自動(dòng)將依賴項(xiàng)添加到“檢測(cè)到的依賴項(xiàng)”，如果沒(méi)有，那么我們要手動(dòng)將其加入步驟5）

Crystal_Managed2003.msm

（如果有水晶報(bào)表）

dotnetfxredist_x86.msm

（.net一定是必須的）

... （如果有引用其他的dll）

5.如果使用了水晶報(bào)表，手動(dòng)加入要包含的文件：項(xiàng)目--添加--合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*為必要的

具體功能如下：

（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）

* Crystal_Managed2003.msm

Crystal_Managed2003_chs.msm

（對(duì)于使報(bào)表運(yùn)行所需的所有其他文件，由數(shù)據(jù)庫(kù)訪問(wèn) MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫(kù)、導(dǎo)出和圖表驅(qū)動(dòng)程序。）

* Crystal_Database_access2003.msm

Crystal_Database_access2003_chs.msm

（KeyCode MSM 處理 Crystal Decisions 密鑰號(hào)碼的安裝,注意是添加合并模塊，否則沒(méi)有“MergeMouduleProperties”屬性）

* Crystal_regwiz2003.msm

（如果報(bào)表文件使用了 ADO.NET 的 dataset 數(shù)據(jù)集對(duì)象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模塊也必須包含在安裝工程中。而且這兩個(gè)模塊的文件安裝屬性的"Module Retargetable Folder"項(xiàng)必須修改成為系統(tǒng)目錄）

VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm

(很多人經(jīng)常出現(xiàn)查詢錯(cuò)誤，不妨加上這個(gè))

6.打開(kāi)解決方案--右鍵點(diǎn)擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（這個(gè)是你生成Crystal Report是用到的注冊(cè)號(hào)的密碼?。?/p>

VB.NET安裝部署七).打包時(shí)加入卸載功能：

方法一:

1.在打包項(xiàng)目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)

2.在文件系統(tǒng)視圖中選擇應(yīng)用程序文件夾,在msiexec.exe上按右鍵,選擇創(chuàng)建快捷方式,重命名快捷方式為"卸載".

3.更改此快捷方式的Arguments 為"/x {產(chǎn)品id}",產(chǎn)品id的值為打包項(xiàng)目的ProductCode屬性值.

方法二:(推薦)

1.先生成安裝包，記下ProductCode(選擇解決方案資源管理器根目錄如setup1,再查看屬性標(biāo)簽,不是右鍵中的屬性),下面要用到

2.用VS.net建立一個(gè)新的控制臺(tái)程序uninst.exe文件

'power by: landlordh

'for 2000,xp,2003

Module uninstall

Sub Main()

Dim myProcess As Process =

New Process

If System.Environment.OSVersion.

ToString.IndexOf("NT 5") Then

myProcess.Start("msiexec", "/X

{2B65D4A9-C146-4808-AB4B-321F

B0779559}") '改為自己的ProductCode

End If

myProcess.Close()

End Sub

End Module

3.將控制臺(tái)程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式

VB.NET安裝部署八).打包時(shí)加入.net環(huán)境和MDAC功能：

把MS的PluginInstaller.msi插件裝上后,用vb.net的自帶的打包工具打包,就會(huì)自動(dòng)把.net framework環(huán)境打進(jìn)去,再下面的步驟進(jìn)行設(shè)置,就可以把MDAC也打包.使用 Setup 項(xiàng)目安裝 MDAC

1.確保 Visual Studio .NET 框架引導(dǎo)程序插件已安裝。

2.在 Solution Explorer 中選擇 Setup 項(xiàng)目。從 View 菜單指向 Editor，并選擇 Launch Conditions（啟動(dòng)條件）。

3.選擇 Requirements on Target Machine（搜索目標(biāo)計(jì)算機(jī)） 節(jié)點(diǎn)。從 Action 菜單，選擇 Add Registry Launch Condition（添加注冊(cè)表搜索）。

4.選擇 Search for RegistryEntry1 節(jié)點(diǎn)。在 Properties 窗口中，選擇 RegKey 屬性，并鍵入 Software/Microsoft/DataAccess。

5.選擇 Root 屬性，并選擇 vsdrrHKLM。

6.選擇 Value 屬性，并鍵入 FullInstallVer。

7.選擇 Property 屬性，并鍵入 MDACSEARCH。

8.在 Launch Conditions Editor（啟動(dòng)條件） 中，添加Condition1 節(jié)點(diǎn)。選擇 Condition1 節(jié)點(diǎn)，在 Properties 窗口中，選擇 Condition 屬性，并選擇 MDACSEARCH="2.6"。

9.在 Solution Explorer 中選擇 Setup 項(xiàng)目。在 Project 菜單上，選擇 Properties。

10.將 Bootstrapper 屬性設(shè)置為 Windows Installer Bootstrapper（Windows 安裝引導(dǎo)程序）。

在VB.NET中實(shí)現(xiàn)文件的拖放

本文介紹了在VB NET中如何實(shí)現(xiàn)接受拖放的文件 即從資源管理器中拖放到應(yīng)用程序中的時(shí)候 自動(dòng)獲取拖放的文件 文中的例子是一個(gè)接受拖放文件顯示文件內(nèi)容的VB NET實(shí)例程序 引言

對(duì)于文本格式的文件 我們可以直接拖到記事本中就可以看到內(nèi)容 各種類型的圖片 拖到Photoshop中 就可以直接對(duì)其編輯 我們?nèi)绾卧赩B NET開(kāi)發(fā)的程序也實(shí)現(xiàn)上述效果呢？

思路

我們知道 每一個(gè)Windows的應(yīng)用程序都有一個(gè)消息隊(duì)列 程序的主體接受系統(tǒng)的消息 然后分發(fā)出去（給一個(gè)form 或者一個(gè)控件） 接受者有相應(yīng)的程序來(lái)處理消息 在 NET的Form中 默認(rèn)情況下程序是不翻譯這些消息的 也就是說(shuō)默認(rèn)我們的Class是不加入應(yīng)用程序的消息泵 能不能把我們的Form Class加入應(yīng)用程序的消息泵呢？可以！

在 NET中 任何一個(gè)實(shí)現(xiàn)IMessageFilter 接口的類 可以添加到應(yīng)用程序的消息泵中 以在消息被調(diào)度到控件或窗體之前將它篩選出來(lái)或執(zhí)行其他操作 使用 Application 類中的 AddMessageFilter 方法 可以將消息篩選器添加到應(yīng)用程序的消息泵中

于是我們?cè)诔绦蚣虞d的時(shí)候 調(diào)用Application AddMessageFilter（Me） 然而 默認(rèn)情況下一個(gè)Form或者控件是不能接受拖放的文件的 我們調(diào)用一個(gè)WIN API DragAcceptFiles源碼天空 這個(gè)API可以設(shè)置對(duì)應(yīng)的控件是否能接受拖放的文件 然后可以用DragQueryFile查詢拖放到的文件列表 也就是拖放文件地具體路徑和文件名

代碼

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H ? 拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

設(shè)置拖放的動(dòng)作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 記錄第一個(gè)文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

Next

DragFinish（m WParam ToInt ） 拖放完成

顯示文件內(nèi)容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

網(wǎng)站題目：資源管理器vb.net 資源管理器快捷鍵
網(wǎng)頁(yè)URL：http://jinyejixie.com/article42/ddcocec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷型網(wǎng)站建設(shè)、企業(yè)建站、企業(yè)網(wǎng)站制作、靜態(tài)網(wǎng)站、網(wǎng)站營(yíng)銷、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)