Imports System
Imports System.IO
Imports System.Data
 
 
' This example is from http://idealprogrammer.com
' It shows how you can use Format syntax in VB.NET ASP.NET
'****************************************************************************************
' Purpose:  returns a formatted string
'
' Syntax: 	Format(Expession,style)
'
' Parameter1: Expression - required. object. any valid expression 
'
' Parameter2: style - optional. string.  A valid named or user-defined format String expression.
' See source code for all of the styles.
'
' Result: string - returns formatted string
'
' *********************************************************
'
' Quick Example:   Dim strStyle As String = "$#,##0;;\Z\e\r\o"
'  TextBox1.Text = Format(1, strStyle) 'Returns $1
'  TextBox2.Text = Format(-1, strStyle) 'Returns -$1
'  TextBox3.Text = Format(0, strStyle) 'Returns Zero
'
'****************************************************************************************
' Example #1: 	Format(Expession,style) - returns a formatted string 
' expression - required. object. any valid expression
' style - optional. string.  A valid named or user-defined format String expression.
'
'Different Formats for Different Numeric Values
' A user-defined format expression for numbers can have from one to three sections 
' separated by semicolons. If the Style argument of the Format function contains one
' of the predefined numeric formats, only one section is allowed.
'
' Condition              Result
' One section only       The format expression applies to all values.
' Two(sections)          The first section applies to positive values and zeros; 
'                        the second applies to negative values.
' Three(sections)        The first section applies to positive values, the second 
'                        applies to negative values, and the third applies to zeros.
'
'****************************************************************************************
Partial Class _Format
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strStyle As String = "$#,##0;;\Z\e\r\o"
        Label1.Text = "Example #1: 	Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(1, strStyle)"
        TextBox1.Text = Microsoft.VisualBasic.Format(1, strStyle) 'Returns $1
        Label2.Text = "Example #2: 	Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(-1, strStyle)"
        TextBox2.Text = Microsoft.VisualBasic.Format(-1, strStyle) 'Returns -$1
        Label3.Text = "Example #3: 	Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(0, strStyle)"
        TextBox3.Text = Microsoft.VisualBasic.Format(0, strStyle) 'Returns Zero
    End Sub
End Class

Imports System Imports System.IO Imports System.Data ' This example is from http://idealprogrammer.com ' It shows how you can use Format syntax in VB.NET ASP.NET '**************************************************************************************** ' Purpose: returns a formatted string ' ' Syntax: Format(Expession,style) ' ' Parameter1: Expression - required. object. any valid expression ' ' Parameter2: style - optional. string. A valid named or user-defined format String expression. ' See source code for all of the styles. ' ' Result: string - returns formatted string ' ' ********************************************************* ' ' Quick Example: Dim strStyle As String = "$#,##0;;\Z\e\r\o" ' TextBox1.Text = Format(1, strStyle) 'Returns $1 ' TextBox2.Text = Format(-1, strStyle) 'Returns -$1 ' TextBox3.Text = Format(0, strStyle) 'Returns Zero ' '**************************************************************************************** ' Example #1: Format(Expession,style) - returns a formatted string ' expression - required. object. any valid expression ' style - optional. string. A valid named or user-defined format String expression. ' 'Different Formats for Different Numeric Values ' A user-defined format expression for numbers can have from one to three sections ' separated by semicolons. If the Style argument of the Format function contains one ' of the predefined numeric formats, only one section is allowed. ' ' Condition Result ' One section only The format expression applies to all values. ' Two(sections) The first section applies to positive values and zeros; ' the second applies to negative values. ' Three(sections) The first section applies to positive values, the second ' applies to negative values, and the third applies to zeros. ' '**************************************************************************************** Partial Class _Format Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim strStyle As String = "$#,##0;;\Z\e\r\o" Label1.Text = "Example #1: Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(1, strStyle)" TextBox1.Text = Microsoft.VisualBasic.Format(1, strStyle) 'Returns $1 Label2.Text = "Example #2: Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(-1, strStyle)" TextBox2.Text = Microsoft.VisualBasic.Format(-1, strStyle) 'Returns -$1 Label3.Text = "Example #3: Format(Expression,style) $#,##0;;\Z\e\r\o <br /> Format(0, strStyle)" TextBox3.Text = Microsoft.VisualBasic.Format(0, strStyle) 'Returns Zero End Sub End Class

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="Format.aspx.vb" Inherits="_Format" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox1" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label2" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox2" runat="server"></asp:textbox><br />
          <h1><asp:label ID="Label3" runat="server" Text="Label"></asp:label> </h1>
         <asp:textbox ID="TextBox3" runat="server"></asp:textbox><br />
 
 
 
    </div>
    </form>
</body>
</html>

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="Format.aspx.vb" Inherits="_Format" %> < !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> </head> <body> <form id="form1" runat="server"> <div> <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox1" runat="server"></asp:textbox><br /> <h1><asp:label ID="Label2" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox2" runat="server"></asp:textbox><br /> <h1><asp:label ID="Label3" runat="server" Text="Label"></asp:label> </h1> <asp:textbox ID="TextBox3" runat="server"></asp:textbox><br /> </div> </form> </body> </html>