2019亚洲日韩新视频_97精品在线观看_国产成人精品一区二区_91精品网站在线观看

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

來(lái)源:期刊VIP網(wǎng)所屬分類:計(jì)算機(jī)信息管理時(shí)間:瀏覽:

  添加一個(gè)systray控件,使程序啟動(dòng)后放入WIN95/WIN98狀態(tài)欄的系統(tǒng)盒中等等。限于篇幅,這里不再具體說(shuō)明。編寫(xiě)此程序旨在拋磚引玉。

  用過(guò)《東方網(wǎng)神》的朋友們都知道,《東方網(wǎng)神》內(nèi)設(shè)有一個(gè)網(wǎng)址資源,分類存放了很多網(wǎng)址,你只要用鼠標(biāo)單擊要去的網(wǎng)址,就可把你帶到該網(wǎng)站。其實(shí)我們也可以自己設(shè)計(jì)一個(gè)網(wǎng)址鏈接器實(shí)現(xiàn)此功能。

  下面就用VB6.0編寫(xiě)一個(gè)簡(jiǎn)單的網(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ì)話框,從中選擇“Win32api.txt”,單擊“確定”按鈕,單擊ShellExecute函數(shù),然后單擊“復(fù)制”按鈕。再回到Module1,按CTRL+V把ShellExecute函數(shù)粘貼到Module1模塊的代碼窗口中。

  3.回到form1窗體,添加一個(gè)frame控件,取名為frame1,caption屬性設(shè)置為“請(qǐng)選擇網(wǎng)站類別”,在frame1控件中放置一個(gè)option button控件組(單選按鈕),取名為option1,該控件存放網(wǎng)站類別,可根據(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)站的名稱。放置兩個(gè)label控件,也根據(jù)實(shí)際需要設(shè)置控件數(shù)目。設(shè)置其Font屬性為下劃線,Forecolor屬性為突出顯示,Mouseicon屬性(設(shè)置自定義的鼠標(biāo)圖標(biāo))為一個(gè)手形圖標(biāo),這里為VB98graphicsiconsarrows目錄下的Point02.ico文件,其Mousepointer屬性為99(通過(guò)Mouseseicon屬性所指定的自定義圖標(biāo))。

  5.在form1窗體聲明以下變量:

  7.編寫(xiě)一個(gè)link子程序

主站蜘蛛池模板: 海南省| 呼和浩特市| 綦江县| 广平县| 新乐市| 湟中县| 嘉禾县| 牙克石市| 平和县| 曲水县| 双鸭山市| 阳新县| 广平县| 湘阴县| 米泉市| 莱芜市| 寿宁县| 大田县| 慈溪市| 荔浦县| 阿克陶县| 教育| 五峰| 合山市| 印江| 义马市| 黄大仙区| 洞头县| 安阳县| 新竹市| 沧州市| 轮台县| 商都县| 同江市| 苍溪县| 文山县| 开阳县| 安康市| 江山市| 元朗区| 秭归县|