我对控件定义的事件
能不能用代码赋值?比如,我在一开始不要click事件,
通过一定的事件,动态把一个函数赋给一个按钮的click事件?

解决方案 »

  1.   

    这样有必要吗》为什么一开始不要click事件?
      

  2.   

    to alexzhang00(三角猫(sjcatsoft)) 
    道理我知道阿,可是怎么弄呢?我知道delphi的方法是:
    mybotton := TButton.Create(nil);
    mybotton.parent := form1;
    mybotton.onClick := mybuttonclick;//(mybuttonclick为事先定义好的事件)
    就可以了,但现在要用VB,各位大虾多多指教啊。
      

  3.   

    咔咔
    问题解决了
    Private WithEvents gAdodc As AdodcPrivate Sub gAdodc_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
        MsgBox pRecordset.Fields("name")
    End SubPrivate Sub Form_Load()
        Set gAdodc = Adodc1
    End Sub