Dim WithEvents ss As cls1 -->cls1 ss;

解决方案 »

  1.   

    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不响应
      

  2.   

    在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
      

  3.   

    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;
        }
    }
      

  4.   

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