有关ActiveReports2.0中文版的问题，来者有分！

[glsoft]

请问哪里有ActiveReports2.0中文版下载，我下载了一个ActiveReports2.0英文版的只是这个软件不能输入中文，一输入便显示乱码，不知该怎么办，哪位如果知道请告知！

[ganzhiruogy]

up

[Qianqh]

别急，你只要把字体设成宋体，字符集由“西方”改成“CHINESE_GB3212”就OK了。

[redwrite]

up

[amolucky]

目前没中文版 如小兵所说解决问题

[lovingkiss]

ActiveReports2.0中文版实际上是一个模块，我给你好拉

Public Const IDT_SAVE = 5001
Public Const IDT_LAST = 5002
Public Const IDT_RULER = 5003
Public Const IDT_FIRST = 5004
Public Const IDT_EXIT = 5005
Public Const IDT_OPEN = 5006
Public Const IDT_Printer = 3773

Public Sub Creport(MyRepFrm As ActiveReport)
'汉化ActiveReport
Dim Tool As DDActiveReportsViewer2Ctl.DDTool

MyRepFrm.Toolbar.Tools.Item(0).Visible = False
MyRepFrm.Toolbar.Tools.Item(0).Checked = False

MyRepFrm.Toolbar.Tools.Item(1).Caption = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Tooltip = "内容中的表"
MyRepFrm.Toolbar.Tools.Item(1).Visible = False

MyRepFrm.Toolbar.Tools.Item(2).Caption = "打印"
MyRepFrm.Toolbar.Tools.Item(2).Tooltip = "打印"
MyRepFrm.Toolbar.Tools.Item(2).Visible = True


MyRepFrm.Toolbar.Tools.Item(4).Caption = "拷贝"
MyRepFrm.Toolbar.Tools.Item(4).Tooltip = "拷贝"
MyRepFrm.Toolbar.Tools.Item(4).Visible = False

MyRepFrm.Toolbar.Tools.Item(5).Visible = False
MyRepFrm.Toolbar.Tools.Item(6).Visible = False
MyRepFrm.Toolbar.Tools.Item(6).Caption = "查找"
MyRepFrm.Toolbar.Tools.Item(6).Tooltip = "查找"

MyRepFrm.Toolbar.Tools.Item(7).Visible = False

MyRepFrm.Toolbar.Tools.Item(8).Caption = "单页察看"
MyRepFrm.Toolbar.Tools.Item(8).Tooltip = "单页察看"
MyRepFrm.Toolbar.Tools.Item(9).Caption = "多页察看"
MyRepFrm.Toolbar.Tools.Item(9).Tooltip = "多页察看"

MyRepFrm.Toolbar.Tools.Item(11).Tooltip = "缩小"
MyRepFrm.Toolbar.Tools.Item(12).Tooltip = "放大"
MyRepFrm.Toolbar.Tools.Item(11).Caption = "缩小"
MyRepFrm.Toolbar.Tools.Item(12).Caption = "放大"

MyRepFrm.Toolbar.Tools.Item(13).Visible = True '显示大小

MyRepFrm.Toolbar.Tools.Item(15).Tooltip = "上一页"
MyRepFrm.Toolbar.Tools.Item(16).Tooltip = "下一页"
MyRepFrm.Toolbar.Tools.Item(15).Caption = "上一页"
MyRepFrm.Toolbar.Tools.Item(16).Caption = "下一页"

MyRepFrm.Toolbar.Tools.Item(19).Tooltip = "后退"
MyRepFrm.Toolbar.Tools.Item(20).Tooltip = "前进"
MyRepFrm.Toolbar.Tools.Item(19).Caption = "后退"
MyRepFrm.Toolbar.Tools.Item(20).Caption = "前进"
MyRepFrm.Toolbar.Tools.Item(19).Visible = True
MyRepFrm.Toolbar.Tools.Item(20).Visible = True
MyRepFrm.Toolbar.Tools.Item(18).Visible = True

MyRepFrm.Toolbar.Tools.Insert 15, ""
Set Tool = MyRepFrm.Toolbar.Tools(15)
Tool.ID = IDT_FIRST
Tool.Tooltip = "第一页"
Tool.AddIcon CropList.imlViewer.ListImages("first").Picture

'Set Tool = arv.ToolBar.Tools(19)
'Tool.AddIcon CropList.imlViewer.ListImages("prev").Picture
'Set Tool = arv.ToolBar.Tools(20)
'Tool.AddIcon CropList.imlViewer.ListImages("next").Picture

MyRepFrm.Toolbar.Tools.Insert 18, ""
Set Tool = MyRepFrm.Toolbar.Tools(18)
Tool.ID = IDT_LAST
Tool.Tooltip = "最后一页"
Tool.AddIcon CropList.imlViewer.ListImages("last").Picture

MyRepFrm.Toolbar.Tools.Insert 0, ""
Set Tool = MyRepFrm.Toolbar.Tools(0)
Tool.ID = IDT_RULER
Tool.Tooltip = "显示标尺"
Tool.AddIcon CropList.imlViewer.ListImages("ruler").Picture
Tool.Checked = MyRepFrm.RulerVisible

MyRepFrm.Toolbar.Tools.Insert 24, ""
Set Tool = MyRepFrm.Toolbar.Tools(24)
Tool.Type = 2

'MyRepFrm.Toolbar.Tools.Insert 25, ""
'Set Tool = MyRepFrm.Toolbar.Tools(25)
'Tool.ID = IDT_OPEN
'Tool.Tooltip = "打开文件"
'Tool.AddIcon CropList.imlViewer.ListImages("open").Picture

MyRepFrm.Toolbar.Tools.Insert 25, "保存报表"
Set Tool = MyRepFrm.Toolbar.Tools(25)
Tool.Tooltip = "保存报表"
Tool.ID = IDT_SAVE
Tool.AddIcon CropList.imlViewer.ListImages("save").Picture
'*************************************************************************
'MyRepFrm.Toolbar.Tools.Insert 26, "退出 "
'Set Tool = MyRepFrm.Toolbar.Tools(26)
'Tool.ID = IDT_EXIT
'Tool.Tooltip = "退出"
'Tool.AddIcon CropList.imlViewer.ListImages("exit").Picture

End Sub

[lovingkiss]

这也是一个网络上的朋友给我的，不用谢我，好好编程序，嘿嘿~~

能用模块自己设定程序上的控件和界面方式！！

[lovingkiss]

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)
'工具栏执行
Select Case Tool.ID
Case IDT_OPEN
FileOpen
Case IDT_SAVE
FileExport
Case IDT_RULER
Me.RulerVisible = Not Me.RulerVisible
Tool.Checked = Me.RulerVisible
Case IDT_FIRST
Me.TOC.GotoPage 0
Case IDT_LAST
Me.TOC.GotoPage Me.Pages.Count - 1
Case IDT_EXIT
Unload Me
End Select
End Sub
文件另存是个窗体——有没有都无所谓拉~~，嘿嘿

[glsoft]

这位大侠可否具体说一下怎么汉化！小弟一下子实在不知道该怎么做！
还有中文版的帮助有没有？

—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......

让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

[lovingkiss]

？？不需要什么了呀，把这些代码放在程序中，就汉化好了阿
实际上就是改动了其中的英文标签而已

[glsoft]

版主结帖！

[suxiao]

哈。。是有这种情况，你要设定一个内部参数，要不打印出来的中文格式就有问题！
rendmode=1