用VB制作網(wǎng)址鏈接器

　　1．啟動(dòng)VB6.0,新建一個(gè)標(biāo)準(zhǔn)EXE工程，系統(tǒng)自動(dòng)創(chuàng)建一個(gè)窗體form1,設(shè)置其caption屬性為“創(chuàng)新搜索引擎”。
　　2．我們需要引用一個(gè)API函數(shù)ShellExecute，方法是在工程中添加一個(gè)模塊Module1，打開(kāi)VB6.0  API瀏覽器，在API瀏覽器的“文件”菜單中選擇“加載文本文件”菜單項(xiàng)，此時(shí)將彈出一個(gè)“選擇一個(gè)文本API文件”對(duì)話(huà)框，從中選擇“Win32api.txt”，單擊“確定”按鈕，單擊ShellExecute函數(shù)，然后單擊“復(fù)制”按鈕。再回到Module1,按CTRL＋V把ShellExecute函數(shù)粘貼到Module1模塊的代碼窗口中。
　　3．回到form1窗體，添加一個(gè)frame控件，取名為frame1,caption屬性設(shè)置為“請(qǐng)選擇網(wǎng)站類(lèi)別”，在frame1控件中放置一個(gè)option  button控件組(單選按鈕)，取名為option1,該控件存放網(wǎng)站類(lèi)別，可根據(jù)需要設(shè)置option的控件數(shù)目。這里僅設(shè)置了四個(gè)，option1(0)的caption屬性為“國(guó)內(nèi)著名網(wǎng)站”，option1(1)的caption屬性為“IT”，option1(2)的caption屬性為“硬件”，option1(3)的caption屬性為“軟件”。
　　4．再添加一個(gè)frame控件，取名為frame2，caption屬性設(shè)置為“請(qǐng)選擇網(wǎng)站”,在frame2控件中放置一個(gè)label控件組，取名為label1,該控件存放網(wǎng)站的名稱(chēng)。放置兩個(gè)label控件，也根據(jù)實(shí)際需要設(shè)置控件數(shù)目。設(shè)置其Font屬性為下劃線(xiàn),Forecolor屬性為突出顯示，Mouseicon屬性(設(shè)置自定義的鼠標(biāo)圖標(biāo))為一個(gè)手形圖標(biāo)，這里為VB98\graphics\icons\arrows目錄下的Point02.ico文件，其Mousepointer屬性為99(通過(guò)Mouseseicon屬性所指定的自定義圖標(biāo))。
　　5．在form1窗體聲明以下變量：
　　Public  kind  As  String  ′kind變量為網(wǎng)站類(lèi)別
　　Dim  addess  As  String  ′addess變量為網(wǎng)址
　　Dim  addeslink
　　6．雙擊form1窗體的option1控件，在彈出的代碼窗口中的Private  Sub  Option1_Click(Index  As  Integer)子程序中編寫(xiě)代碼：
　　Select  Case  Index
　　Case  0  ′國(guó)內(nèi)著名網(wǎng)站
　　kind  =  ″zm″
　　Label1(0).Caption  =  ″搜狐″
　　′當(dāng)鼠標(biāo)移到該控件時(shí)，顯示該網(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  =  ″電腦報(bào)″
　　Label1(0).ToolTipText  =  ″http://www.yesky.com/″
　　′以下添加你常去的網(wǎng)站的網(wǎng)址
　　...
　　Case  2  ′硬件
　　kind=  ″hardware″
　　Label1(0).Caption  =  ″驅(qū)動(dòng)之家″
　　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．編寫(xiě)一個(gè)link子程序
　　′此子程序功能為轉(zhuǎn)到超級(jí)鏈接
　　Private  Sub  link(  )linkaddess  =  ShellExecute(0＆,  vbNullString,  addess,  vbNullString,  vbNullString,  vbNormalFocus)
　　End  Sub
　　8．雙擊form1窗體的label1控件，在彈出的代碼窗口中的Private  Sub  Label1_Click(Index  As  Integer)子程序中編寫(xiě)代碼：
　　If  kind  =  ″zm″  Then  ′
如果單擊“著名國(guó)內(nèi)網(wǎng)站“單選按鈕則
　　Select  Case  Index
　　Case  0 &nb

sp;′如果單擊第一個(gè)label控件則
　　addess  =  ″http://www.sohoo.com.cn/″
　　Call  link  ′調(diào)用link子程序,進(jìn)行超級(jí)鏈接
　　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”。至此，一個(gè)簡(jiǎn)單的鏈接器就制作完成了。
　　測(cè)試：撥號(hào)上網(wǎng)，啟動(dòng)該鏈接器程序，把鼠標(biāo)移動(dòng)到“搜狐“，出現(xiàn)一個(gè)手形光標(biāo)，并顯示其網(wǎng)址：
http://www.sohoo.com.cn/。此時(shí)單擊鼠標(biāo)左鍵，瀏覽器被運(yùn)行并打開(kāi)  “搜狐”的主頁(yè)，所示。
　　當(dāng)然，我們還可擴(kuò)充其功能，如：1.把常用的網(wǎng)址放入一個(gè)數(shù)據(jù)庫(kù)，加入數(shù)據(jù)控件，使其成為一個(gè)搜索引摯；
　　2.添加一個(gè)systray控件，使程序啟動(dòng)后放入WIN95/WIN98狀態(tài)欄的系統(tǒng)盒中等等。限于篇幅，這里不再具體說(shuō)明。編寫(xiě)此程序旨在拋磚引玉，朋友們?nèi)缬惺裁唇ㄗh，請(qǐng)與我聯(lián)系：rabbitlhf@zdl.net。
　　此程序在WIN95/WIN98,VB6.0運(yùn)行通過(guò)。

【用VB制作網(wǎng)址鏈接器】相關(guān)文章：

VB開(kāi)發(fā)客戶(hù)服務(wù)器軟件的設(shè)計(jì)與實(shí)現(xiàn)08-06

用VB構(gòu)鍵Internet的應(yīng)用08-06

用VB構(gòu)鍵Internet的應(yīng)用-08-06

VB中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象08-06

VB中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象08-06

VB中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象08-06

用VB實(shí)現(xiàn)對(duì)庫(kù)文件的分割備份08-06

鏈接出神奇08-16

高中歷史微課制作的“道”與“器”08-04