为一个数据库字段超链接解析一个URL

1. 双击控件所在的区域，这会创建一个对应于区域 Format 事件的处理程序。

2. 添加到 Format 事件中的代码，用于

l 解析 URL

l 分配给文本框的 HyperLink 属性

l 从文本框显示的文字中删除 URL 标记

下面的示例演示了对应方法的具体代码。

使用 Visual Basic 编写以下代码

粘贴以下的 Visual Basic.NET 代码到 Format 事件中。

Dim iStart As Integer

Dim sHTML As String

If textBox1.Text <> "" Then

iStart = InStr(1, textBox1.Text, "#", CompareMethod.Text)

sHTML = Right(textBox1.Text, (Len(textBox1.Text) - iStart))

sHTML = Replace(sHTML, "#", "", 1, -1, CompareMethod.Text)

textBox1.HyperLink = sHTML

textBox1.Text = Replace(textBox1.Text, "#", "", 1, -1, CompareMethod.Text)

End If

使用 C# 编写以下代码

粘贴以下的 C# 代码到 Format 事件中。

int iStart;

string sHTML;

if (textBox1.Text != "")

{

iStart = textBox1.Text.IndexOf("#",0);

sHTML = textBox1.Text.Substring(iStart, textBox1.Text.Length - iStart);

sHTML = sHTML.Replace("#", "");

textBox1.HyperLink = sHTML;

textBox1.Text = textBox1.Text.Replace("#", "");

}