code behind page |
Protected Sub CV1SV(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CV1.ServerValidate Dim ABC As Boolean If args.Value = "text1" Then ABC = True Else CV1.ErrorMessage = "Textbox1 is not "text1"" ABC = False End If If Not (args.Value = "") Then args.IsValid = ABC And True Else CV1.ErrorMessage = "Textbox1 is not empty" args.IsValid = ABC And False End If End Sub Protected Sub CV2SV(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CV2.ServerValidate Dim ABC As Boolean If args.Value = "text2" Then ABC = True Else CV2.ErrorMessage = "Textbox2 is not "text2"" ABC = False End If If Not (args.Value = "") Then args.IsValid = ABC And True Else CV2.ErrorMessage = "Textbox2 is not empty" args.IsValid = ABC And False End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If IsValid Then Response.Write("Completed!!") Else Response.Write("Failure!!") End If End Sub |
aspx frontpage |
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
|