exercise1.vb

来自「asp入门到精通的源代码」· VB 代码 · 共 51 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Globalization
Imports System.Resources
Imports System.Threading

Public Class ExchangeCalculator : Inherits Page
   public lblAnswer as Label
   public lblCurrency as Label
   public tbValue as TextBox
   public lbRegion as ListBox
   
   sub Page_Load(obj as object, e as eventargs)
      dim objRM as ResourceManager
      dim strLanguage as string = Request.UserLanguages(0).ToString
      
      dim objCulture as new CultureInfo(strLanguage)
      Thread.CurrentThread.CurrentCulture = new CultureInfo(strLanguage)
      Thread.CurrentThread.CurrentUICulture = new CultureInfo(strLanguage)
      
      dim objRegion as new RegionInfo(GetRegionFromCulture(objCulture.Name))
      lblCurrency.Text = objRegion.CurrencySymbol.ToString
      
      if Page.IsPostBack then
         objRM = ResourceManager.CreateFileBasedResourceManager("exchange", _
            Server.MapPath("."), Nothing)
         objRegion = new RegionInfo(GetRegionFromCulture(lbRegion.SelectedItem.Text))
         dim dblAnswer as double
         dblAnswer = Ctype(tbValue.Text, Double) * CType(objRM.GetString("To" & lbRegion.SelectedItem.Text), Double)
         lblAnswer.Text = objRegion.CurrencySymbol.ToString & dblAnswer.ToString
      
         objRM.ReleaseAllResources   
      end if
   end sub   
   
   private function GetRegionFromCulture(strCulture as string) as string
      select case strCulture
         case "en-US"
            Return "us"
         case "ja"
            Return "jp"
         case "de"
            Return "de"
         case "fr"
            Return "fr"
      end select
   end function
End Class