ACCESS中實(shí)現(xiàn)VB索引調(diào)用的簡單例子

andymark

        網(wǎng)友在http://m.mzhfr.cn/thread-107144-1-1.html  中提出能否實(shí)現(xiàn)用CALL 調(diào)用帶變量的過程名稱，這里做了個(gè)簡單的示例

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
    

復(fù)制代碼