1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
foolishtiger 2001-11-16
- 打赏
- 举报
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-16
'Description:要试用本例请在窗体中填加一个按钮和其他用来测试的控年
' 然后在代码窗体中粘贴如下代码
' Good luck!
Option Explicit
Private Sub Command1_Click()
Dim ctlEach As Control
For Each ctlEach In Me.Controls
MsgBox ctlEach.Name
Next
End Sub
'
' Author:吴文智
' Date:2001-11-16
'Description:要试用本例请在窗体中填加一个按钮和其他用来测试的控年
' 然后在代码窗体中粘贴如下代码
' Good luck!
Option Explicit
Private Sub Command1_Click()
Dim ctlEach As Control
For Each ctlEach In Me.Controls
MsgBox ctlEach.Name
Next
End Sub
