- 相關(guān)推薦
用VB制作網(wǎng)址鏈接器
1．啟動VB6.0,新建一個標準EXE工程，系統(tǒng)自動創(chuàng)建一個窗體form1,設(shè)置其caption屬性為“創(chuàng)新搜索引擎”。2．我們需要引用一個API函數(shù)ShellExecute，方法是在工程中添加一個模塊Module1，打開VB6.0 API瀏覽器，在API瀏覽器的“文件”菜單中選擇“加載文本文件”菜單項，此時將彈出一個“選擇一個文本API文件”對話框，從中選擇“Win32api.txt”，單擊“確定”按鈕，單擊ShellExecute函數(shù)，然后單擊“復(fù)制”按鈕。再回到Module1,按CTRL＋V把ShellExecute函數(shù)粘貼到Module1模塊的代碼窗口中。
3．回到form1窗體，添加一個frame控件，取名為frame1,caption屬性設(shè)置為“請選擇網(wǎng)站類別”，在frame1控件中放置一個option button控件組(單選按鈕)，取名為option1,該控件存放網(wǎng)站類別，可根據(jù)需要設(shè)置option的控件數(shù)目。這里僅設(shè)置了四個，option1(0)的caption屬性為“國內(nèi)著名網(wǎng)站”，option1(1)的caption屬性為“IT”，option1(2)的caption屬性為“硬件”，option1(3)的caption屬性為“軟件”。
4．再添加一個frame控件，取名為frame2，caption屬性設(shè)置為“請選擇網(wǎng)站”,在frame2控件中放置一個label控件組，取名為label1,該控件存放網(wǎng)站的名稱。放置兩個label控件，也根據(jù)實際需要設(shè)置控件數(shù)目。設(shè)置其Font屬性為下劃線,Forecolor屬性為突出顯示，Mouseicon屬性(設(shè)置自定義的鼠標圖標)為一個手形圖標，這里為VB98\graphics\icons\arrows目錄下的Point02.ico文件，其Mousepointer屬性為99(通過Mouseseicon屬性所指定的自定義圖標)。
5．在form1窗體聲明以下變量：
Public kind As String ′kind變量為網(wǎng)站類別
Dim addess As String ′addess變量為網(wǎng)址
Dim addeslink
6．雙擊form1窗體的option1控件，在彈出的代碼窗口中的Private Sub Option1_Click(Index As Integer)子程序中編寫代碼：
Select Case Index
Case 0 ′國內(nèi)著名網(wǎng)站
kind = ″zm″
Label1(0).Caption = ″搜狐″
′當鼠標移到該控件時，顯示該網(wǎng)站的網(wǎng)址
Label1(0).ToolTipText = ″http://www.sohoo.com.cn/″
Label1(1).Caption = ″網(wǎng)易″
Label1(1).ToolTipText = ″http://www.netease.com/″
′以下添加你常用的網(wǎng)站的網(wǎng)址
...
Case 1 ′IT
kind= ″IT″
Label1(0).Caption = ″電腦報″
Label1(0).ToolTipText = ″http://www.yesky.com/″
′以下添加你常去的網(wǎng)站的網(wǎng)址
...
Case 2 ′硬件
kind= ″hardware″
Label1(0).Caption = ″驅(qū)動之家″
Label1(0).ToolTipText = ″http://www.mydrives.com″
′以下你常用的網(wǎng)站的網(wǎng)址
...
Case 3 ′軟件
kind = ″software″
Label1(0).Caption = ″華軍軟件園″
Label1(0).ToolTipText = ″http://www.newhua.com.cn/″
′以下添加你常用的網(wǎng)站的網(wǎng)址
...
End Select
End Sub
7．編寫一個link子程序
′此子程序功能為轉(zhuǎn)到超級鏈接
Private Sub link( )linkaddess = ShellExecute(0＆, vbNullString, addess, vbNullString, vbNullString, vbNormalFocus)
End Sub
8．雙擊form1窗體的label1控件，在彈出的代碼窗口中的Private Sub Label1_Click(Index As Integer)子程序中編寫代碼：
If kind = ″zm″ Then ′
如果單擊“著名國內(nèi)網(wǎng)站“單選按鈕則
Select Case Index
Case 0 &nb
sp;′如果單擊第一個label控件則
addess = ″http://www.sohoo.com.cn/″
Call link ′調(diào)用link子程序,進行超級鏈接
Case 1
addess = ″http://www.netease.com/
end select
ElseIf kind = ″IT″ Then ′如果單擊“IT“單選按鈕則
Select Case Index
Case 0
addess = ″http://www.cce.com.cn/″
Call link
end select
ElseIf kind = ″hardware″ Then ′硬件
Select Case Index
Case 0
addess = ″http://www.mydrives.com″
Call link
end select
ElseIf kind = ″software″ Then ′軟件
Select Case Index
Case 0
addess = ″http://www.newhua.com.cn/″
Call link
end select
endif
end sub
9．保存該工程，取名為“創(chuàng)新鏈接器”，并生成“創(chuàng)新鏈接器.EXE”。至此，一個簡單的鏈接器就制作完成了。
測試：撥號上網(wǎng)，啟動該鏈接器程序，把鼠標移動到“搜狐“，出現(xiàn)一個手形光標，并顯示其網(wǎng)址：
http://www.sohoo.com.cn/。此時單擊鼠標左鍵，瀏覽器被運行并打開 “搜狐”的主頁，所示。
當然，我們還可擴充其功能，如：1.把常用的網(wǎng)址放入一個數(shù)據(jù)庫，加入數(shù)據(jù)控件，使其成為一個搜索引摯；
2.添加一個systray控件，使程序啟動后放入WIN95/WIN98狀態(tài)欄的系統(tǒng)盒中等等。限于篇幅，這里不再具體說明。編寫此程序旨在拋磚引玉，朋友們?nèi)缬惺裁唇ㄗh，請與我聯(lián)系：rabbitlhf@zdl.net。
此程序在WIN95/WIN98,VB6.0運行通過。
【用VB制作網(wǎng)址鏈接器】相關(guān)文章：
VB開發(fā)客戶服務(wù)器軟件的設(shè)計與實現(xiàn)08-06
用VB構(gòu)鍵Internet的應(yīng)用08-06
用VB構(gòu)鍵Internet的應(yīng)用-08-06
用VB實現(xiàn)對庫文件的分割備份08-06
鏈接出神奇08-16
高中歷史微課制作的“道”與“器”08-04