如下：
Private Sub 物料管理_Click()
dim s as string

s="物料管理"  '单机时如何自动读取到菜单名称


End Sub

Private Sub 物料管理_Click()
Dim s As String
s = 物料管理.Name
Text1.Text = s
End Sub

看你的代码 : “物料管理”  既是菜单标题,又是名称, 菜单的名称在程序中是对象, 因此是 s = 物料管理.Name, s 就是菜单标题。

[此贴子已经被作者于2018-10-21 22:28编辑过]

谢谢！想得到如下：

表述：有多个Click事件，可能是物料管理、可能是仓库管理、或者是其他

当Click事件时，判断事件是哪一个管理，赋值给 S

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub getname()
    Dim str As String
    str = Space(255)
    GetWindowText Me.ActiveControl.hwnd, str, 255
    Print str
End Sub

没明白你的意图，这个获取控件名有什么关系
你要判断哪个事件，可以建个控件数组，通过索引就可以识别控件，并执行相应的事件，game over
貌似获取控件名没什么用途吧，不晓得理解正确么

知识有限，仅供参考，希望对你有帮助

[此贴子已经被作者于2018-10-22 13:28编辑过]

不是一样吗？

Private Sub 菜单1_Click()
Dim s As String
s = 菜单1.Name
Text1.Text = s
End Sub
Private Sub 菜单2_Click()
Dim s As String
s = 菜单2.Name
Text1.Text = s
End Sub
'............
Private Sub 菜单n_Click()
Dim s As String
s = 菜单n.Name
Text1.Text = s
End Sub