WEB开发网
开发学院软件开发VB 做个“网络助手”程序 阅读

做个“网络助手”程序

 2006-02-27 21:15:36 来源:WEB开发网   
核心提示:上网最麻烦的事莫过于在地址栏中输入网址了,虽然有收藏夹帮忙,做个“网络助手”程序,喜爱的网站多了它也日渐臃肿,占用资源不算,程序已经可以达成我们的目的了,如果需要添加其它功能,用起来也不是很方便,用VB做个“网络助手”吧!这个网络助手至少要实现这样的功能:双击用户界面的网站名称
上网最麻烦的事莫过于在地址栏中输入网址了。虽然有收藏夹帮忙,喜爱的网站多了它也日渐臃肿,占用资源不算,用起来也不是很方便。用VB做个“网络助手”吧!
这个网络助手至少要实现这样的功能:双击用户界面的网站名称,就能调出浏览器并进入该网站。(当然,如果你愿意,还可以添加其它功能,如删除、修改、添加网址,自动拨号,计时等)构想是这样:用文本文档记录网站名称,程序运行时读取文本文档并在用户界面显示网站名,当用户双击网站名称时调出网址、链接。
为此,着手编程之前我们必须做两项准备工作:
一.用记事本编写一个名为homepage的TXT文档。每行写一个网站名称,不要有空行。
二.用数据库程序access(Office组件之一)建立一个名为address的数据库,表名为net,主字段名为netaddress。给数据库输入记录:按照homepage.txt文档中的网站顺序写好各网站主页的详细网址,结束后存盘退出。

现在可以进入具体编程了。
这个程序所需控件不多:一个data控件,一个ListBox控件和一个Label控件即可。在属性窗口将data控件与库文件及其表链接好,并将Label控件与Data控件绑定。接着调整一下各控件的位置和大小。

下面是具体的代码,我将在代码中穿插作些必要的解释:

OptionExplicit
'调用浏览器的API
PRivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
DimSortAsString'申明选择类别
DimaddressAsString'申明网址
Dimaddresslink'申明网址链接
DimAllLinesAsNewCollection'内存中的行数据库(你可以看得出来,模仿了"日积月累"的代码来实现对文档文档的读取和显示)
DimCurrentLineAsLong'当前行集合索引

'链接网址声明
PrivateSubLink()
address=ShellExecute(0&,vbNullString,address,vbNullString,vbNullString,vbNormalFocus)
EndSub

'Form_Load事件
PrivateSubForm_Load()
Data1.DatabaseName=App.Path "\address.mdb"
'定位库文件(虽然在属性中已经绑定了数据库,为使程序能在别的机器上正常运行,这行是有必要的)
Data1.RecordSource="net"'字段
Data1.Visible=False'data控件不可见
DimnextLineAsString'从文件中读出的每一行
DimInFileAsInteger'文件的描述符
InFile=FreeFile
OpenApp.Path "\homepage.txt"ForInputAsInFile'打开文件
WhileNotEOF(InFile)
LineInput#InFile,nextLine
AllLines.AddnextLine
Wend
CloseInFile
'将所有行集合按顺序添加到列表框
DimiAsInteger
Fori=0ToAllLines.Count-1
GetNextLine
Nexti
EndSub

'单击列表框
PrivateSubList1_Click()
DimIndAsInteger
Ind=List1.ListIndex
IfInd<Data1.Recordset.RecordCountThen
Data1.Recordset.AbsolutePosition=Ind
Else
Data1.Recordset.Move(Ind)
EndIf
address=Label1.Caption
EndSub

'双击列表框
PrivateSubList1_dblClick()
Link
EndSub

'提取当前行
PublicSubGetCurrentLine()
IfAllLines.Count>0Then
List1.AddItemAllLines.Item(CurrentLine)
EndIf
EndSub

'提取下一行
PrivateSubGetNextLine()
CurrentLine=CurrentLine 1
IfAllLines.Count<CurrentLineThen
CurrentLine=1
EndIf
GetCurrentLine
EndSub

至此,程序已经可以达成我们的目的了。如果需要添加其它功能,请参阅VB编程乐园的其它文章和源码自行补充。->

Tags:网络 助手 程序

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接