期刊VIP學術指導 符合學術規(guī)范和道德
保障品質(zhì) 保證專業(yè),沒有后顧之憂
來源:期刊VIP網(wǎng)所屬分類:計算機信息管理時間:瀏覽:次
添加一個systray控件,使程序啟動后放入WIN95/WIN98狀態(tài)欄的系統(tǒng)盒中等等。限于篇幅,這里不再具體說明。編寫此程序旨在拋磚引玉。
用過《東方網(wǎng)神》的朋友們都知道,《東方網(wǎng)神》內(nèi)設有一個網(wǎng)址資源,分類存放了很多網(wǎng)址,你只要用鼠標單擊要去的網(wǎng)址,就可把你帶到該網(wǎng)站。其實我們也可以自己設計一個網(wǎng)址鏈接器實現(xiàn)此功能。
下面就用VB6.0編寫一個簡單的網(wǎng)址鏈接器,步驟如下:
1.啟動VB6.0,新建一個標準EXE工程,系統(tǒng)自動創(chuàng)建一個窗體form1,設置其caption屬性為“創(chuàng)新搜索引擎”。
2.我們需要引用一個API函數(shù)ShellExecute,方法是在工程中添加一個模塊Module1,打開VB6.0 API瀏覽器,在API瀏覽器的“文件”菜單中選擇“加載文本文件”菜單項,此時將彈出一個“選擇一個文本API文件”對話框,從中選擇“Win32api.txt”,單擊“確定”按鈕,單擊ShellExecute函數(shù),然后單擊“復制”按鈕。再回到Module1,按CTRL+V把ShellExecute函數(shù)粘貼到Module1模塊的代碼窗口中。
3.回到form1窗體,添加一個frame控件,取名為frame1,caption屬性設置為“請選擇網(wǎng)站類別”,在frame1控件中放置一個option button控件組(單選按鈕),取名為option1,該控件存放網(wǎng)站類別,可根據(jù)需要設置option的控件數(shù)目。這里僅設置了四個,option1(0)的caption屬性為“國內(nèi)著名網(wǎng)站”,option1(1)的caption屬性為“IT”,option1(2)的caption屬性為“硬件”,option1(3)的caption屬性為“軟件”。
4.再添加一個frame控件,取名為frame2,caption屬性設置為“請選擇網(wǎng)站”,在frame2控件中放置一個label控件組,取名為label1,該控件存放網(wǎng)站的名稱。放置兩個label控件,也根據(jù)實際需要設置控件數(shù)目。設置其Font屬性為下劃線,Forecolor屬性為突出顯示,Mouseicon屬性(設置自定義的鼠標圖標)為一個手形圖標,這里為VB98graphicsiconsarrows目錄下的Point02.ico文件,其Mousepointer屬性為99(通過Mouseseicon屬性所指定的自定義圖標)。
5.在form1窗體聲明以下變量:
7.編寫一個link子程序