VB制作網址鏈接器研究論文

導語：VB制作網址鏈接器研究論文一文來源于網友上傳，不代表本站觀點，若需要原創文章可咨詢客服老師，歡迎參考。

用過《東方網神》的朋友們都知道，《東方網神》內設有一個網址資源，分類存放了很多網址，你只要用鼠標單擊要去的網址，就可把你帶到該網站。其實我們也可以自己設計一個網址鏈接器實現此功能論文。

下面就用vb6.0編寫一個簡單的網址鏈接器，步驟如下：

1．啟動VB6.0,新建一個標準EXE工程，系統自動創建一個窗體form1,設置其caption屬性為“創新搜索引擎”。

2．我們需要引用一個API函數ShellExecute，方法是在工程中添加一個模塊Module1，打開VB6.0API瀏覽器，在API瀏覽器的“文件”菜單中選擇“加載文本文件”菜單項，此時將彈出一個“選擇一個文本API文件”對話框，從中選擇“Win32api.txt”，單擊“確定”按鈕，單擊ShellExecute函數，然后單擊“復制”按鈕。再回到Module1,按CTRL＋V把ShellExecute函數粘貼到Module1模塊的代碼窗口中。

3．回到form1窗體，添加一個frame控件，取名為frame1,caption屬性設置為“請選擇網站類別”，在frame1控件中放置一個optionbutton控件組(單選按鈕)，取名為option1,該控件存放網站類別，可根據需要設置option的控件數目。這里僅設置了四個，option1(0)的caption屬性為“國內著名網站”，option1(1)的caption屬性為“IT”，option1(2)的caption屬性為“硬件”，option1(3)的caption屬性為“軟件”。

4．再添加一個frame控件，取名為frame2，caption屬性設置為“請選擇網站”,在frame2控件中放置一個label控件組，取名為label1,該控件存放網站的名稱。放置兩個label控件，也根據實際需要設置控件數目。設置其Font屬性為下劃線,Forecolor屬性為突出顯示，Mouseicon屬性(設置自定義的鼠標圖標)為一個手形圖標，這里為VB98\graphics\icons\arrows目錄下的Point02.ico文件，其Mousepointer屬性為99(通過Mouseseicon屬性所指定的自定義圖標)。

5．在form1窗體聲明以下變量：

PublickindAsString′kind變量為網站類別

DimaddessAsString′addess變量為網址

Dimaddeslink

6．雙擊form1窗體的option1控件，在彈出的代碼窗口中的PrivateSubOption1_Click(IndexAsInteger)子程序中編寫代碼：

SelectCaseIndex

Case0′國內著名網站

kind=″zm″

Label1(0).Caption=″搜狐″

′當鼠標移到該控件時，顯示該網站的網址

Label1(0).ToolTipText=″/″

Label1(1).Caption=″網易″

Label1(1).ToolTipText=″/″

′以下添加你常用的網站的網址

...

Case1′IT

kind=″IT″

Label1(0).Caption=″電腦報″

Label1(0).ToolTipText=″/″

′以下添加你常去的網站的網址

...

Case2′硬件

kind=″hardware″

Label1(0).Caption=″驅動之家″

Label1(0).ToolTipText=″″

′以下你常用的網站的網址

...

Case3′軟件

kind=″software″

Label1(0).Caption=″華軍軟件園″

Label1(0).ToolTipText=″/″

′以下添加你常用的網站的網址

...

EndSelect

EndSub

7．編寫一個link子程序

′此子程序功能為轉到超級鏈接

PrivateSublink()linkaddess=ShellExecute(0＆,vbNullString,addess,vbNullString,vbNullString,vbNormalFocus)

EndSub

8．雙擊form1窗體的label1控件，在彈出的代碼窗口中的PrivateSubLabel1_Click(IndexAsInteger)子程序中編寫代碼：

Ifkind=″zm″Then′

如果單擊“著名國內網站“單選按鈕則

SelectCaseIndex

Case0′如果單擊第一個label控件則

addess=″/″

Calllink′調用link子程序,進行超級鏈接

Case1

addess=″/

endselect

ElseIfkind=″IT″Then′如果單擊“IT“單選按鈕則

SelectCaseIndex

Case0

addess=″/″

Calllink

endselect

ElseIfkind=″hardware″Then′硬件

SelectCaseIndex

Case0

addess=″″

Calllink

endselect

ElseIfkind=″software″Then′軟件

SelectCaseIndex

Case0

addess=″/″

Calllink

endselect

endif

endsub

9．保存該工程，取名為“創新鏈接器”，并生成“創新鏈接器.EXE”。至此，一個簡單的鏈接器就制作完成了。

測試：撥號上網，啟動該鏈接器程序，把鼠標移動到“搜狐“，出現一個手形光標，并顯示其網址：

。此時單擊鼠標左鍵，瀏覽器被運行并打開“搜狐”的主頁，所示。

當然，我們還可擴充其功能，如：1.把常用的網址放入一個數據庫，加入數據控件，使其成為一個搜索引摯；

2.添加一個systray控件，使程序啟動后放入WIN95/WIN98狀態欄的系統盒中等等。限于篇幅，這里不再具體說明。編寫此程序旨在拋磚引玉，