呵呵,看看下面这段代码,搞定
Private Sub Command1_Click()
Dim a As Control
Dim i As Integer
For Each a In Me.Controls
If TypeOf a Is Menu Then
Me.Print a.Name & "菜单显示" & a.Caption
i = i + 1
End If
Next a
MsgBox "共有" & i & "个菜单"
End Sub
Private Sub Command1_Click()
Dim a As Control
Dim i As Integer
For Each a In Me.Controls
If TypeOf a Is Menu Then
Me.Print a.Name & "菜单显示" & a.Caption
i = i + 1
End If
Next a
MsgBox "共有" & i & "个菜单"
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货