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

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

Example Webform Code:

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="OptionCompare.aspx.vb" Inherits="OptionCompare" %>
 
< !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 />
 
 
    </div>
    </form>
</body>
</html>

Example Code Behind:

Option Compare Text
Imports System
Imports System.IO
Imports System.Data
 
' This example is from http://idealprogrammer.com
' It shows how you can use OptionCompare syntax in VB.NET ASP.NET
'****************************************************************************************
' Purpose: Declares the default comparison method to use when comparing string data.
'
' Syntax: 	Option Compare { Binary | Text }
'
' Binary - Optional - compares based on binary representation - case sensitive
' Text - Optional - compares based on text representation - case insensitive
'
' NOTE: Option statement must appear in a file before any other source code statements
'****************************************************************************************
 
Partial Class OptionCompare
    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: 	Option Compare Text "
 
        Dim strOptionCompareExample As String = "This is a test string"
 
        Label2.Text = "A" = "a" ' Returns True
 
 
    End Sub
End Class

Example Connection String: