mainform.vb

来自「讲解visual studio的应用」· VB 代码 · 共 29 行

Imports system.Globalization
Public Class MainForm

    Private Sub btnBadResource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBadResource.Click
        My.Forms.ResourceForm.ShowDialog()
    End Sub

    Private Sub btnLocalized_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLocalized.Click
        My.Forms.LocalizedForm.ShowDialog()
    End Sub

    Private Sub btnCanadian_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCanadian.Click
        Dim originalCulture As CultureInfo = CultureInfo.CurrentUICulture

        'Set the CurrentUICulture to English/Canada
        Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo("en-CA")
        My.Forms.LocalizedForm.Dispose()
        My.Forms.LocalizedForm.ShowDialog()
        My.Forms.LocalizedForm.Dispose()

        'Reset the CurrentUICulte back to the original value
        Threading.Thread.CurrentThread.CurrentUICulture = originalCulture
    End Sub

    Private Sub btnLoadPerson_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadPerson.Click
        'Load and display the Manager's Name
        MsgBox(My.Resources.Manager.Name)
    End Sub
End Class