浅析VisualBasicNET中的资源

剩下的事这没什么好说的了，按运行吧，在出现对话框时试着点OK或Cancel看看你的杰作吧，很酷的同时支持中英文界面的示例程序哦。

伟大的思想家会说：我们要透过现象看到事物的本质。我虽说对哲学不感兴趣，但对net在后台到底瞒着我干了些什么见不得光的勾当还是非常好奇的。点击解决方案资源管理器，点击"显示所有文件"的按纽，很惊奇地发现在下出现了几个后缀名为resx的文件，这些家伙就是本文要说明的资源文件了(留意一下资源文件的文件名包含的en和zh-CHS的字符创业板指仅上涨13%，这就代表该资源文件储存的语言内容,en为英文，zh-CHS为简体中文)。

双击sx，看一下资源文件是如何储存界面的语言信息的：

点击查看大图

左边的数据源显示资源文件的实际数据（data）以及资源文件的文件版本信息(resheader)，我只关心资源文件的实际数据储存，右边的表列出了储存的数据:很显然name代表控件的属性（其实是引用资源数据的键），后面的value代表对应键的实际数据（在程序中界面显示的值就靠这里了，你可以试着把Let's apeak English改一下，然后运行一下程序看看）；comment代表注释，type代表数据的类型，mimetype就是资源数据的MIME 类型（当你窗体或picturebox存有图片时你会看到这里有一个很长的值，由于这个对编程作用不大，不作解释）。我们还可以在这个界面中插入新的资源数据，只要填写好name和value就可以了。

明白了资源文件后，我们再看一下代码中是怎样引用这引些值的，打开窗体的代码器，展开"Windows 窗体设计器生成的代码"这一代码段，找到窗体的Private Sub InitializeComponent（）过程，

第一句为:

Dim resources As sourceManager = New sourceManager(GetType(Form1))

这句代码的含义就是产生一个resourcemanager对象来对form1的资源文件进行控制,由于net 会根据线程的区域属性调用窗体的不同语言的资源文件，所以我们前面示例中将改变线程区域信息的代码放在InitializeComponent（）过程之前，以便net在创建resources对象时调用正确的语言资源文件。

接下来就是一大堆对控件属性进行赋值的语句了，看一下label的text 属性是如何赋值的就会明白资源数据的使用方法了。

xt = tString("xt")

很简单，使用ResourceManager的方法就可以获得实际需要的资源数据了必要时可以可以使用getobjcet方法取得数据，然后再用Ctype将其转为指定的类型。

写到这儿，本来按原计划我是想收笔的，但是天气依然阴沉沉，很闷，干脆就将资源使用的终极杀招也介绍一下好了。资源发展到现在已不权是简单地解决程序国际化的界面方面了，在net中可以使用资源将任意文件嵌入到你的可执行文件中，在需要时再用流的方式读出使用（是任意文件哦，而且方法非常简单），好象很酷的样子吧。以下我就用另一个示例说明一下。

示例2：在net中可执行文件中嵌入一个文本文件。

以前我做程序，版权使用协议信息总是放在一个txt文本文件中，打包时和可执行文件放在一起，在安装时释放到程序的安装路径，然后再打开使用。这种做法有两大坏处，一是这个文件很容易被其它人修改，二是可以套用蜡笔小新的一句话："这种做法太不成熟了吧！"。现在我使用一个新的方法，就是将协议和可执行文件结合在一起，在程序运行时读出使用，当然这就全靠资源的作用了。步骤如下：

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

2、点击项目菜单，选择添加现有项，接着会弹出一个文件对话框，将文件类型改为所有文件后，选择要嵌入的txt文件（其实这时你可选择任意文件，只要你喜欢*-）。接着你会在解决方案资源管理器中发现你新加入的文件名。如图：

3、关键的一步到了，在解决方案资源管理器中点击你刚加入的文件名，然后在属性窗体中将 "加成操作" 这一属性改为"嵌入的资源"，这将告诉net，刚加入的文件将会作为资源链接进可执行文件中。留意一下文件名哦，这在后面的程序中也很重要，强烈建议使用小写文件名！如下图：

4、接下就是在程序中用代码读出这个文件的内容。

在Form1_Click事件中加入代码，如下所示：

Private Sub Form1_Click(ByVal sender As Object, ByVal e As entArgs) Handles ick

Dim tobjStream As ream = tManifestResourceStream("t")

Dim tobjStreamReader As New reamReader(tobjStream, fault)

Dim tstrLicense As String = adToEnd

'如果是图象就可以使用dim tobjBMP as new bmp(tobjstrem)的方法直接得到资源内容

ow(tstrLicense)'显示刚才读得的结果

End Sub

在此对上述代码进行一点解释，net是通过Assembly的GetManifestResourceStream读出嵌入在可执行文件的资源并以ream对象返回（反正得到了这个流与结算价相比超过1.7%，就好象你时进行文件流操作，读/写到磁盘或象我一样在程序内部处理都由你自己决定了）。这个方法的唯一参数是资源的唯一标识，是按如下方式组成的：程序集的根命名空间+"."+资源在属性窗口显示的文件名（这是区分大小写的，在上文已提醒你注意了哦，而且这个标识法在C#中是不同的，别问我为什么，谁叫你不和我一样使用，哼8-）。

程序集的根命空间的名你可以从项目菜单下的XXXX（XXXX是你的项目名称，可不要认为是骂人的话8-）属性中看到：

点击查看大图

其余的代码就是以流方式读文件了，很简单吧。

5、按生成菜单下的生成解决方案，然后到你可执文件的目录下看看，你会发现除了可执行文件外没有别的文本文件，因为文本文件已以资源的方式存在于可执行文件中啦。运行一下看看效果啊（一些想做黑客的菜鸟又有什么怪怪的想法，藏木马？……）

资源的使用就介绍到此为至吧，窗外依然小雨菲菲，在虚幻的络和残酷的现实边缘排徊久了，写文章都有点怪怪的，请大伙儿原谅，祝大伙编程愉快。