VB.NET中如何释放资源文件,VSTO如何释放资源文件?

2022年2月23日16:31:34VB.NET中如何释放资源文件,VSTO如何释放资源文件?已关闭评论 99 views
微信公众号 【EXCEL880】 QQ群【165159540】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com

VSTO教程购买链接https://item.taobao.com/item.htm?id=663268485377

郑广学VSTO实战Excel插件开发火箭班VBA速转VB.NET https://feu.h5.xeknow.com/s/1C0NzP

有时候我们需要在.net程序中使用资源文件,比如不想某个模板文件被用户意外修改,每次使用的时候都从资源文件释放,又或者某些文件不想让用户看见,使用的时候才进行释放,这就需要作为资源文件使用

  1. 资源文件的添加
    一般文件自己在外部已经创建好,在解决方案-属性-资源窗口进行添加
  2. 资源文件的释放
    资源文件添加后 如果需要释放,需要先读取到io流,然后创建文件写入,这里txt文件和其他文件处理方式不一样,新手会有些懵逼,所以我封装了一个自定义函数可直接使用代码如下

    Private Sub 释放资源文件(资源对象 As Object, ByVal 目标文件 As String, Optional 覆盖原文件 As Boolean = False)
            If 覆盖原文件 Then
                System.IO.File.Delete(目标文件)
            Else
                If System.IO.File.Exists(目标文件) Then
                    Return '如果存在则退出不重新释放
                End If
            End If
            If Not System.IO.File.Exists(目标文件) Then
                If TypeName(资源对象) = "String" Then
                    Dim f = System.IO.File.CreateText(目标文件)   '设定文件创建位置
                    f.Write(资源对象) '写入资源文本
                    f.Close()     '关闭文件
                Else
                    Dim s As IO.Stream = System.IO.File.Create(目标文件)   '设定文件创建位置
                    Dim b() As Byte
                    b = 资源对象  '将资源文件转换为Byte()
                    s.Write(b, 0, b.Length)    '二进制文件写入
                    s.Close()     '关闭文件
                End If
            End If
        End Sub
        Sub 释放资源文件测试()
            'VSTO教程购买链接https://item.taobao.com/item.htm?id=663268485377
            '解决方案上右键属性-资源 添加资源文件
            Dim 释放路径 = "D:\VSTO880\Project\VSTO880测试框架\bin\Debug\excel测试.xlsx"
    
            释放资源文件(My.Resources.excel文件, 释放路径) '存在的不覆盖
            释放资源文件(My.Resources.x, "D:\VSTO880\Project\VSTO880测试框架\bin\Debug\x.txt", True) '覆盖
        End Sub
  3. 释放结果如图所示
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
  • A+
所属分类:VSTO