ROSTAM2
دوشنبه 10 مهر 1402, 09:35 صبح
در این آموزش ساخت Resource های بخش Message های نرم افزار MultiLanguage توضیح داده می شه...
که در این پروژه زبان های فارسی-عربی-انگلیسی و ویتنامی استفاده شده....
Windows Multi Language Application
Farsi
Arabic
English
Vietnamese
(https://aparat.com/v/5kiHS)https://aparat.com/v/5kiHS
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(MultiLanguageReso urces))
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_DropDownItemClicke d(sender As Object, e As ToolStripItemClickedEventArgs) Handles ChangeLanguageToolStripMenuItem.DropDownItemClicke d
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
-----------------------------------------------------------------------------------------------------------------------
که در این پروژه زبان های فارسی-عربی-انگلیسی و ویتنامی استفاده شده....
Windows Multi Language Application
Farsi
Arabic
English
Vietnamese
(https://aparat.com/v/5kiHS)https://aparat.com/v/5kiHS
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(MultiLanguageReso urces))
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_DropDownItemClicke d(sender As Object, e As ToolStripItemClickedEventArgs) Handles ChangeLanguageToolStripMenuItem.DropDownItemClicke d
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
-----------------------------------------------------------------------------------------------------------------------