icomparer_differenttypesexception.aspx

来自「This is a book about vb.you could learn 」· ASPX 代码 · 共 20 行

<%@Page Language="VB" debug="true" %>

<h3>IComparer</h3>

<%
Dim s1 As String = "richard"
Dim i1 As Integer = 1234

Dim c1 As IComparable

c1 = Ctype(s1, IComparable)

If c1.CompareTo(i1) <> 0
  Response.Write("You'll never see this line")
End If


%>