ACCESS中实现VB索引调用的简单例子

andymark

        网友在http://www.office-cn.net/thread-107144-1-1.html  中提出能否实现用CALL 调用带变量的过程名称，这里做了个简单的示例

1. Private Sub Form_Load()
   
2.    Call SetupClick
   
3. End Sub
   
4. 
   
5. 
   
6. Private Function Test(Index As Integer)
   
7. 
   
8.    MsgBox Me.Controls("Cmd" & Index).Caption
   
9. 
   
10. End Function
    
11. 
    
12. 
    
13. Private Sub SetupClick()
    
14. 
    
15.   Dim I As Integer
    
16.   For I = 1 To 3
    
17.      Me.Controls("Cmd" & I).OnClick = "=Test(" & I & ")"
    
18.   Next
    
19.   
    
20. End Sub
    

复制代码