vb点虐 中如何用事件和委托，会C#中的事件和委托，但不知VB点虐 中的语法，望给个简单的例子熟悉语法。

一委托：此示例演示如何将方法与委托关联然后通过委托调用该方法。

10多年的四子王网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销的优势是能够根据用户设备显示端的尺寸不同，自动调整四子王建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“四子王网站设计”,“四子王网站推广”以来，每个客户项目都认真落实执行。

创建委托和匹配过程

创建一个名为 MySubDelegate 的委托。

Delegate Sub MySubDelegate(ByVal x As Integer)

声明一个类，该类包含与该委托具有相同签名的方法。

Class class1

Sub Sub1(ByVal x As Integer)

MsgBox("The value of x is: " CStr(x))

End Sub

End Class

定义一个方法，该方法创建该委托的实例并通过调用内置的 Invoke 方法调用与该委托关联的方法。

Protected Sub DelegateTest()

Dim c1 As New class1

' Create an instance of the delegate.

Dim msd As MySubDelegate = AddressOf c1.Sub1

' Call the method.

msd.Invoke(10)

End Sub

二、事件

下面的示例程序阐释如何在一个类中引发一个事件，然后在另一个类中处理该事件。AlarmClock 类定义公共事件 Alarm，并提供引发该事件的方法。AlarmEventArgs 类派生自 EventArgs，并定义 Alarm 事件特定的数据。WakeMeUp 类定义处理 Alarm 事件的 AlarmRang 方法。AlarmDriver 类一起使用类，将使用 WakeMeUp 的 AlarmRang 方法设置为处理 AlarmClock 的 Alarm 事件。

该示例程序使用事件和委托和引发事件中详细说明的概念。

示例

' EventSample.vb.

'

Option Explicit

Option Strict

Imports System

Imports System.ComponentModel

Imports Microsoft.VisualBasic

Namespace EventSample

' Class that contains the data for

' the alarm event. Derives from System.EventArgs.

'

Public Class AlarmEventArgs

Inherits EventArgs

Private _snoozePressed As Boolean

Private nrings As Integer

'Constructor.

'

Public Sub New(snoozePressed As Boolean, nrings As Integer)

Me._snoozePressed = snoozePressed

Me.nrings = nrings

End Sub

' The NumRings property returns the number of rings

' that the alarm clock has sounded when the alarm event

' is generated.

'

Public ReadOnly Property NumRings() As Integer

Get

Return nrings

End Get

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public ReadOnly Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

End Property

' The AlarmText property that contains the wake-up message.

'

Public ReadOnly Property AlarmText() As String

Get

If _snoozePressed Then

Return "Wake Up!!! Snooze time is over."

Else

Return "Wake Up!"

End If

End Get

End Property

End Class

' Delegate declaration.

'

Public Delegate Sub AlarmEventHandler(sender As Object, _

e As AlarmEventArgs)

' The Alarm class that raises the alarm event.

'

Public Class AlarmClock

Private _snoozePressed As Boolean = False

Private nrings As Integer = 0

Private stopFlag As Boolean = False

' The Stop property indicates whether the

' alarm should be turned off.

'

Public Property [Stop]() As Boolean

Get

Return stopFlag

End Get

Set

stopFlag = value

End Set

End Property

' The SnoozePressed property indicates whether the snooze

' button is pressed on the alarm when the alarm event is generated.

'

Public Property SnoozePressed() As Boolean

Get

Return _snoozePressed

End Get

Set

_snoozePressed = value

End Set

End Property

' The event member that is of type AlarmEventHandler.

'

Public Event Alarm As AlarmEventHandler

' The protected OnAlarm method raises the event by invoking

' the delegates. The sender is always this, the current instance

' of the class.

'

Protected Overridable Sub OnAlarm(e As AlarmEventArgs)

RaiseEvent Alarm(Me, e)

End Sub

' This alarm clock does not have

' a user interface.

' To simulate the alarm mechanism it has a loop

' that raises the alarm event at every iteration

' with a time delay of 300 milliseconds,

' if snooze is not pressed. If snooze is pressed,

' the time delay is 1000 milliseconds.

'

Public Sub Start()

Do

nrings += 1

If stopFlag Then

Exit Do

Else

If _snoozePressed Then

System.Threading.Thread.Sleep(1000)

If (True) Then

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

Else

System.Threading.Thread.Sleep(300)

Dim e As New AlarmEventArgs(_snoozePressed, nrings)

OnAlarm(e)

End If

End If

Loop

End Sub

End Class

' The WakeMeUp class has a method AlarmRang that handles the

' alarm event.

'

Public Class WakeMeUp

Public Sub AlarmRang(sender As Object, e As AlarmEventArgs)

Console.WriteLine((e.AlarmText + ControlChars.Cr))

If Not e.SnoozePressed Then

If e.NumRings Mod 10 = 0 Then

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Press Snooze? Enter N")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

If input.Equals("N") Or input.Equals("n") Then

CType(sender, AlarmClock).SnoozePressed = True

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End If

Else

Console.WriteLine(" Let alarm ring? Enter Y")

Console.WriteLine(" Stop Alarm? Enter Q")

Dim input As String = Console.ReadLine()

If input.Equals("Y") Or input.Equals("y") Then

Return

Else

CType(sender, AlarmClock).Stop = True

Return

End If

End If

End Sub

End Class

' The driver class that hooks up the event handling method of

' WakeMeUp to the alarm event of an Alarm object using a delegate.

' In a forms-based application, the driver class is the

' form.

'

Public Class AlarmDriver

Public Shared Sub Main()

' Instantiates the event receiver.

Dim w As New WakeMeUp()

' Instantiates the event source.

Dim clock As New AlarmClock()

' Wires the AlarmRang method to the Alarm event.

AddHandler clock.Alarm, AddressOf w.AlarmRang

clock.Start()

End Sub

End Class

End Namespace

关于在VB.NET中怎么使用事务的问题，还有其

在vb点虐 中要定义一个事务，需要使用Begin tran命令，在这一命令之后的任何语句都将被认为是事务的一部分。命令Commit用来完成VB.NET处理，并使事务对数据库所作的修改成为永久的。Rollback命令用来取消一个事务，并还原事务对数据库所作的修改。

详谈如何在VB.NET使用ORACLR数据库事务麻烦告诉我

Oracle.DataAccess.Client 命名空间是 ODP.NET 的一部分，它包含许多类，其中有OracleConnection、OracleCommand 和 OracleTransaction。示例程序用到了这些类。 VB.NET使用ORACLR第 1 步创建一个 OracleConnection 对象连接到 Oracle 数据库，然后打开该连接。

在C# 中：OracleConnection myOracleConnection =new OracleConnection( "User Id=store;Password=store;Data Source=ORCL" ); myOracleConnection.Open(); 在VB.NET 中:Dim myOracleConnection As New OracleConnection( _ "User Id=store;Password=store;Data Source=ORCL") myOracleConnection.Open() User Id 和 Password 属性指定了您所要连接到的模式的数据库用户和口令。Data Source 属性指定了数据库的 Oracle Net 服务名称；初始数据库的默认服务名称为 ORCL。如果您使用的不是初始数据库，或者您的服务名称不同，那么您需要在程序中修改 Data Source 属性的设置。 VB.NET使用ORACLR第 2 步创建一个 OracleTransaction 对象，然后调用 OracleConnection 对象的 BeginTransaction() 方法启动事务。 在C# 中：OracleTransaction myOracleTransaction = myOracleConnection.BeginTransaction(); In VB.NET: Dim myOracleTransaction As OracleTransaction = _ myOracleConnection.BeginTransaction() VB.NET使用ORACLR第3 步创建一个 OracleCommand 对象，用于存储 SQL 语句。 在C# 中：OracleCommand myOracleCommand = myOracleConnection.CreateCommand(); 在VB.NET 中：Dim myOracleCommand As OracleCommand = myOracleConnection.CreateCommand 因为OracleCommand 对象使用 OracleConnection 对象的 CreateCommand() 方法创建的，所以它自动使用在第 2 步中为 OracleConnection 对象设置的事务。 VB.NET使用ORACLR第 4 步将OracleCommand 对象的 CommandText 属性设为向表 product_types 中添加一行的第一条 INSERT 语句。

在C# 中：myOracleCommand.CommandText = "INSERT INTO product_types (" + " product_type_id, name" + ") VALUES (" + " 3, 'Magazine'" + ")"; 在VB.NET 中：myOracleCommand.CommandText = _ "INSERT INTO product_types (" _ " product_type_id, name" _ ") VALUES (" _ " 3, 'Magazine'" _ ")" VB.NET使用ORACLR第 5 步

使用OracleCommand 对象的 ExecuteNonQuery() 方法运行 INSERT 语句。

在C# 中：myOracleCommand.ExecuteNonQuery(); 在VB.NET 中：myOracleCommand.ExecuteNonQuery(); VB.NET使用ORACLR第 6 和第 7 步将OracleCommand 对象的 CommandText 属性设为向表 Products 中添加一行的第二条 INSERT 语句，并运行它。

在C# 中：myOracleCommand.CommandText = "INSERT INTO products (" + " product_id, product_type_id, name, description, price" + ") VALUES (" + " 5, 3, 'Oracle Magazine', 'Magazine about Oracle', 4.99" + ")"; myOracleCommand.ExecuteNonQuery(); 在VB.NET 中：myOracleCommand.CommandText = _ "INSERT INTO products (" _ " product_id, product_type_id, name, description, price" _ ") VALUES (" _ " 5, 3, 'Oracle Magazine', 'Magazine about Oracle', 4.99" _ ")" myOracleCommand.ExecuteNonQuery() VB.NET使用ORACLR第 8 步使用OracleTransaction 对象的 Commit() 方法提交数据库中的事务。

在C# 中：myOracleTransaction.Commit(); 在VB.NET 中：myOracleTransaction.Commit() 在完成 Commit() 方法之后，由 INSERT 语句添加的两行将在数据库中永久记录。 VB.NET使用ORACLR第 9 步使用Close() 方法关闭 OracleConnection 对象。在C# 中：myOracleConnection.Close(); 在VB.NET 中： myOracleConnection.Close() 编译并运行示例程序要编译 C# 示例程序，您可以使用 csc 命令运行 C# 编译器。因为程序使用 Oracle Data Access DLL，所以您应使用 /r 选项指定该 DLL 的完整路径，例如：注意：您需要用您计算机上的相应路径来替换该 DLL 的路径。此外，如果您的计算机找不到 csc 编译器，那么您可能需要运行 Microsoft sdkvars.bat 脚本来首先设置 .NET SDK 的环境变量；您可以在安装 .NET SDK 的 bin 目录中找到该脚本。 如果您遇到以下错误：Example1.cs(10,7):error CS0246:The type or namespace name 'Oracle' could not be found (are you missing a using directive or an assembly reference?) 这说明您没有在编译命令中正确指定 Oracle Data Access DLL。（有关设置的信息，请参阅 John Paul Cook 的技术文章“在 Oracle 数据库上构建 .NET 应用程序”。） 下面是用于编译 VB.NET 程序的等价命令：vbc TransExample1.vb /r:C:\oracle\product\10.1.0\ Client_1\bin\Oracle.DataAccess.dll /r:system.dll /r:system.data.dll 接下来，输入以下命令，运行示例： An exception was thrown Message = ORA-12514:TNS:listener does not currently know of service requested in connect descriptor 您将看到程序的输出。不过，如果您遇到类似以下的异常这说明 OracleConnection 对象的连接字符串中的 Data Source 的设置不正确。您应当咨询您的 DBA 或查阅 Oracle Net 文档以获得更多详细信息。 如果您使用的是 VS .NET，那么您可以遵循以下指示来编译和运行 C# 程序 TransExample1.cs：

创建一个新的 C# 控制台应用程序。FileNew Project，然后选择 Visual C# Projects，Console Application。

在VB中，怎样对SQL进行事务处理

事务处理是在数据处理时经常遇到的问题，经常用到的方法有以下3种总结整理如下：

方法1：直接写入到sql 中

在存储过程中使用 BEGIN TRANS, COMMIT TRANS, ROLLBACK TRANS 实现

begin trans

declare @orderDetailsError int,@procuntError int

delete from [order details] where productid=42

select @orderDetailsError =@@error

delete from products where productid=42

select @procuntError=@@error

if(@orderDetailsError =0 and @procuntError=0)

COMMIT TRANS

else

ROLLBACK TRANS

优点：

所有事务逻辑包含在一个单独的调用中

拥有运行一个事务的最佳性能

独立于应用程序

限制：

事务上下文仅存在于数据库调用中

数据库代码与数据库系统有关

方法2 ：使用ADO.NET 实现 

使用ADO.NET 实现，使用这种方式的优点是可以在中间层来管理事务，当然你也可以选择在数据层来实现。

SqlConnection 和OleDbConnection  对象有一个 BeginTransaction 方法，它可以返回 SqlTransaction

或者OleDbTransaction 对象。而且这个对象有 Commit 和 Rollback 方法来管理事务

SqlConnection sqlConnection = new SqlConnection("workstation id=WEIXIAOPING;packet size=4096;user id=sa;initial catalog=Northwind;persist security info=False");

sqlConnection.Open();

SqlTransaction  myTrans = sqlConnection.BeginTransaction();

SqlCommand sqlInsertCommand = new SqlCommand();

sqlInsertCommand.Connection = sqlConnection

sqlInsertCommand.Transaction=myTrans;

try{

sqlInsertCommand.CommandText="insert into tbTree(Context,ParentID) values('北京',1)";

sqlInsertCommand.ExecuteNonQuery();

sqlInsertCommand.CommandText="insert into tbTree(Context,ParentID) values('上海',1)";

sqlInsertCommand.ExecuteNonQuery();

myTrans.Commit();

}catch(Exception ex)

{

myTrans.Rollback();

}

finally

{

sqlConnection.Close();

}

优点:

简单性

和数据据事务差不多的快

独立于数据库，不同数据库的专有代码被隐藏了

缺点:

事务不能跨越多个数据库连接

事务执行在数据库连接层上，所以需要在事务过程中维护一个数据库连接

ADO.NET分布事务也可以跨越多个数据库，但是其中一个SQL SERVER 数据库的话，通过用SQL SERVER连接服务器连接到别的数据库，但是如果是在DB2和Orcal之间就不可以。

以上两种事务是经常用到的事务处理方法。

方法3  COM+事务（分布式事务）

.NET Framework 依靠 MTS/COM+ 服务来支持自动事务。COM+ 使用 Microsoft Distributed Transaction Coordinator (DTC) 作为事务管理器和事务协调器在分布式环境中运行事务。

这样可使 .NET 应用程序运行跨多个资源结合不同操作（例如，将定单插入 SQL Server 数据库、将消息写入 Microsoft 消息队列 (MSMQ) 队列、以及从 Oracle 数据库检索数据）

的事务。

COM+事务处理的类必须继承System.EnterpriseServices.ServicedComponent，其实web service就是继承System.EnterpriseServices.ServicedComponent，所以web service也支持

COM+事务。

定义一个COM+事务处理的类

[Transaction(TransactionOption.Required)]

public class DataAccess:System.EnterpriseServices.ServicedComponent

{

}

TransactionOption枚举类型支持5个COM+值（Disabled,NotSupported,Required,RequiresNew,Supported）

Disabled      忽略当前上下文中的任何事务。

NotSupported  使用非受控事务在上下文中创建组件。

Required      如果事务存在则共享事务，并且如有必要则创建新事务。

RequiresNew   使用新事务创建组件，而与当前上下文的状态无关。

Supported     如果事务存在，则共享该事务。

一般来说COM+中的组件需要Required 或Supported。当组件用于记录或查帐时RequiresNew 很有用，因为组件应该与活动中其他事务处理的提交或回滚隔离开来。

派生类可以重载基类的任意属性。如DataAccess选用Required，派生类仍然可以重载并指定RequiresNew或其他值。

COM+事务有手动处理和自动处理，自动处理就是在所需要自动处理的方法前加上[AutoComplete]，根据方法的正常或抛出异常决定提交或回滚。

手动处理就是调用ContextUtil类中EnableCommit，SetComplete，SetAbort方法。

public string  testTransaction()

{

try

{

ContextUtil.EnableCommit();

InsertARecord1();

InsertARecord2();

ContextUtil.SetComplete();

return "succeed!";

}

catch(Exception ex)

{

ContextUtil.SetAbort();

return "failed!";

}

}

public void InsertARecord1()

{

string strconn="workstation id=WEIXIAOPING;packet size=4096;user id=sa;initial catalog=Northwind;persist security info=False";

SqlConnection conn=new SqlConnection(strconn);

conn.Open();

SqlCommand command=new SqlCommand("insert into tbTree(Context,ParentID) values('北京',1)",conn);

command.ExecuteNonQuery();

conn.Close();

}

public void InsertARecord2()

{

string strconn="workstation id=WEIXIAOPING;packet size=4096;user id=sa;initial catalog=Northwind;persist security info=False";

SqlConnection conn=new SqlConnection(strconn);

conn.Open();

SqlCommand command=new SqlCommand("insert into tbTree(Context,ParentID) values('上海',1)",conn);

command.ExecuteNonQuery();

conn.Close();

}

在需要事务跨 MSMQ 和其他可识别事务的资源（例如，SQL Server 数据库）运行的系统中，只能使用 DTC 或 COM+ 事务，除此之外没有其他选择。DTC 协调参与分布式事务的所有资源管理器，  也管理与事务相关的操作。

这种做法的缺点是，由于存在 DTC 和 COM 互操作性开销，导致性能降低。

COM+事务处理的类必须强命名。

网页名称：vb点虐 使用事务的简单介绍
本文链接：http://kswjz.com/article/ddsdgch.html