VB初学者的简单问题，请不吝赐教，谢谢

我对控件定义的事件  
  能不能用代码赋值？  
   
  比如，我在一开始不要click事件，  
  通过一定的事件，动态把一个函数赋给一个按钮的click事件？ 问题点数：100、回复次数：6Top

1 楼xzp1030（山角）回复于 2003-11-04 14:12:46 得分 40

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

2 楼Rick110AAA（海牛猪猪 And HerosⅢ之比蒙）回复于 2003-11-04 14:15:29 得分 10

帮你UPTop

3 楼zooro（Xelloss）回复于 2003-11-04 14:17:24 得分 0

因为我的按钮也是需要动态生成的  
  所以没办法在设计时加上事件。  
  Top

4 楼alexzhang00（三角猫）回复于 2003-11-04 14:31:41 得分 50

生成按钮的时候，可以一并生成事件的代码，这样就可以了Top

5 楼zooro（Xelloss）回复于 2003-11-04 15:19:52 得分 0

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

6 楼zooro（Xelloss）回复于 2003-11-04 15:36:06 得分 0

咔咔  
  问题解决了  
  Private   WithEvents   gAdodc   As   Adodc  
   
  Private   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   Sub  
   
  Private   Sub   Form_Load()  
          Set   gAdodc   =   Adodc1  
  End   Sub  
   
  Top

相关问题

• mybotton
• gadodc
• 事件
• 按钮
• byval
• click
• sub
• as adodb

• 帖主：zooro
• xzp1030
• Rick110AAA
• alexzhang00

• Visual Basic类图书
• Visual Basic类源码下载