VC++实现拨号上网程序

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（浙江 俞良松）