关闭

关闭

封号提示

内容

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

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

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

上传者: 用户3799637213 2013-09-19 评分1 评论0 下载17 收藏0 阅读量576 暂无简介 简介 举报

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

计算机网络毕业论文-用VB制作网址 链接器 用过《东方网神》的朋友们都知道,《东方网神》内设有一个网址资源,分 类存放了很多网址,你只要用鼠标单击要去的网址,就可把你带到该网站。其 实我们也可以自己设计一个网址链接器实现此功能。下面就用VB6.0编写 一个简单的网址链接器,步骤如下:1.启动VB6.0,新建一个标准EXE工 程,系统自动创建一个窗体form1,设置其caption属性为“创新搜索引擎”。 2.我们需要引用一个API函数ShellExecute,是在工程中添加一个模块 Module1,打开VB6.0API浏览器,在API浏览器的“文件”菜单中选择“加载文 本文件”菜单项,此时将弹出一个“选择一个文本API文件”对话框,从中选择 “Win32api.txt”,单击“确定”按钮,单击ShellExecute函数,然后单击“复制” 按钮。再回到Module1,按CTRL+V把ShellExecute函数粘贴到Module1 模块的代码窗口中。3.回到form1窗体,添加一个frame控件,取名为 frame1,caption属性设置为“请选择网站类别”,在frame1控件中放置一个 optionbutton控件组(单选按钮),取名为option1,该控件存放网站类别,可 根据需要设置option的控件数目。这里仅设置了四个,option1(0)的caption 属性为“国内著名网站”,option1(1)的caption属性为“IT”,option1(2)的 caption属性为“硬件”,option1(3)的caption属性为“软件”。4.再添加 一个frame控件,取名为frame2,caption属性设置为“请选择网站”,在 frame2控件中放置一个label控件组,取名为label1,该控件存放网站的名 称。放置两个label控件,也根据实际需要设置控件数目。设置其Font属性为 下划线,Forecolor属性为突出显示,Mouseicon属性(设置自定义的鼠标图标) 为一个手形图标,这里为VB98\graphics\icons\arrows目录下的 Point02.ico文件,其Mousepointer属性为99(通过Mouseseicon属性所指 定的自定义图标)。5.在form1窗体声明以下变量:PublickindAs String′kind变量为网站类别DimaddessAsString′addess变量为网址 Dimaddeslink6.双击form1窗体的option1控件,在弹出的代码窗口 中的PrivateSubOption1_Click(IndexAsInteger)子程序中编写代码: SelectCaseIndexCase0′国内著名网站kind=″zm″ Label1(0).Caption=″搜狐″′当鼠标移到该控件时,显示该网站的网址 Label1(0).ToolTipText=″http://www.sohoo.com.cn/″ Label1(1).Caption=″网易″Label1(1).ToolTipText= ″http://www.netease.com/″′以下添加你常用的网站的网址... Case1′ITkind=″IT″Label1(0).Caption=″电脑报″ Label1(0).ToolTipText=″http://www.yesky.com/″′以下添加你常去 的网站的网址...Case2′硬件kind=″hardware″ Label1(0).Caption=″驱动之家″Label1(0).ToolTipText= ″http://www.mydrives.com″′以下你常用的网站的网址...Case 3′软件kind=″software″Label1(0).Caption=″华军软件园″ Label1(0).ToolTipText=″http://www.newhua.com.cn/″′以下添加你 常用的网站的网址...EndSelectEndSub7.编写一个link 子程序′此子程序功能为转到超级链接PrivateSublink()linkaddess =ShellExecute(0&,vbNullString,addess,vbNullString,vbNullString,

第1页

类似资料

该用户的其他资料

经济学院现代远程教育本科毕业论文格式要求(暂....doc

网络教育学院2(代写Q1210734023)5级在职本科毕业论文写作....doc

网络教育学院本科毕业论文(设计)工作....doc

网络教育学院本科生毕业论文工作暂行规定.doc

新闻毕业论文,传媒专业论文下载与参考.txt

职业精品

精彩专题

家庭自制美味辣酱

盼了20年,老外们为了这包四川辣酱大打出手,一段视频显示,警察正阻挡着不断呼喊“我们要辣酱”的人们,中国网友支招:去买“老干妈”吧。其实辣椒酱的做法一点也不难,学会家庭自制美味辣酱后,想吃就吃。

用户评论

0/200
    暂无评论
上传我的资料

精选资料

热门资料排行换一换

  • 广东新编志书的整体评估和改进意见…

  • Face2Face_Elemen…

  • (子昂)行书大学.pdf

  • 造型原本·讲卷.pdf

  • 心经-弘一大师.pdf

  • 心经-欧阳询.pdf

  • Face2Face_Elemen…

  • 清帝国的改革突围:国运1909.…

  • 资料评价:

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

    意见
    反馈

    返回
    顶部