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 PadLeft Source Code - PadLeft Example Syntax

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

Example Webform Code:

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="PadLeft.aspx.vb" Inherits="PadLeft" %>
 
< !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 Pad syntax in VB.NET ASP.NET
'****************************************************************************************
' Example #1: PadLeft(totalWidth [, paddingCharacter])
' Returns a string that is right-aligned and padded on left with character specified.
' If no padddingCharacter is specified, space is used. totalWidth is total width of column
' This allows you to create a nice straight column even though lengths of text vary.
'****************************************************************************************
 
Partial Class PadLeft
    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: PadLeft(totalWidth [, paddingCharacter]) "
 
        Dim strPadLeftExampleA As String = "This is a test string"
        Dim strPadLeftExampleB As String = "short"
        Dim strPadLeftExampleC As String = "longer"
 
 
        Label2.Text = "start" + strPadLeftExampleA.PadLeft(35, ".")
        Label3.Text = "start" + strPadLeftExampleB.PadLeft(35, ".")
        Label4.Text = "start" + strPadLeftExampleC.PadLeft(35, ".")
 
 
    End Sub
End Class

Example Connection String: