汉化ActiveReports 2.0界面 (转)

最新推荐文章于 2024-09-12 16:35:56 发布

转载最新推荐文章于 2024-09-12 16:35:56 发布 · 179 阅读

本文介绍了一种简单的方法来汉化ActiveReports2.0的用户界面。通过修改ActiveReport窗体中的ToolBar属性，可以轻松实现工具栏各项功能的文字汉化。

汉化ActiveReports 2.0界面 (转)[@more@]

用法很简单：在要显示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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-992460/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992460/