localizedform.vb

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

Public Class LocalizedForm

    Private Sub btnBadResource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStringResource.Click

        'Load the error message from the String resource file
        Dim res As New Resources.ResourceManager("Resource_Files.StringResources", GetType(LocalizedForm).Assembly)
        Me.lblInformation.Text = res.GetString("Error_Unable_To_Load")

    End Sub

    Private Sub btnResX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResX.Click
        'Load the welcome message using the designer generated class
        MsgBox(My.Resources.CustomResources.Welcome_Message)
    End Sub
End Class