谈一谈VB中Get返回对象时的效率问题(三层开发相关)

Struct_HTML类中有一个Menu属性，那么你的Struct_HTML类应该有一个Menu属性变量，假设为  
Dim  mvarMenu  as  Menu  
那么应该为  
Public  Property  Get  Menu()  As  Menu  
       if  mvarMenu  is  Nothing  then  mvarMenu=New  Menu  
       If  mvarMenu_Id  >  0  Then  
               If  Not  mvarMenu(mvarMenu_Id)  Then  
                       '错误处理：Menu没有正确初始化  
               End  If  
       Else  
               ErrMsg  =  "Struct_HTML尚未初始化"  
       End  If  
       Set  Menu=mvarMenu  
End  Property