'*** get current Assembly object.
Dim asm As Assembly = Assembly.GetExecutingAssembly()
'*** load embedded resource into stream
Dim ResourceName As String = "LitwareSmartClient.LitwareLogo.png"
Dim str As Stream = asm.GetManifestResourceStream(ResourceName)
'*** convert stream into image and load in '*** picture box
Dim img As Image = Image.FromStream(str)
PictureBox1.Image = img

<root>
<data name="MainFormCaption">
<value>Litware Customer Managervalue>
data>
<data name="UserWelcome">
<value>Good dayvalue>
data>
<data name="ErrorMessage1">
<value>Oh no, Something went wrong!value>
data>
root>

Dim asm As Assembly = Assembly.Load("LitwareStrings.resources")
Dim rm As New System.Resources.ResourceManager("LitwareStrings", asm)
Dim caption As String = rm.GetString("MainFormCaption")


Shared ReadOnly Property MainFormCaption()Property MainFormCaption() As String
Get
Return ResourceManager.GetString("MainFormCaption", resourceCulture)
End Get
End Property 
Sub Main_Load()Sub Main_Load(sender As Object, e As EventArgs)
Handles MyBase.Load
Me.Text = _
My.Resources.LitwareStrings.MainFormCaption
Me.lblUserWelcome.Text = _
My.Resources.LitwareStrings.UserWelcome
End Sub


Private Sub LoadResources()Sub LoadResources()
'*** load project-level resources
Me.Text = My.Resources.MainFormCaption
Me.lblWelcomeMessage.Text = My.Resources.UserWelcome
End Sub

Me.picLogo.Image = My.Resources.LitwareLogo
Dim xmlDoc As New Xml.XmlDocument
xmlDoc.LoadXml(My.Resources.Customers)

Dim culture1 As CultureInfo = New CultureInfo("en-US")
Dim culture2 As CultureInfo = New CultureInfo("en-GB")
Dim culture3 As CultureInfo = New CultureInfo("fr")
Dim culture4 As CultureInfo = New CultureInfo("fr-BE")

'*** determine current culture and current UI culture
Dim t As Thread = Thread.CurrentThread
Dim currentCulture As CultureInfo = t.CurrentCulture
Dim currentUICulture As CultureInfo = t.CurrentUICulture
'*** display cultures in console
Console.WriteLine("Current Culture: " & currentCulture.Name)
Console.WriteLine("Current UI Culture: " & currentUICulture.Name)

My.Application.ChangeUICulture("fr-BE")

<Assembly: System.Resources.NeutralResourcesLanguage("en")>

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/12639172/viewspace-332339/ ,如需转载,请注明出处,否则将追究法律责任。