ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

vb.net 教程 3-12 资源文件 2-2

2021-09-06 13:01:38  阅读:297  来源: 互联网

标签:picIndex Dim vb 12 myResourceManager System resourceName net strIndex


版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

单独的资源文件dll的使用比项目中资源文件的使用略为麻烦。

新建一个项目,添加现有项

从“添加现有项”对话框中选择上一小节编译出来的resource.dll,

从解决方案资源管理器中选中加入的resource.dll,从下方的属性对话框中,将“复制到输出目录”设置为“如果较新则复制”。

注意:以上步骤并非必须,这里只是为了像其他真正的软件,确保dll文件或者其他文件同可执行文件在一个目录。

窗口设计界面:

具体代码:

1、窗体代码引用System.Reflection命名空间:

Imports System.Reflection
System.Reflection 命名空间包含通过检查托管代码中程序集、模块、成员、参数和其他实体的元数据来检索其相关信息的类型。

2、建立两个窗体级的变量用来记录使用的字符串和图片的编号:

    Dim picIndex As Integer
    Dim strIndex As Integer
3、当窗体载入的时候,使编号为1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        picIndex = 1
        strIndex = 1
    End Sub

4、图片资源的调用:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim myResource As Assembly
        myResource = Assembly.LoadFile(Application.StartupPath & "\" & "resource.dll")
 
        Dim myResourceManager As System.Resources.ResourceManager
        myResourceManager = New System.Resources.ResourceManager("resource.Resource1", myResource)
 
        Dim myPic As Bitmap
        Dim resourceName As String
 
        resourceName = "Pic" & picIndex
        If picIndex = 1 Then picIndex = 2 Else picIndex = 1
 
        myPic = myResourceManager.GetObject(resourceName)
 
        PictureBox1.Image = myPic
    End Sub

5、字符串资源的调用

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myResource As Assembly
        myResource = Assembly.LoadFile(Application.StartupPath & "\" & "resource.dll")
 
        Dim myResourceManager As System.Resources.ResourceManager
        myResourceManager = New System.Resources.ResourceManager("resource.Resource1", myResource)
 
        Dim myString As String
        Dim resourceName As String
 
        resourceName = "String" & strIndex
        If strIndex = 1 Then strIndex = 2 Else strIndex = 1
 
        myString = myResourceManager.GetString(resourceName)
 
        TextBox1.Text = myString
    End Sub

运行结果如图:

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看vb.net教程 目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
 

标签:picIndex,Dim,vb,12,myResourceManager,System,resourceName,net,strIndex
来源: https://blog.csdn.net/chinaherolts2008/article/details/120131676

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有