关闭

关闭

封号提示

内容

首页 计算机网络毕业论文-用VB制作网址链接器.doc

计算机网络毕业论文-用VB制作网址链接器.doc

计算机网络毕业论文-用VB制作网址链接器.doc

上传者: 用户3799637213 2013-09-19 评分 5 0 127 17 576 暂无简介 简介 举报

简介:本文档为《计算机网络毕业论文-用VB制作网址链接器doc》,可适用于游戏领域,主题内容包含    计算机网络毕业论文用VB制作网址链接器    用过《东方网神》的朋友们都知道《东方网神》内设有一个网址资源分类存放了很多网址你只要用鼠标单击符等。

    计算机网络毕业论文用VB制作网址链接器    用过《东方网神》的朋友们都知道《东方网神》内设有一个网址资源分类存放了很多网址你只要用鼠标单击要去的网址就可把你带到该网站。其实我们也可以自己设计一个网址链接器实现此功能。  下面就用VB编写一个简单的网址链接器步骤如下:  .启动VB,新建一个标准EXE工程系统自动创建一个窗体form,设置其caption属性为“创新搜索引擎”。  .我们需要引用一个API函数ShellExecute是在工程中添加一个模块Module打开VBAPI浏览器在API浏览器的“文件”菜单中选择“加载文本文件”菜单项此时将弹出一个“选择一个文本API文件”对话框从中选择“Winapitxt”单击“确定”按钮单击ShellExecute函数然后单击“复制”按钮。再回到Module,按CTRL+V把ShellExecute函数粘贴到Module模块的代码窗口中。  .回到form窗体添加一个frame控件取名为frame,caption属性设置为“请选择网站类别”在frame控件中放置一个optionbutton控件组(单选按钮)取名为option,该控件存放网站类别可根据需要设置option的控件数目。这里仅设置了四个option()的caption属性为“国内著名网站”option()的caption属性为“IT”option()的caption属性为“硬件”option()的caption属性为“软件”。  .再添加一个frame控件取名为framecaption属性设置为“请选择网站”,在frame控件中放置一个label控件组取名为label,该控件存放网站的名称。放置两个label控件也根据实际需要设置控件数目。设置其Font属性为下划线,Forecolor属性为突出显示Mouseicon属性(设置自定义的鼠标图标)为一个手形图标这里为VBgraphicsiconsarrows目录下的Pointico文件其Mousepointer属性为(通过Mouseseicon属性所指定的自定义图标)。  .在form窗体声明以下变量:  PublickindAsString′kind变量为网站类别  DimaddessAsString′addess变量为网址  Dimaddeslink  .双击form窗体的option控件在弹出的代码窗口中的PrivateSubOptionClick(IndexAsInteger)子程序中编写代码:  SelectCaseIndex  Case′国内著名网站  kind=″zm″  Label()Caption=″搜狐″  ′当鼠标移到该控件时显示该网站的网址  Label()ToolTipText=″http:wwwsohoocomcn″  Label()Caption=″网易″  Label()ToolTipText=″http:wwwneteasecom″  ′以下添加你常用的网站的网址    Case′IT  kind=″IT″  Label()Caption=″电脑报″  Label()ToolTipText=″http:wwwyeskycom″  ′以下添加你常去的网站的网址    Case′硬件  kind=″hardware″  Label()Caption=″驱动之家″  Label()ToolTipText=″http:wwwmydrivescom″  ′以下你常用的网站的网址    Case′软件  kind=″software″  Label()Caption=″华军软件园″  Label()ToolTipText=″http:wwwnewhuacomcn″  ′以下添加你常用的网站的网址    EndSelect  EndSub  .编写一个link子程序  ′此子程序功能为转到超级链接  PrivateSublink()linkaddess=ShellExecute(&,vbString,addess,vbString,vbString,vbNormalFocus)  EndSub  .双击form窗体的label控件在弹出的代码窗口中的PrivateSubLabelClick(IndexAsInteger)子程序中编写代码:  Ifkind=″zm″n′如果单击“著名国内网站“单选按钮则  SelectCaseIndex  Case′如果单击第一个label控件则  addess=″http:wwwsohoocomcn″  Calllink′调用link子程序,进行超级链接  Case  addess=″http:wwwneteasecom  endselect  ElseIfkind=″IT″Then′如果单击“IT“单选按钮则  SelectCaseIndex  Case  addess=″http:wwwccecomcn″  Calllink  endselect  ElseIfkind=″hardware″n′硬件  SelectCaseIndex  Case  addess=″http:wwwmydrivescom″  Calllink  endselect  ElseIfkind=″software″Then′软件  SelectCaseIndex  Case  addess=″http:wwwnewhuacomcn″  Calllink  endselect  endif  endsub  .保存该工程取名为“创新链接器”并生成“创新链接器EXE”。至此一个简单的链接器就制作完成了。  测试:拨号上网启动该链接器程序把鼠标移动到“搜狐“出现一个手形光标并显示其网址:http:wwwsohoocomcn。此时单击鼠标左键浏览器被运行并打开“搜狐”的主页所示。  当然我们还可扩充其功能如:把常用的网址放入一个数据库加入数据控件使其成为一个搜索引挚  添加一个systray控件使程序启动后放入WINWIN状态栏的系统盒中等等。限于篇幅这里不再具体说明。编写此程序旨在抛砖引玉

类似资料

该用户的其他资料

f毕业论文开题报告.doc

医学院本科学生毕业论文开题报告.doc

外语学院开题报告填写说明.doc

毕业论文开题报告(理工类).doc

毕业论文开题报告下载.doc

职业精品

精彩专题

上传我的资料

精选资料

热门资料排行换一换

  • 防“左”备忘录.pdf

  • 北京孩子六七十年代的集体自传.p…

  • 胡蝶回忆录.pdf

  • 十次突击—汪洋回忆录.pdf

  • 马识途:在地下.pdf

  • 烟文化.pdf

  • 西周金文语法研究.pdf

  • 朝鲜语言学论文集.pdf

  • 今文尚书语言研究(钱宗武).pdf

  • 资料评价:

    / 2
    所需积分:0 立即下载

    意见
    反馈

    返回
    顶部