vb.net控件打包 vbnet winsock控件
vb.net怎樣打包？
打包的具體操作步驟：
10年積累的網(wǎng)站設計制作、成都做網(wǎng)站經(jīng)驗，可以快速應對客戶對網(wǎng)站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡服務。我雖然不認識你，你也不認識我。但先建設網(wǎng)站后付款的網(wǎng)站建設流程，更有象山免費網(wǎng)站建設讓你可以放心的選擇與我們合作。
1）新建“安裝和部署項目”-- “安裝向?qū)А?/p>
2）選擇菜單中 項目-- 添加-- 文件（這里選“創(chuàng)建用于windows應用程序.exe你的數(shù)據(jù)庫文件”）-- 打開
3）一般會自動將依賴項添加到“檢測到的依賴項”，如果沒有，那么我們要手動將其加入4）
Crystal_Managed2003.msm （如果有水晶報表）
dotnetfxredist_x86.msm （.net一定是必須的）
... （如果有引用其他的dll）
4）手動加入要包含的文件：項目-- 添加-- 合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)
位于：C:\Program Files\Common Files\Merge Modules\ 下
具體功能如下：
（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）
* Crystal_Managed2003.msm、
Crystal_Managed2003_chs.msm、
（對于使報表運行所需的所有其他文件，由數(shù)據(jù)庫訪問 MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫、導出和圖表驅(qū)動程序。）
* Crystal_Database_access2003.msm、
Crystal_Database_access2003_chs.msm、
（KeyCode MSM 處理 Crystal Decisions 密鑰號碼的安裝,注意是添加合并模塊，否則沒有“MergeMouduleProperties”屬性）
* Crystal_regwiz2003.msm、
（是vc的運行庫，估計是Crystal Report或涉及到的某些程序是用vc寫的，所以需要它！）
VC_User_CRT71_RTL_X86_---.msm、
VC_User_STL71_RTL_X86_---.msm、
5）打開解決方案-- 右鍵點擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（這個是你生成Crystal Report是用到的注冊號的密碼?。?/p>
6）生成解決方案（或直接按Ctrl+Shift+B）
至此整個分發(fā)程序已經(jīng)做好，再把剛才做的那個安裝程序雙擊一下……
-----------------------------------------------------------------------
打包時加入卸載功能：
方法一:
1.在打包項目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)
2.在文件系統(tǒng)視圖中選擇應用程序文件夾,在msiexec.exe上按右鍵,選擇創(chuàng)建快捷方式,重命名快捷方式為 "卸載 ".
3.更改此快捷方式的Arguments 為 "/x {產(chǎn)品id} ",產(chǎn)品id的值為打包項目的ProductCode屬性值.
方法二:(推薦)
1.先生成安裝包，記下ProductCode,下面要用到
2.用VS.net建立一個新的控制臺程序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-321FB0779559} ") '改為自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.將控制臺程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式
如果裝個ms的控件的話，則直接把framework和msac打在包里。
VB.NET 2008 怎么給軟件打包？能不能做成一個exe文件？
直接把代碼編譯生成即可，把Bin文件夾下面的幾個文件拷貝過去就可以了?？蛻魴C需要安裝dot net framwork 3.5
打包過程：
一).創(chuàng)建部署項目
1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。
2. 在“添加新項目”對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然后選擇“模板”窗格中的“安裝項目”。在“名稱”框中鍵入 setup1。
3. 單擊“確定”關閉對話框。
4. 項目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。
5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統(tǒng) 。
二).將 主程序 項目的輸出添加到部署項目中
1. 在“文件系統(tǒng)編輯器”中，選擇“應用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項目輸出”。
2. 在“添加項目輸出組”對話框中，選擇“項目”下拉列表中的“你的程序”。
3. 單擊“確定”關閉對話框。
4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。
三).創(chuàng)建安裝程序類
1. 在“文件”菜單上指向“新建”，然后選擇“項目”。
2. 在“新建項目”對話框中，選擇“項目類型”窗格中的“Visual Basic 項目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。
3. 單擊“打開”關閉對話框。
4. 從“項目”菜單中選擇“添加新項”。
5. 在“添加新項”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。
6. 單擊“確定”關閉對話框。
7. 詳細代碼附后。
四).創(chuàng)建自定義安裝對話框
1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。
2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節(jié)點。在“操作”菜單上，選擇“添加對話框”。
3. 在“添加對話框”對話框中，選擇“許可協(xié)議”對話框，然后單擊“確定”關閉對話框。
4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然后單擊“確定”關閉對話框。
5. 在“操作”菜單上，選擇“上移”。重復此步驟，直到“文本框 (A)”對話框位于“安裝文件夾”節(jié)點之上。
6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫.
7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕藱C器上安裝數(shù)據(jù)庫
8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫名稱:
9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA1
10. 選擇 Edit1Value 屬性并鍵入：dbservers
11. 選擇 Edit2Label 屬性并鍵入：服務器名:
12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA2
13. 選擇 Edit2Value 屬性并鍵入：(local)
14. 選擇 Edit3Label 屬性并鍵入：用戶名:
15. 選擇 Edit3Value 屬性并鍵入：sa
16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA3
17. 選擇 Edit4Label 屬性并鍵入：密碼:
18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA4
19. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，并將它們設置為 true
五).創(chuàng)建自定義操作
1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。
2. 在自定義操作編輯器中選擇“安裝”節(jié)點。在“操作”菜單上，選擇“添加自定義操作”。
3. 在“選擇項目中的項”對話框中，雙擊“應用程序文件夾”。
4. 選擇“主輸出來自 installDB（活動）”項，然后單擊“確定”關閉對話框。
5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。
附:/targetdir="[TARGETDIR]\"是安裝后的目標路徑，為了在installDB類中獲得安裝后的路徑，我們設置此參數(shù)。
六).添加文件
1. 將SQL Server備份成文件DB.dat添加到“setup1”項目(在企業(yè)管理器中右擊數(shù)據(jù)庫-所有工作-備份數(shù)據(jù)庫,備份成一個文件，取名為DB.dat)
2. 將安裝文件LisenceFile.rtf添加到“setup1”項目
3. 在用戶界面編輯器中，選擇許可協(xié)議，設置LisenceFile屬性為LisenceFile.rtf文件
4.一般會自動將依賴項添加到“檢測到的依賴項”，如果沒有，那么我們要手動將其加入步驟5）
Crystal_Managed2003.msm （如果有水晶報表）
dotnetfxredist_x86.msm （.net一定是必須的）
... （如果有引用其他的dll）
5. 如果使用了水晶報表，手動加入要包含的文件：項目--添加--合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:\Program Files\Common Files\Merge Modules\ 下，*為必要的
具體功能如下：
（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（對于使報表運行所需的所有其他文件，由數(shù)據(jù)庫訪問 MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫、導出和圖表驅(qū)動程序。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 處理 Crystal Decisions 密鑰號碼的安裝,注意是添加合并模塊，否則沒有“MergeMouduleProperties”屬性）
* Crystal_regwiz2003.msm
（如果報表文件使用了 ADO.NET 的 dataset 數(shù)據(jù)集對象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模塊也必須包含在安裝工程中。而且這兩個模塊的文件安裝屬性的"Module Retargetable Folder"項必須修改成為系統(tǒng)目錄）
VC_User_CRT71_RTL_X86_---.msm
VC_User_STL71_RTL_X86_---.msm
(很多人經(jīng)常出現(xiàn)查詢錯誤，不妨加上這個)
6. 打開解決方案--右鍵點擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的 “License Key”填入：AAP5GKS0000GDE100DS（這個是你生成Crystal Report是用到的注冊號的密碼?。?/p>
七).打包時加入卸載功能：
方法一:
1.在打包項目中添加文件msiexec.exe(一般可在c:\windows\system32\下找到)
2.在文件系統(tǒng)視圖中選擇應用程序文件夾,在msiexec.exe上按右鍵,選擇創(chuàng)建快捷方式,重命名快捷方式為"卸載".
3.更改此快捷方式的Arguments 為"/x {產(chǎn)品id}",產(chǎn)品id的值為打包項目的ProductCode屬性值.
方法二:(推薦)
1.先生成安裝包，記下ProductCode(選擇解決方案資源管理器根目錄如setup1,再查看屬性標簽,不是右鍵中的屬性),下面要用到
2.用VS.net建立一個新的控制臺程序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-321FB0779559}") '改為自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.將控制臺程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式
八).打包時加入.net環(huán)境和MDAC功能：
把MS的PluginInstaller.msi插件裝上后,用vb.net的自帶的打包工具打包,就會自動把
.net framework環(huán)境打進去,再下面的步驟進行設置,就可以把MDAC也打包.
使用 Setup 項目安裝 MDAC
1.確保 Visual Studio .NET 框架引導程序插件已安裝。
2.在 Solution Explorer 中選擇 Setup 項目。
從 View 菜單指向 Editor，并選擇 Launch Conditions（啟動條件）。
3.選擇 Requirements on Target Machine（搜索目標計算機） 節(jié)點。
從 Action 菜單，選擇 Add Registry Launch Condition（添加注冊表搜索）。
4.選擇 Search for RegistryEntry1 節(jié)點。在 Properties 窗口中，
選擇 RegKey 屬性，并鍵入 Software\Microsoft\DataAccess。
5.選擇 Root 屬性，并選擇 vsdrrHKLM。
6.選擇 Value 屬性，并鍵入 FullInstallVer。
7.選擇 Property 屬性，并鍵入 MDACSEARCH。
8.在 Launch Conditions Editor（啟動條件） 中，添加Condition1 節(jié)點。
選擇 Condition1 節(jié)點，在 Properties 窗口中，選擇 Condition 屬性，并選擇 MDACSEARCH="2.6"。
9.在 Solution Explorer 中選擇 Setup 項目。在 Project 菜單上，選擇 Properties。
10.將 Bootstrapper 屬性設置為 Windows Installer Bootstrapper（Windows 安裝引導程序）。
附：
installdb.vb類,要添加引用 system.configuration.install.dll :
Imports System.ComponentModel
Imports System.Configuration.Install
RunInstaller(True) Public Class Installer1
Inherits System.Configuration.Install.Installer
#Region " 組件設計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調(diào)用是組件設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調(diào)用之后添加任何初始化
End Sub
'Installer 重寫 dispose 以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'組件設計器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下過程是組件設計器所必需的
'可以使用組件設計器來修改此過程。
'不要使用代碼編輯器來修改它。
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub
#End Region
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
If Not InstallDB() Then
'失敗，反安裝
Me.Uninstall(stateSaver)
Exit Sub
End If
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
'執(zhí)行反安裝
MyBase.Uninstall(stateSaver)
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Private Sub DeleteFile(ByVal paths As String)
'刪除指定的文件
Try
Dim delFile As New System.IO.FileInfo(paths)
If delFile.Exists Then
delFile.Delete()
End If
Catch ex As Exception
End Try
End Sub
Private Sub CreateSql(ByVal paths As String)
Dim File As System.IO.StreamWriter
Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname"))
Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir"))
Try
Dim s As New System.Text.StringBuilder
s.Append("use master" vbCrLf)
s.Append("" vbCrLf)
s.Append("if not exists (select * from sysdatabases where name='" db "')" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" create database " db vbCrLf)
s.Append(" END" vbCrLf)
s.Append("" vbCrLf)
s.Append("if exists (select * from sysdevices where name='DBdisk')" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" EXEC sp_dropdevice 'DBdisk'" vbCrLf)
s.Append(" END" vbCrLf)
s.Append("Else" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" path "DB.dat'" vbCrLf)
s.Append(" END" vbCrLf)
s.Append("" vbCrLf)
s.Append("restore database " db vbCrLf)
s.Append("from disk='" path "DB.dat'" vbCrLf)
s.Append("with replace")
File = New System.IO.StreamWriter(paths)
File.Write(s.ToString)
Catch ex As Exception
Finally
File.Close()
End Try
End Sub
Private Function InstallDB() As Boolean
'安裝數(shù)據(jù)庫，調(diào)用自動批處理。
Try
'創(chuàng)建臨時腳本
CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
'調(diào)用osql執(zhí)行腳本
Dim sqlProcess As New System.Diagnostics.Process
sqlProcess.StartInfo.FileName = "osql.exe"
sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir"))
sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
sqlProcess.Start()
sqlProcess.WaitForExit() '等待執(zhí)行
sqlProcess.Close()
'刪除腳本文件
DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
網(wǎng)上的另外一種installdb.vb類
installdb.vb類,要添加引用 system.configuration.install.dll :
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Reflection;
using System.IO;
using System.Data;
using System.Data.SqlClient;
namespace install
{
/// summary
/// Installer1 的摘要說明。
/// /summary
[RunInstaller(true)]
public class Installer1 : System.Configuration.Install.Installer
{
/// summary
/// 必需的設計器變量。
/// /summary
private System.ComponentModel.Container components = null;
public Installer1()
{
// 該調(diào)用是設計器所必需的。
InitializeComponent();
// TODO: 在 InitializeComponent 調(diào)用后添加任何初始化
}
/// summary
/// 清理所有正在使用的資源。
/// /summary
protected override void Dispose( bool disposing )
{
if( disposing )
{
if(components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region 組件設計器生成的代碼
/// summary
/// 設計器支持所需的方法 - 不要使用代碼編輯器修改
/// 此方法的內(nèi)容。
/// /summary
private void InitializeComponent()
{
components = new System.ComponentModel.Container();
}
#endregion
private string GetSql(string Name)
{
// //調(diào)用osql執(zhí)行腳本
//
// System.Diagnostics.Process sqlProcess = new System.Diagnostics.Process();
//
// sqlProcess.StartInfo.FileName = "osql.exe";
//
// sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql", this.Context.Parameters["user"], this.Context.Parameters["pwd"],"master", this.Context.Parameters["targetdir"]);
//
// sqlProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden;
//
// sqlProcess.Start();
//
// sqlProcess.WaitForExit() ;//等待執(zhí)行
//
// sqlProcess.Close();
try
{
// Assembly Asm = Assembly.GetExecutingAssembly();
// System.IO.FileInfo FileInfo = new System.IO.FileInfo(Asm.Location);
// string path=FileInfo.DirectoryName+@"\"+Name;
string path=this.Context.Parameters["targetdir"]+Name;
FileStream fs=new FileStream(path,FileMode.Open,FileAccess.Read,FileShare.Read);
StreamReader reader = new StreamReader(fs,System.Text.Encoding.Default);
//System.Text.Encoding.ASCII;
return reader.ReadToEnd();
}
catch (Exception ex)
{
Console.Write("In GetSql:"+ex.Message);
throw ex;
}
}
private void ExecuteSql(string DataBaseName,string Sql)
{
SqlConnection sqlConnection1=new SqlConnection();
sqlConnection1.ConnectionString =string.Format("server={0}; user id={1}; password={2}; Database=master",this.Context.Parameters["server"],this.Context.Parameters["user"],this.Context.Parameters["pwd"]);
System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClient.SqlCommand(Sql,sqlConnection1);
try
{
Command.Connection.Open();
Command.Connection.ChangeDatabase(DataBaseName);
Command.ExecuteNonQuery();
}
catch(Exception ex)
{
Console.Write("In exception handler :"+ex.Message);
}
finally
{
Command.Connection.Close();
}
}
protected void AddDBTable(string strDBName)
{
try
{
ExecuteSql("master","Create DATABASE "+ strDBName);
ExecuteSql(strDBName,GetSql("sql.txt"));
ExecuteSql("master","exec sp_addlogin 'myoamaster','myoamaster','"+strDBName+"',Null,Null");
ExecuteSql(strDBName,"EXEC sp_grantdbaccess 'myoamaster', 'myoamaster'");
ExecuteSql(strDBName,"exec sp_addrolemember 'db_owner','myoamaster'");
}
catch(Exception ex)
{
Console.Write("In exception handler :"+ex.Message);
}
}
public override void Install(System.Collections.IDictionary stateSaver)
{
base.Install(stateSaver);
AddDBTable(this.Context.Parameters["dbname"]);
}
}
}
這里有個sql.txt是數(shù)據(jù)庫的sql腳本,當然可以調(diào)用osql來執(zhí)行sql腳本，其實是一樣的。
打包的時候必須把sql.txt文件加進來，否則不會執(zhí)行。
如果你想附加數(shù)據(jù)庫的mdf文件和ldf文件，用下面這段程序：
private void CreateDataBase(string strSql,string DataName,string strMdf,string strLdf)
{
String str;
SqlConnection myConn = new SqlConnection (strSql);
//EXEC sp_detach_db @dbname = 'BX_FreightMileage_2'//需要先將數(shù)據(jù)庫分離出來
str = "EXEC sp_attach_db @dbname = '"+ DataName +"', @filename1 = '"+ strMdf +"',@filename2='"+strLdf+"'";
SqlCommand myCommand = new SqlCommand(str, myConn);
myConn.Open();
myCommand.ExecuteNonQuery();
myConn.Close();
}
當然打包的時候也要把這兩個數(shù)據(jù)庫文件也加進來。
VB.net平臺做出來的程序怎么打包成.exe文件？
將VB.Net程序打包成可執(zhí)行的.exe程序 收藏 一).創(chuàng)建部署項目1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。2. 在“添加新項目”對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然后選擇“模板”窗格中的“安裝項目”。在“名稱”框中鍵入 setup1。3. 單擊“確定”關閉對話框。4. 項目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統(tǒng) 。二).將 主程序 項目的輸出添加到部署項目中1. 在“文件系統(tǒng)編輯器”中，選擇“應用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項目輸出”。2. 在“添加項目輸出組”對話框中，選擇“項目”下拉列表中的“你的程序”。3. 單擊“確定”關閉對話框。4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。三).創(chuàng)建安裝程序類1. 在“文件”菜單上指向“新建”，然后選擇“項目”。2. 在“新建項目”對話框中，選擇“項目類型”窗格中的“Visual Basic 項目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。3. 單擊“打開”關閉對話框。4. 從“項目”菜單中選擇“添加新項”。5. 在“添加新項”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。6. 單擊“確定”關閉對話框。7. 詳細代碼附后。四).創(chuàng)建自定義安裝對話框1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節(jié)點。在“操作”菜單上，選擇“添加對話框”。 3. 在“添加對話框”對話框中，選擇“許可協(xié)議”對話框，然后單擊“確定”關閉對話框。4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然后單擊“確定”關閉對話框。5. 在“操作”菜單上，選擇“上移”。重復此步驟，直到“文本框 (A)”對話框位于“安裝文件夾”節(jié)點之上。6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫.7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕藱C器上安裝數(shù)據(jù)庫8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫名稱:9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA110. 選擇 Edit1Value 屬性并鍵入：dbservers11. 選擇 Edit2Label 屬性并鍵入：服務器名:12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA213. 選擇 Edit2Value 屬性并鍵入：(local)14. 選擇 Edit3Label 屬性并鍵入：用戶名:15. 選擇 Edit3Value 屬性并鍵入：sa16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA317. 選擇 Edit4Label 屬性并鍵入：密碼:18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA419. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，并將它們設置為 true五).創(chuàng)建自定義操作1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。2. 在自定義操作編輯器中選擇“安裝”節(jié)點。在“操作”菜單上，選擇“添加自定義操作”。3. 在“選擇項目中的項”對話框中，雙擊“應用程序文件夾”。4. 選擇“主輸出來自 installDB（活動）”項，然后單擊“確定”關閉對話框。5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。附:/targetdir="[TARGETDIR]\"是安裝后的目標路徑，為了在installDB類中獲得安裝后的路徑，我們設置此參數(shù)。
文章標題：vb.net控件打包 vbnet winsock控件
標題網(wǎng)址：http://muchs.cn/article2/ddcoeoc.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、關鍵詞優(yōu)化、手機網(wǎng)站建設、品牌網(wǎng)站制作、服務器托管、自適應網(wǎng)站
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
- 商城網(wǎng)站建設常見的幾種國內(nèi)在線支付介紹 2023-03-14
- 商城網(wǎng)站的主要功能解析 2022-11-14
- 網(wǎng)上商城設計怎么有利于吸引客戶 2016-10-04
- 商城網(wǎng)站建設和運營的重心 2021-06-07
- 商城網(wǎng)站建設運營的幾大要點 2022-07-02
- 商城網(wǎng)站和普通網(wǎng)站的區(qū)別 2014-12-08
- 移動商城網(wǎng)站開發(fā)要多少錢？ 2016-11-10
- 如何運用javaweb語言做成都購物商城開發(fā) 2016-12-10
- 商城網(wǎng)站設計的定義與分類 2021-03-04
- 濟寧商城網(wǎng)站建設：制作商城購物網(wǎng)站的一些創(chuàng)新方法 2021-10-23
- 深圳商城網(wǎng)站設計需要遵守哪些原則 2021-08-25
- 做一個商城網(wǎng)站 需要從哪些方面入手 2022-07-22