Class App Inherits WebApplication

End Class

Class Session Inherits WebSession

Const ErrorDialogCancel = "Do Not Send"

Const ErrorDialogMessage = "This application has encountered an error and cannot continue."

Const ErrorDialogQuestion = "Please describe what you were doing right before the error occurred:"

Const ErrorDialogSubmit = "Send"

Const ErrorThankYou = "Thank You"

Const ErrorThankYouMessage = "Your feedback helps us make improvements."

Const NoJavascriptInstructions = "To turn Javascript on, please refer to your browser settings window."

Const NoJavascriptMessage = "Javascript must be enabled to access this page."

End Class

Class WebPage1 Inherits WebPage

EventHandler Sub Opening() // test normal mode test "%f", 1.234 // default locale test "%f", 1.234, "de_DE" // German test "%f", 1.234, "en_US" // US English test "%f", 1.234, "fr_FR" // French test "%f", 1.0 // default locale test "%f", 1.0, "de_DE" // German test "%f", 1.0, "en_US" // US English test "%f", 1.0, "fr_FR" // French // one before comma, 2 after comma test "%1.2f", 1.234 // default locale test "%1.2f", 1.234, "de_DE" // German test "%1.2f", 1.234, "en_US" // US English test "%1.2f", 1.234, "fr_FR" // French // test exceptions test "%f%f", 1.23, "fr_FR" // French test "%f", 1.23, "xxx" // French End EventHandler

Sub Test(format as string, value as Double, locale as string = "") #pragma BreakOnExceptions false List.AddRow format try List.CellTextAt(List.LastAddedRowIndex,1) = formatMBS(Format, value, locale) List.CellTextAt(List.LastAddedRowIndex,2) = locale catch u as UnsupportedFormatException List.CellTextAt(List.LastAddedRowIndex,2) = u.message end try End Sub

End Class

Sign

End Sign