Public Shared Sub Main(args() As String)
' Create a file stream to encapsulate items.resources.
Dim fs As New FileStream("items.resources", _
FileMode.OpenOrCreate, FileAccess.Write)
' Open a resource writer to write from the stream.
Dim writer = New ResourceWriter(fs)
' Add resources to the resource writer.
writer.AddResource("String 1", "First String")
writer.AddResource("String 2", "Second String")
writer.AddResource("String 3", "Third String")
' Write the resources to the stream, and close it.
writer.Close()
End Sub
楼上滴,我就是想要实现你说的效果。可是ResourceWriter,我是这样用的:
Dim rw As New Resources.ResourceWriter(Application.StartupPath & "res.resources")
With rw
.AddResource(filename, Image.FromFile(strFileName))
'...
.Generate()
.Close()
End With
我不知道怎么判断res.resources这个文件已经存在,代码里也没有去删除这个文件。上面的语句每次执行它就原来的资源内容就已经被清空了,我感觉像是把我的那个覆盖掉,又重新建了一个。