精选文章 VC++实现拨号上网程序

VC++实现拨号上网程序

作者:gnuljf 时间: 2021-02-07 03:19:55
gnuljf 2021-02-07 03:19:55
【摘要】VC++实现拨号上网程序 
 在Office2000中,就用户界面丰富程度而论,Word以56个工具栏(Toolbar)、50个弹出式菜单(Popup Menu)雄居首位,但Excel(工具栏40个、弹出式菜单51个)和PowerPoint(工具栏43个、弹出式菜单25个)也相差不远。大多数用户可能从来没有见过所有这些工具栏,甚至许多用户不知道Office提供了这么多命令工具。  虽然我们可...
 

VC++实现拨号上网程序


在Office2000中,就用户界面丰富程度而论,Word以56个工具栏(Toolbar)、50个弹出式菜单(Popup Menu)雄居首位,但Excel(工具栏40个、弹出式菜单51个)和PowerPoint(工具栏43个、弹出式菜单25个)也相差不远。大多数用户可能从来没有见过所有这些工具栏,甚至许多用户不知道Office提供了这么多命令工具。
  虽然我们可以用【视图/工具栏】菜单隐藏或显示一些工具栏,但这个菜单并没有列出全部的工具栏。对于Word,从【工具/自定义】菜单可以看到的工具栏稍微多几个,但仍远远不到56个。在Excel和PowerPoint也类似。那么,这些丢失的工具栏到哪里去了呢?如何才能看到这些工具栏?如何将这些工具栏显示到菜单中?
  一、工具栏背后的工具栏
  Office工具栏上的相当一部分按钮是所谓的下拉式按钮。单击这些下拉按钮会显示出子菜单。其中一部分子菜单比较特殊,上面带有灰色的横条(Microsoft称之为″移动把手”)。例如Word【格式】工具栏的【字体颜色】按钮,单击它的小箭头并把鼠标移到移动把手上,灰条颜色变蓝并提示″拖动可使此菜单浮动”。按住移动把手可把菜单从工具栏拖下来,使之浮动,如图1所示。
  一旦菜单拖下来成为浮动的工具栏,【视图/工具栏】菜单下会自动列出该工具栏;如果关闭该工具栏,则菜单下面的名字也不见了。因此,如果要再次显示这个工具栏,还是要重复原来的拖动过程。
  二、用宏显示隐藏工具栏
  大多数可以拖下来的菜单与画图或颜色功能相关,而且要从【绘图】工具栏访问。下表给出其中一部分工具栏的标题及其名字:
  名字
  标题
  Fill Color
  填充颜色
  Line Color
  线条颜色
  Font Color
  字体颜色
  Shading Color
  底纹色
  Borders
  边框
  在宏中,可以通过名字访问这些菜单,或将这些菜单显示为浮动工具栏。例如,要显示【字体颜色】工具栏,可以用如下命令:
  CommandBars(″Font Color″).Visible = True
  再举一个例子。如果经常要为Word文档加上彩色标注,则最好能快速访问【字体颜色】、【线条颜色】、【填充颜色】和【标注】四个工具栏。可以写一个子过程:
  Sub ShowCalloutToolbars(OnOrOff As Boolean)
  CommandBars(″Callouts″).Visible = OnOrOff
  CommandBars(″Font Color″).Visible = OnOrOff
  CommandBars(″Line Color″).Visible = OnOrOff
  CommandBars(″Fill Color″).Visible = OnOrOff
  End Sub
  然后用如下两个命令分别显示和隐藏上述四个工具栏:
  ShowCalloutToolbars True
  ShowCalloutToolbars False
  当然,用宏来显示或关闭某些隐藏工具栏,在许多其他情形下也是很有帮助的,这些应用场合就有待读者自己去发现了。
  三、在菜单中列出隐藏工具栏
  如前所述,【视图/工具栏】菜单是不显示隐藏工具栏的,也不存在定制该菜单加入额外工具栏的方法,但这并不是说我们不能将这些工具栏显示在自己创建的菜单中。接下来介绍的方法可以在【视图/工具栏】菜单下面加上一个【隐藏工具栏】菜单。图2显示的是Word中的【隐藏工具栏】菜单,在其他Office应用中也相似。
  首先我们需要一个宏AutoExec,该宏在Word启动的时候自动运行,调用AddHiddenToolBarsOption,后者在视图菜单的【工具栏】下面增加 【隐藏工具栏】 菜单。AutoExit在Word关闭的时候运行,调用RemoveHiddenToolBarsOption,删除【隐藏工具栏】菜单。
  Sub AutoExec()
  CustomizationContext = NormalTemplate
  AddHiddenToolBarsOption
  End Sub
  Sub AutoExit()
  CustomizationContext = NormalTemplate
  RemoveHiddenToolBarsOption
  End Sub
  Sub AddHiddenToolBarsOption()
  ' 在视图菜单的'工具栏'下面增加'隐藏工具栏'菜单项
  RemoveHiddenToolBarsOption
  With CommandBars(″View″)
  With .Controls.Add(Type:=msoControl弹出式, _
  Before:=.Controls(″工具栏(&T)″).Index + 1)
  .Caption = ″隐藏工具栏(&H)″
  .OnAction = ″ListHiddenToolbars″
  End With
  End With
  End Sub
  Sub RemoveHiddenToolBarsOption()
  On Error Resume Next
  CommandBars(″View″).Controls(″隐藏工具栏(&H)″).Delete
  End Sub
  ListHiddenToolbars在用户单击【隐藏工具栏】的时候运行,它的任务是:找出未在【视图/工具栏】菜单列出的工具栏,用这些工具栏的标题构造【隐藏工具栏】的子菜单。
  Sub ListHiddenToolbars()
  Dim ExistingBars As String
  Dim TBar As CommandBar
  Dim Ctl As CommandBarControl
  Dim HiddenBarList As CommandBarControl
  Set HiddenBarList = CommandBars.ActionControl
  那么,它是如何得知哪一个工具栏该显示或隐藏呢?首先,对于已经显示在【视图/工具栏】下的工具栏,ListHiddenToolbars用如下代码生成一个标题列表:
  With CommandBars(″View″).Controls(″工具栏(&T)″)
  For i = 1 To .Controls.Count - 1
  ExistingBars = ExistingBars & _
  .Controls(i).Caption & vbCr
  Next
  End With
  ' 清空新创建的子菜单
  For Each Ctl In HiddenBarList.Controls
  Ctl.Delete
  Next
  在这个For循环中,程序遍历【视图/工具栏】菜单,在ExistingBars变量中保存所有已显示工具栏标题,各标题之间以vbCr分隔。(可以用其他字符分隔,但用vbCr有利于调试。)以后程序就可以利用ExistingBars来避免工具栏重复显示了。
  接下来执行的是下面这个Fox循环:
  For Each TBar In CommandBars
  If TBar.BuiltIn = True And _
  TBar.Type = msoBarTypeNormal And
  TBar.Enabled = True And _
  TBar.Visible = False And _
  InStr(ExistingBars, TBar.NameLocal & vbCr) = 0 Then
  With HiddenBarList.Controls.Add
  .Caption = Replace(TBar.NameLocal, ″&″, ″&&″)
  .Parameter = TBar.Name
  .OnAction = ″DisplayToolbar″
  End With
  End If
  Next
  ' 加入'自定义'命令
  With HiddenBarList.Controls.Add(ID:=797)
  .BeginGroup = True
  End With
  End Sub
  这个For循环的任务是:遍历整个CommandBars集合,对于每一个CommandBar:
  1. 检查BuiltIn属性是否为True,以排除所有自定义工具栏。
  2. 检查Type属性是否为msoBarTypeNormal(即0),以排除菜单条(Menu Bar)、弹出式菜单,确保只显示那些″真正的”工具栏。
  3. Enabled属性值也必须为True,以保证只显示那些可用的菜单。例如不在全屏显示方式下时,【关闭全屏显示】工具栏是不应该显示的。
  4. 一些工具栏,如【功能键展示】,即使它是可见的,其名字也不会显示在【视图/工具栏】菜单下,因此还必须检查Visible属性是否为False。
  5. 最后,程序检查工具栏标题是否出现在ExistingBars中,若出现的话,说明该工具栏标题已经显示在【视图/工具栏】菜单下面了。
  如果所有上述检查通过,就可以在【视图/隐藏工具栏】子菜单下新增一个工具栏标题。前面代码中的最后一个With用于在子菜单的底部加上【自定义】命令。
  从【隐藏工具栏】子菜单选择一个工具栏名字时触发DisplayToolbar过程。DisplayToolbar的功能是检查Parameter值(ListHiddenToolbars将它设置为工具栏名字),显示对应的工具栏。
  Sub DisplayToolbar()
  On Error Resume Next
  With CommandBars.ActionControl
  CommandBars(.Parameter).Visible = True
  If Err Then
  MsgBox ″不能显示″ & .Parameter, _
  vbExclamation, ″隐藏工具栏″
  End If
  End With
  End Sub
  最后,对于Excel和PowerPoint,要在【视图】菜单下显示类似的【隐藏工具栏】菜单,只需将Word中的AutoExec和AutoExit分别用下面的Auto_Open和Auto_Close替换即可:
  Sub Auto_Open()
  AddHiddenToolBarsOption
  End Sub
  Sub Auto_Close()
  RemoveHiddenToolBarsOption
  End Sub(浙江 俞良松)

勿删,copyright占位
您找到想要的结果了吗?
VC++实现拨号上网程序
提交成功!非常感谢您的反馈,我们会继续努力做到更好
分享文章到微博
分享文章到朋友圈

上一篇:提取应用程序中的图标资源

下一篇:将某一主机域名解析为IP地址

您可能感兴趣

  • python新手小程序一个:数字黑洞.py

    数字黑洞:一个有意思的数字游戏,即:输入一个自然数,若为奇数则*3-1;若是偶数则/2,并且得到的自然数继续进行这样的运算,到1则停止(因为1进行这样的运算会导致1-4-2-1循环)特点在于:不论输入什么自然数(0除外),最终的结果都是1,就像黑洞一样,无论什么数字都无法逃脱. 程序如下: def black(number):    if numb...

  • 用python实现区块链的保姆级新手教程[全注释]

    区块链技术核心原理实现——Tiny熊老师区块链课堂的笔记   3-1 python 实现区块链环境准备   1、HTTP 超文本传输协议——Postman/curl  2、Python——PyCharm 3、工具:pip、pipenv、Flask/requests   3-2 建立项目,确定区块结构   cmd中: C:\Use...

  • 归并排序实现c++版

    |基本思路 归并排序利用了递归的思想(而是分而治之的思想),将数组一分为二,先将左半部分(坐标为0~mid)排好序,再将右半部分排好序(都是调用函数),最后将两部分合并起来。整体算法时间复杂度为O(nlogn),空间复杂度为O(n)。 |归并排序的c++具体实现 #include<bits/stdc++.h> using namespace s...

  • 用 CSS 实现图片替换文字(Image replacement)

    不论是对浏览者还是对搜索引擎,文字都是最佳的页面内容展示方式,但是,由于字体等原因的限制,纯文字的展示渐渐无法满足爱美的设计师的要求。 于是,出现了通过 CSS 来实现用图片替换文字的方法,这种方式既能实现页面上各种丰富的效果,又能满足搜索引擎优化的需要。因此,深受网页设计师的喜爱,本文介绍了几种常见的图文替换技术。 Fahrner Image Re...

  • 一个发放邮件工资条的程序

          相信目前有很多公司和我公司一样有大批人员长期驻点在外地。为了第一时间使驻点人员可以查看自己的工资发放明细,我用JAVA编写了一个邮件群发工资条的程序。在此拿出来和大家分享一下。     主要功能非常简单请下载附件《laborage.rar》下载完毕后解压缩到C:\laborage下,软后修改laborage.mdb其中包括两个数据库,第...

  • **struts程序的国际化(上)-JAVA程序国际化

    国际化是指应用程序运行时,可根据客户端请求来自的国家/地区、语言的不同而显示不同的界面。例如,如果请求来自于中文操作系统的客户端,则应用程序中的各种标签、错误提示和帮助等都使用中文:如果客户端使用英文操作系统,则应用程序能自动识别,并作出英文的响应。国际化的英文单词是Internationalization ,有时也简称I18N。其中I 是这个单词的...

  • Travis CI实现持续部署

    安装Ruby 2.0以上版本并安装travis的命令行工具 可以看出我的已经是安装好的(Ubuntu 16.04.3 LTS 系统) ruby -v ruby 2.3.1p112 (2016-04-26) [x86_64-linux-gnu] 安装:travis gem install ...

  • 真的很怀疑,CSDN每次发布新程序是否经过测试

    简单写两笔,我实在不知道怎样可以便捷地报告bug。 http://download.csdn.net/hicsdn/allupload/yizia,类容重复出现两遍, 更可怕的是 http://download.csdn.net/hicsdn/alldownload/yizia,提示下列错误: An Error Was Enco...

CSDN

CSDN

中国开发者社区CSDN (Chinese Software Developer Network) 创立于1999年,致力为中国开发者提供知识传播、在线学习、职业发展等全生命周期服务。
VC++实现拨号上网程序介绍:华为云为您免费提供VC++实现拨号上网程序在博客、论坛、帮助中心等栏目的相关文章,同时还可以通过 站内搜索 查询更多VC++实现拨号上网程序的相关内容。| 移动地址: VC++实现拨号上网程序 | 写博客