汉化ActiveReports 2.0界面

用法很简单：在要显示ActiveReports窗体前，加入：
Creport ActiveReport1   ´ActiveReport1是AR的窗体。

Public Sub Creport(AReport As ActiveReport)
´汉化ActiveReport
´以下适用2.0
With AReport
  .ToolBar.Tools.Item(0).Tooltip = "各页目录"
  .ToolBar.Tools.Item(2).Caption = "打印..."
  .ToolBar.Tools.Item(2).Tooltip = "打印报表"
  .ToolBar.Tools.Item(4).Tooltip = "拷贝"
  .ToolBar.Tools.Item(6).Tooltip = "查找"
  .ToolBar.Tools.Item(8).Tooltip = "单页显示"
  .ToolBar.Tools.Item(9).Tooltip = "多页显示"
  .ToolBar.Tools.Item(11).Tooltip = "缩小"
  .ToolBar.Tools.Item(12).Tooltip = "放大"
  .ToolBar.Tools.Item(15).Tooltip = "上一页"
  .ToolBar.Tools.Item(16).Tooltip = "下一页"
  .ToolBar.Tools.Item(19).Tooltip = "后退"
  .ToolBar.Tools.Item(19).Caption = "后退"
  .ToolBar.Tools.Item(20).Tooltip = "前进"
  .ToolBar.Tools.Item(20).Caption = "前进"
 End With
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/