用VB制作网址链接器 (2)

　　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．保存该工程，取名为“创新链接器”，并生成“创新链接器.EXE”。至此，一个简单的链接器就制作完成了。
　　测试：拨号上网，启动该链接器程序，把鼠标移动到“搜狐“，出现一个手形光标，并显示其网址：
http://www.sohoo.com.cn/。此时单击鼠标左键，浏览器被运行并打开 “搜狐”的主页，所示。
　　当然，我们还可扩充其功能，如：1.把常用的网址放入一个数据库，加入数据控件，使其成为一个搜索引挚；
　　2.添加一个systray控件，使程序启动后放入WIN95/WIN98状态栏的系统盒中等等。限于篇幅，这里不再具体说明。编写此程序旨在抛砖引玉，

共2页: 上一页 [1] 2

Visual Basic中访问远程数据库的几种关键技术

ASP 3.0高级编程（三）