科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道浅析VisualBasic.NET中的资源使用(一)

浅析VisualBasic.NET中的资源使用(一)

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在我了解到的程序世界中,资源的初次登场是因为程序的国际化,当时的可执行文件已不再是单调的英文面孔,汉语、西班牙语等国际语言的支持强烈要求同样的程序,可以使用不同的语言界面。

作者:中国IT实验室 来源:中国IT实验室 2007年9月13日

关键字: VisualBasic

  • 评论
  • 分享微博
  • 分享邮件
     在我了解到的程序世界中,资源的初次登场是因为程序的国际化,当时的可执行文件已不再是单调的英文面孔,汉语、西班牙语等国际语言的支持强烈要求同样的程序,可以使用不同的语言界面。在当时,将程序逻辑代码和提示信息分离是一个不错的主意,堤示信息分离出来成为一个资源文件而独立存在,在程序进行编译时再由编译器链接到可执行文件中。直到现在,资源在这个方面依然扮演着重要的角色。以下以VB.net的一个小例子说明资源的存在:

  例一:时下许多网上的软件都有什么多国语言版之类的说法,实在点就是同一程序在安装或使用过程中有个国家区域选项,当你选择了对应的国家时,程序就会显示使用相应国家语言的界面。其实在编程实现这种功能非常简单,只不过是使程序同时嵌入几个不同语言的资源文件而已,以下示例就是一个同时支持英文和中文界面的示例程序。程序创建完整步骤如下:

     1、在VB.net中新建一个项目,类型选择windows应用程序,项目名称改为resourcesample1。

  2、在form1上放一个Lable控件.

  3、选择窗体form1,按以下指示设置属性:

  (1)Locallizable 属性设为True,这一步是关键,这个属性告诉net环境,要使用资源文件来保存窗体及窗体内的各种控件的属性值.

  (2)选择窗体的language属性,将其设为英语。然后按下表设置窗体及lable控件的其它属性:

控件名称 属性 属性值
Form1 text Form
Label Text Let's speak English!

  窗体外观如下:

浅析VisualBasic.NET中的资源使用(图一)

  (3)重新选择窗体的language属性,将其设为中文(简体)。然后按下表设置窗体及lable控件的其它属性:

控件名称 属性 属性值
Form1 text 窗体
Label Text  


让我们说中文!

  窗体外观如下:

浅析VisualBasic.NET中的资源使用(图二)

  大家也许很奇怪,为什么要对窗体及label的text属性进行两次不同的赋值呢?其实答案很简单,vs.net太聪明了,由于我们使用Locallizable 属性告诉net环境,要使用资源文件来保存窗体及窗体内的各种控件的属性值,当使用不同的language属性,它会将窗体及其上控件的属性按语言分别记录在不同的资源文件内。不信你将language属性重新设为英语看看,第一个英文界面的窗体又跳出来了吧8-D
4、如果说可视化编程是光明之途的话,那么我们的快乐时光到此结束,由于net还没有智能化到会判断什么时候使用什么国家的语言界面的程度(如果net 太智能了,程序员就不幸了,下岗啊,谁受得了?!),所以以下必须由我们自己编写代码确定程序的实际界面显示。

  打开 form1的New过程,在InitializeComponent()前加入如下代码(这段代码作用是在窗体初始化组件之前,按指定的语言区域信息载入相应的界面资源文件):

Dim tenmDialogResult As DialogResult
tenmDialogResult = MessageBox.Show("请问是使用中文还是英语,中文选择OK,英文选择CANCEL。", _
"语言选择", _
MessageBoxButtons.OKCancel, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button1, _
MessageBoxOptions.DefaultDesktopOnly)

  REM 一般情况下程序都是使用读取初始化文件的方法来取得语言设置信息,

'但本例程为了简便起见,仅使用一个对话框提示用户选择适合自己的语言.

If tenmDialogResult = DialogResult.OK Then '使用中文界面
gstrAppCulture = "zh-CHS"
Else '使用英文界面
gstrAppCulture = "en"
End If

'将需要使用的区域信息放到当前线程的区域信息中,
'程序窗体会根据设定的信息装载相应的资源文件以显示信息
System.Threading.Thread.CurrentThread.CurrentUICulture = _
New System.Globalization.CultureInfo(gstrAppCulture)

 

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章