主题：和俺一起玩专业报表 2 汉化

上一篇：和俺一起玩专业报表 1 

 

第二篇：

 

目的：汉化打印预览控件

作用：汉化打印预览控件

 

效果：

此主题相关图片如下：无标题.jpg

 

 步骤：

 

 

一、建立一个自定义函数（我的叫MyRDLChinesization）

二、写入代码

 

'用于汉化MyRDL的界面
If _MyRDL Is Nothing Then Return Nothing

With _MyRDL

    .OutlineViewCaption = "大纲"
    .ThumbnailViewCaption = "页面"   
   

    .PreviewTextSearchPanel.FindWhatText = "查找:"
     .PreviewTextSearchPanel.HideButt       

    .PreviewTextSearchPanel.MatchCaseText = "模糊匹配"
    .PreviewTextSearchPanel.MatchWordText = "完全匹配"
    .PreviewTextSearchPanel.PageCapti

    .PreviewTextSearchPanel.SearchButt

    .PreviewTextSearchPanel.SearchUpText = "向上查找"
    .PreviewTextSearchPanel.TextCapti

 

 

    .ToolBars.File.Open.ToolTipText = "打开文件"  
    .ToolBars.File.PageSetup.ToolTipText = "页面设置"
    .ToolBars.File.Print.ToolTipText = "打印"
    .ToolBars.File.Save.ToolTipText = "保存文件"
    .ToolBars.Navigation.GoFirst.ToolTipText = "首页面"  
    .ToolBars.Navigation.GoLast.ToolTipText = "尾页"  
    .ToolBars.Navigation.GoNext.ToolTipText = "后翻页"   
    .ToolBars.Navigation.GoPrev.ToolTipText = "前翻页"   
    .ToolBars.Navigation.HistoryNext.ToolTipText = "后退到"   
    .ToolBars.Navigation.HistoryPrev.ToolTipText = "前进到"        
    .ToolBars.Page.Continuous.ToolTipText = "连续"  
    .ToolBars.Page.Facing.ToolTipText = "并列"
    .ToolBars.Page.FacingContinuous.ToolTipText = "全景"  
    .ToolBars.Page.Single.ToolTipText = "单页"  
    .ToolBars.Text.Find.ToolTipText = "查找文本"  
    .ToolBars.Text.Hand.ToolTipText = "手型"  
    .ToolBars.Text.SelectText.ToolTipText = "选择"  
    .ToolBars.Zoom.ZoomIn.ToolTipText = "Zoom In"   
    .ToolBars.Zoom.ZoomOut.ToolTipText = "Zoom Out"
      
End With

 

不知道咋回事，代码粘贴不全，特附 自定义函数的文本

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建 文本文档 (2).txt

 

窗口1的AfterLoad事件 再 加入

Functions.Execute("MyRDLChinesization") '汉化

 

现在看一下窗口1的界面

 

粘贴不上去啊，加空格也没用

 

自动给截断了