关于asp.net(VB)中类中定义的事件

Question

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.IO
Imports Microsoft.Win32
'Imports eOMPDllPublic Class SqlConnect
    Private sConnstr As String
    Public appConn As SqlConnection
    Private INIState As Integer
    Private iLimitedNum As Integer
    Private bPass As Boolean
    Private bSysPass As Boolean
    Public Shared iTimes As Int16 = 0
    ''* 数据库完全的四参数连接符
    Public Sub SqlConnect(ByVal sServerName As String, ByVal sUserName As String, ByVal sPwd As String, ByVal sDbName As String)
        sConnstr = ""
        If sServerName <> "" Then
            sConnstr += "Server=" + sServerName + ";"
        End If
        If sUserName <> "" Then
            sConnstr += "User ID=" + sUserName + ";"
        End If
        If sPwd <> "" Then
            sConnstr += "password=" + sPwd + ";"
        End If
        If sDbName <> "" Then
            sConnstr += "Initial Catalog=" + sDbName + ";"
        End If
        '增加Pooling
        sConnstr += "pooling=true ;Max Pool Size=250 ;Min Pool Size=10;Connect Timeout=100 "    End Sub  
End Class

Answer 1

public delegate void TextChange(object sender ,string text)
public class myText
{
   public TextChange OnTextChange; 
   public myText()
    {    }
    private string text;
    public void change(string text_p)
    {
          text=text_p
          if(OnTextChange!=null)
             OnTextChange(this,text)
     }}
public class sample
{
    public sample()
    {    }
    public static Mail()
    {
        myText a=new myText()
        a.OnTextChange+=new TextChange(onchange)
    }
    private onchange(object sender,string text)
    {    }
    当然a执行了change方法就会触发onchange这个过程
}