آموزش ساخت بخش ریسورس پیام های نرم افزار چند زبانه

آموزش ساخت بخش ریسورس پیام های نرم افزار چند زبانه

در این آموزش ساخت 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 -----------------------------------------------------------------------------------------------------------