Progress Monitor for IdealProgrammer.com

Take Swift, Intelligent, Massive, Planned, Loving, Effective (S.I.M.P.L.E.) Action to Transform Self into Ideal

Skip Repetitive Navigational Links

Home

News

Presenters

Contact

Please login

VB.NET ASP.NET Format() Source Code Syntax Example

Description: Illustrates using Format with Source Code Syntax Example in VB.NET ASP.NET.

Example Webform Code:

< %@ 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:label ID="Label2" runat="server" Text="Label"></asp:label><br />
        <asp:label ID="Label3" runat="server" Text="Label"></asp:label><br />
        <asp:label ID="Label4" runat="server" Text="Label"></asp:label><br />
    </div>
    </form>
</body>
</html>

Example Code Behind:

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
'****************************************************************************************
' 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
        Label1.Text = "Example #1: 	Format(Expression,style) $#,##0;;\Z\e\r\o"
 
        Dim strStyle As String = "$#,##0;;\Z\e\r\o"
 
 
 
        ' Return 
        Label2.Text = Microsoft.VisualBasic.Format(1, strStyle) 'Returns $1
        Label3.Text = Microsoft.VisualBasic.Format(-1, strStyle) 'Returns -$1
        Label4.Text = Microsoft.VisualBasic.Format(0, strStyle) 'Returns Zero
    End Sub
End Class

Example Connection String: