vb6代码转c# （withevents问题）

[qw623577789]

Dim WithEvents ss As cls1 'ss,事件通知我们数据改变
Dim cc As New clsH '连接器对象
'按这个按钮,修改cls1(ss)的属性值
Private Sub Command1_Click()
ss.mVal = Time
End Sub
'初始连接器cc,初始cls1,事件分发对象ss
Private Sub Form_Load()
Set ss = cc.GetCls
End Sub
'接受到数据改变事件
Private Sub ss_ValChange(vData As String)
Form1.Caption = ss.mVal
End Sub
这是vb6代码，引用了vb6写的activex exe类型控件 ，麻烦各位大侠帮忙转换为c#，主要withevents搞不定

[wind_cloud2011]

Dim WithEvents ss As cls1 -->cls1 ss;

[qw623577789]

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using test; namespace WindowsFormsApplication5 { public partial class Form1 : Form { clsH cc = new clsH(); cls1 ss; public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { ss = (cls1)cc.GetCls; } private void button1_Click(object sender, EventArgs e) { ss.mVal = DateTime.Now.ToString(); } private void ss_ValChange(string vData) { Text = ss.mVal; } } } 我改为这样，不过 ss_ValChange不响应

[wind_cloud2011]

ss_ValChange,你并没有调用阿

[qw623577789]

在vb下是有被调用的， 这是那个active exe控件里的代码 Private mvarmVal As String '属性变量 Public Event ValChange(vData As String) '通知事件 Public Property Let mVal(ByVal vData As String) mvarmVal = vData RaiseEvent ValChange(vData) End Property Public Property Get mVal() As String mVal = mvarmVal End Property

[qw623577789]

ss里有ss.ValChange这个事件，是__cls1_ValChangeEventHandler 类型，怎么把ss.ValChange与private void ss_ValChange(string vData) 这两个关联起来。 附上： public delegate void __cls1_ValChangeEventHandler(ref string vData); namespace test { [ComVisible(false)] [TypeLibType(16)] public interface __cls1_Event { event __cls1_ValChangeEventHandler ValChange; } }

[qw623577789]

我只会写到ss.ValChange += new __cls1_ValChangeEventHandler（）里面就不知怎写了