در این آموزش ساخت Resource های بخش Message های نرم افزار Multi-Language توضیح داده می شه...
که در این پروژه زبان های فارسی-عربی-انگلیسی و ویتنامی استفاده شده....
Windows Multi Language Application
Farsi
Arabic
English
Vietnamese
Dim Id As String = My.Settings.LanguageId
If Id.Length = 0 Then Id = My.Application.Culture.Name
Debug.Print(Id)
If My.Application.UICulture.Name Id Then
My.Application.ChangeUICulture(Id)
Debug.Print(Id)
End If
--------------------------------------------------------------------------------------------------------------------------
Public Class CurrentResources
Private Shared ManagerValue As New ComponentResourceManager(GetType(MultiLanguageResources))
Public Shared ReadOnly Property Manager() As ComponentResourceManager
Get
Return ManagerValue
End Get
End Property
Public Shared ReadOnly Property Strings(resName As String) As String
Get
Return Manager.GetString(resName)
End Get
End Property
Public Shared ReadOnly Property ChangeLabguageMessage() As String
Get
Return Manager.GetString("ChangeLabguageMessage")
End Get
End Property
End Class
----------------------------------------------------------------------------------------------------
Private Sub ChangeLanguageToolStripMenuItem_DropDownItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ChangeLanguageToolStripMenuItem.DropDownItemClicked
Dim Result As MsgBoxResult = MsgBox(ChangeLabguageMessage, MsgBoxStyle.YesNo)
If Result = MsgBoxResult.No Then Exit Sub
My.Settings.LanguageId = e.ClickedItem.Tag.ToString
My.Settings.Save()
Application.Restart()
End Sub
-----------------------------------------------------------------------------------------------------------
