調(diào)用過程，調(diào)用過程有諸多技巧，它們與過程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。下面說明如何調(diào)用 Sub 過程和 Function 過程。
嘉定網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,嘉定網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為嘉定近千家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢，請找那個售后服務(wù)好的嘉定做網(wǎng)站的公司定做！
調(diào)用 Sub 過程
與 Sub 過程不同，在表達(dá)式中，Sub 過程不能用其名字調(diào)用。調(diào)用 Sub 過程的是一個獨(dú)立的語句。Sub 過程還有一點(diǎn)與函數(shù)不一樣，它不會用名字返回一個值。但是，與 Function過程一樣，Sub 過程也可以修改傳遞給它們的任何變量的值。
調(diào)用 Sub 過程有兩種方法：
'以下兩個語句都調(diào)用了名為 MyProc 的 Sub 過程。
Call MyProc (FirstArgument, SecondArgument)
MyProc FirstArgument, SecondArgument
注意，當(dāng)使用 Call 語法時，參數(shù)必須在括號內(nèi)。若省略 Call 關(guān)鍵字，則也必須省略參數(shù)兩邊的括號
調(diào)用函數(shù)過程
通常，調(diào)用自行編寫的函數(shù)過程的方法和調(diào)用 Visual Basic 內(nèi)部函數(shù)過程（例如 Abs）的方法一樣；即在表達(dá)式中寫上它的名字。
'下面的語句都調(diào)用函數(shù) ToDec。
Print 10 * ToDec
X = ToDec
If ToDec = 10 Then Debug.Print "Out of Range"
X = AnotherFunction ( 10 * ToDec)
就像調(diào)用 Sub 過程那樣，也能調(diào)用函數(shù)。下面的語句都調(diào)用同一個函數(shù)：
Call Year (Now)
Year Now
當(dāng)用這種方法調(diào)用函數(shù)時，Visual Basic 放棄返回值。
調(diào)用其它模塊中的過程
在工程中的任何地方都能調(diào)用其它模塊中的公用過程?？赡苄枰付ㄟ@樣的模塊，它包含正在調(diào)用的過程。調(diào)用其它模塊中的過程的各種技巧，取決于該過程是在窗體模塊中、類模塊中還是標(biāo)準(zhǔn)模塊中。
窗體中的過程
所有窗體模塊的外部調(diào)用必須指向包含此過程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過程，則可使用下面的語句調(diào)用 Form1 中的過程：
Call Form1.SomeSub(arguments)
類模塊中的過程
與窗體中調(diào)用過程類似，在類模塊中調(diào)用過程要調(diào)用與過程一致并且指向類實(shí)例的變量。例如，DemoClass 是類 Class1 的實(shí)例：
Dim DemoClass as New Class1
DemoClass.SomeSub
但是不同于窗體的是，在引用一個類的實(shí)例時，不能用類名作限定符。必須首先聲明類的實(shí)例為對象變量（在這個例子中是 DemoClass ）并用變量名引用它。
標(biāo)準(zhǔn)模塊中的過程
如果過程名是唯一的，則不必在調(diào)用時加模塊名。無論是在模塊內(nèi)，還是在模塊外調(diào)用，結(jié)果總會引用這個唯一過程。如果過程僅出現(xiàn)在一個地方，這個過程就是唯一的。
如果兩個以上的模塊都包含同名的過程，那就有必要用模塊名來限定了。在同一模塊內(nèi)調(diào)用一個公共過程就會運(yùn)行該模塊內(nèi)的過程。例如，對于 Module1 和 Module2 中名為 CommonName 的過程，從 Module2 中調(diào)用 CommonName 則運(yùn)行 Module2 中的 CommonName 過程，而不是 Module1 中的 CommonName 過程。
從其它模塊調(diào)用公共過程名時必須指定那個模塊。例如，若在 Module1 中調(diào)用 Module2 中的 CommonName 過程，要用下面的語句：
Module2.CommonName (arguments)
Public ? 用于聲明對所有模塊中的所有其它過程都可以使用的過程。?
Private ?用于聲明只能在包含該聲明的模塊中使用的過程。
通用模塊？
VB6：工程資源管理器的右鍵菜單中的“添加”里面有標(biāo)準(zhǔn)模塊
VB.NET：類視圖空白區(qū)域右鍵菜單中“添加”類里面的“模塊”
.net沒有VB6中模塊的概念.可以添加類,或組件.右鍵單擊工程,就可以在彈出菜單看到相關(guān)菜單項(xiàng)
模塊：相當(dāng)于全局級變量。
類：可以實(shí)例化，繼承等。
對于你這樣的初學(xué)者來說，可以視作 模塊變量=類的public shared變量。
最好的方法是：項(xiàng)目-添加-類-粘貼代碼。
VB.NET安裝部署一).創(chuàng)建部署項(xiàng)目
1. 在“文件”菜單上指向“添加項(xiàng)目”，然后選擇“新建項(xiàng)目”。
2. 在“添加新項(xiàng)目”對話框中，選擇“項(xiàng)目類型”窗格中的“安裝和部署項(xiàng)目”，然后選擇“模板”窗格中的“安裝項(xiàng)目”。在“名稱”框中鍵入 setup1。
3. 單擊“確定”關(guān)閉對話框。
4. 項(xiàng)目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。
5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 信息管理系統(tǒng) 。
VB.NET安裝部署二).將 主程序 項(xiàng)目的輸出添加到部署項(xiàng)目中
1. 在“文件系統(tǒng)編輯器”中，選擇“應(yīng)用程序文件夾”。在“操作”菜單上，指向“添加”，然后選擇“項(xiàng)目輸出”。
2. 在“添加項(xiàng)目輸出組”對話框中，選擇“項(xiàng)目”下拉列表中的“你的程序”。
3. 單擊“確定”關(guān)閉對話框。
4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。
VB.NET安裝部署三).創(chuàng)建安裝程序類
1. 在“文件”菜單上指向“新建”，然后選擇“項(xiàng)目”。
2. 在“新建項(xiàng)目”對話框中，選擇“項(xiàng)目類型”窗格中的“Visual Basic 項(xiàng)目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。
3. 單擊“打開”關(guān)閉對話框。
4. 從“項(xiàng)目”菜單中選擇“添加新項(xiàng)”。
5. 在“添加新項(xiàng)”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。
6. 單擊“確定”關(guān)閉對話框。
7. 詳細(xì)代碼附后。
VB.NET安裝部署四).創(chuàng)建自定義安裝對話框
1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。
2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加對話框”。
3. 在“添加對話框”對話框中，選擇“許可協(xié)議”對話框，然后單擊“確定”關(guān)閉對話框。
4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然后單擊“確定”關(guān)閉對話框。
5. 在“操作”菜單上，選擇“上移”。重復(fù)此步驟，直到“文本框 (A)”對話框位于“安裝文件夾”節(jié)點(diǎn)之上。
6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫.
7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕?biāo)機(jī)器上安裝數(shù)據(jù)庫
8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫名稱:
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 屬性，并將它們設(shè)置為 true
VB.NET安裝部署五).創(chuàng)建自定義操作
1. 在解決方案資源管理器中選擇“setup1”項(xiàng)目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。
2. 在自定義操作編輯器中選擇“安裝”節(jié)點(diǎn)。在“操作”菜單上，選擇“添加自定義操作”。
3. 在“選擇項(xiàng)目中的項(xiàng)”對話框中，雙擊“應(yīng)用程序文件夾”。
4. 選擇“主輸出來自 installDB（活動）”項(xiàng)，然后單擊“確定”關(guān)閉對話框。
5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。
附:/targetdir="[TARGETDIR]/"是安裝后的目標(biāo)路徑，為了在installDB類中獲得安裝后的路徑，我們設(shè)置此參數(shù)。
VB.NET安裝部署六).添加文件
1. 將SQL Server備份成文件DB.dat添加到“setup1”項(xiàng)目(在企業(yè)管理器中右擊數(shù)據(jù)庫-所有工作-備份數(shù)據(jù)庫,備份成一個文件，取名為DB.dat)
2. 將安裝文件LisenceFile.rtf添加到“setup1”項(xiàng)目
3. 在用戶界面編輯器中，選擇許可協(xié)議，設(shè)置LisenceFile屬性為LisenceFile.rtf文件
4.一般會自動將依賴項(xiàng)添加到“檢測到的依賴項(xiàng)”，如果沒有，那么我們要手動將其加入步驟5）
Crystal_Managed2003.msm
（如果有水晶報表）
dotnetfxredist_x86.msm
（.net一定是必須的）
... （如果有引用其他的dll）
5.如果使用了水晶報表，手動加入要包含的文件：項(xiàng)目--添加--合并模塊（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*為必要的
具體功能如下：
（托管組件 MSM 處理所有托管組件的分發(fā)，其中包括 Windows 窗體查看器、Web 窗體查看器和所有 Crystal Decisions 命名空間）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（對于使報表運(yùn)行所需的所有其他文件，由數(shù)據(jù)庫訪問 MSM 處理其分發(fā)。其中包括數(shù)據(jù)庫、導(dǎo)出和圖表驅(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"項(xiàng)必須修改成為系統(tǒng)目錄）
VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm
(很多人經(jīng)常出現(xiàn)查詢錯誤，不妨加上這個)
6.打開解決方案--右鍵點(diǎn)擊Crystal_regwiz2003.msm的屬性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（這個是你生成Crystal Report是用到的注冊號的密碼！）
VB.NET安裝部署七).打包時加入卸載功能：
方法一:
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建立一個新的控制臺程序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.將控制臺程序BIN目錄的exe文件加入到打包程序文件中,在程序組創(chuàng)建uninst.exe的快捷方式
VB.NET安裝部署八).打包時加入.net環(huán)境和MDAC功能：
把MS的PluginInstaller.msi插件裝上后,用vb.net的自帶的打包工具打包,就會自動把.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（啟動條件）。
3.選擇 Requirements on Target Machine（搜索目標(biāo)計算機(jī)） 節(jié)點(diǎn)。從 Action 菜單，選擇 Add Registry Launch Condition（添加注冊表搜索）。
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（啟動條件） 中，添加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)程序）。
體是Windows應(yīng)用程序的基礎(chǔ) 新一代的開發(fā)工具Visual Basic Net為設(shè)計制作窗體提供了更多簡單而豐富的方法 無需再求助于復(fù)雜而易錯的API函數(shù) 我們就可以輕松制作多種特效窗體 輕松制作透明窗體VB NET可以輕松制作出任一透明度的窗體 我們只要在窗體的 屬性 窗口中 將 Opacity 屬性設(shè)置為一個介于 （完全透明）與 （完全不透明）之間的值就可以了 Dim frm As FrmTrans = New FrmTrans()frm Opacity = frm ShowDialog() 輕松制作始終位于最上層的窗體在VB 中 要制作一個始終位于最上層的窗體我們只能求助于令人頭痛的API函數(shù) 然而在 NET 中 我們只要簡單設(shè)置窗體的 TopMost 屬性就可實(shí)現(xiàn)同樣效果了！例如 Dim frm As frmTopMost = New frmTopMost()frm TopMost = Truefrm Show() 輕松制作不可見的窗體如果要編寫一個不讓別人發(fā)現(xiàn)的隱藏程序 制作不可見的窗體就是必須實(shí)現(xiàn)的第一步 窗體的可見性通常由 Visible 屬性控制 但是 如果希望 Windows 應(yīng)用程序的主窗體在應(yīng)用程序啟動時不可見 您將會發(fā)現(xiàn)將它的 Visible 屬性設(shè)置為 False 的方法無效 窗體總會自己顯示出來（這是因?yàn)?啟動窗體的生存期決定了應(yīng)用程序的生存期） 雖然如此 我們還是可以通過簡單將應(yīng)用程序的啟動設(shè)置為一個模塊 從而從窗體的生存期分出應(yīng)用程序的生存期 輕松實(shí)現(xiàn)不可見的窗體 在下面這個例子中 窗體在特定的時間內(nèi)自動隱藏 （ ）在 Visual Basic 中 右擊項(xiàng)目并選擇 添加模塊 以將模塊添加到 Windows 應(yīng)用程序 （ ）在已添加的模塊（或類）內(nèi) 創(chuàng)建可作為項(xiàng)目啟動對象的 Main 函數(shù) Sub main()Dim f As New Form ()f Visible = FalseWhile Hour(Date Now) 如果當(dāng)前時間早于 點(diǎn) 窗體自動隱藏Application DoEvents()End Whilef ShowDialog()End Sub 輕松編寫托盤程序托盤程序作為一類特殊的窗體 其快捷圖標(biāo)顯示在系統(tǒng)托盤中 窗體本身則隱藏不可見 在 NET之前版本的VB中編寫托盤程序是十分困難的 但是VB NET提供的新的NotifyIcon組件卻使VB初學(xué)者也能輕松編寫一個這樣的程序 新建 Windows應(yīng)用程序 設(shè)置主窗體Opacity屬性為 FormBorderStyle屬性為None ShowInTaskbar屬性為False 這樣窗體將在啟動后隱藏 在窗體上放置一個NotifyIcon組件NotifyIcon 一個ContextMenu（彈出菜單）組件ContextMenu 并根據(jù)需要為ContextMenu 添加菜單項(xiàng) 設(shè)置NotifyIcon 的ICON屬性 這個圖標(biāo)就是應(yīng)用程序出現(xiàn)在系統(tǒng)托盤中的快捷圖標(biāo) 設(shè)置NotifyIcon 的Text屬性為 VB NET托盤程序 這就是鼠標(biāo)移動到托盤圖標(biāo)時彈出的文字說明 設(shè)置NotifyIcon 的ContextMenu屬性為ContextMenu 也就是右鍵單擊快捷圖標(biāo)時的彈出菜單為ContextMenu OK 按F 運(yùn)行！幾乎不用編寫代碼 一個托盤程序就這樣輕松實(shí)現(xiàn)了 lishixinzhi/Article/program/net/201311/13831
重慶分公司
重慶分公司
