نمایش متن پیام با زبان تنظیم شده نرم افزار و ترجمه آن به زبان منتخب کاربر

https://aparat.com/v/laSB5

Private Sub ChangeLanguageToolStripMenuItem_DropDownItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ChangeLanguageToolStripMenuItem.DropDownItemClicked

        Dim Id As String = e.ClickedItem.Tag.ToString

        Dim Result As MsgBoxResult = MsgBox(String.Format("{1}{0}{0}{2}", vbCrLf, ChangeLabguageMessage, ChangeLabguageMessage(Id)), MsgBoxStyle.YesNo)

        If Result = MsgBoxResult.No Then Exit Sub

        My.Settings.LanguageId = e.ClickedItem.Tag.ToString

        My.Settings.Save()

        Application.Restart()

    End Sub