Creare un File Resources .Resx

Imports System
Imports System.Drawing
Imports System.Resources

Public Class SampleClass

Public Sub Main()
Dim img As Image
Dim rsxw As ResXResourceWriter
img = Image.FromFile("en-AU.jpg")
rsxw = new ResXResourceWriter("en-AU.resx")
rsxw.AddResource("en-AU.jpg",img)
rsxw.Close()
End Sub
End Class



Imports System
Imports System.Drawing
Imports System.Resources



Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Try

' My.Computer.FileSystem.CopyDirectory("C:\Prova\_GeneraForm", "C:\Pippo", FileIO.UIOption.AllDialogs, FileIO.UICancelOption.ThrowException)

' Catch ex As Exception

' 'utente ha cancellato

'End Try

Dim img As Image
Dim rsxw As ResXResourceWriter
rsxw = New ResXResourceWriter("C:\Prova\en-AU.resx")
img = Image.FromFile("C:\Prova\64.bmp")
rsxw.AddResource("C:\Prova\64.bmp", img)

img = Image.FromFile("C:\Prova\DSC00128.JPG")
rsxw.AddResource("C:\Prova\DSC00128.JPG", img)
img = Image.FromFile("C:\Prova\DSC00019.JPG")
rsxw.AddResource("C:\Prova\DSC00019.JPG", img)
img = Image.FromFile("C:\Prova\DSC00020.JPG")
rsxw.AddResource("C:\Prova\DSC00020.JPG", img)
img = Image.FromFile("C:\Prova\DSC00021.JPG")
rsxw.AddResource("C:\Prova\DSC00021.JPG", img)
img = Image.FromFile("C:\Prova\DSC00022.JPG")
rsxw.AddResource("C:\Prova\DSC00022.JPG", img)
img = Image.FromFile("C:\Prova\DSC00115.JPG")
rsxw.AddResource("C:\Prova\DSC00115.JPG", img)
img = Image.FromFile("C:\Prova\DSC00116.JPG")
rsxw.AddResource("C:\Prova\DSC00116.JPG", img)
rsxw.Close()

End Sub
End Class