请教解释一下这个文件的代码，谢谢！

jbgy

请教各位朋友，我想自己做个自定义菜单，但是做出来效果不理想（我用宏组合做的），菜单栏上有关闭的按钮和一个文本框（里面写 请键入需要帮助的问题），现在有两个问题需要各位援手：1.帮忙解释一下相关的代码 2.怎么让菜单关联到指定的窗口（窗体1）

roych

1、实现原理：
a、主窗体的按钮和标签是重叠的，因此单击标签时其实已经单击到按钮了，但由于按钮设置为透明，因此在用户看来只是单击标签而已。
b、单击按钮后则打开菜单子窗体，并且通过子窗体的偏移、设置列表框数据源和高度等相关属性达到只显示菜单的效果。
2、部分注释：

1. '公共函数，主窗体的按钮单击事件：
   
2. '设置公共函数的好处是为了便于调用。
   
3. Private Function commandButtonClick(intIndex As Integer)
   
4. 'intIndex主要用于设置子窗体列表框的数据源。
   
5. '打开子窗体
   
6. DoCmd.OpenForm "frmSubMenu"
   
7. With Form_frmSubMenu
   
8. '移动子窗体到适当位置，当分辨率不一样的时候，可能会出现偏差。
   
9. .Move Me.WindowLeft + 230 + (intIndex - 1) * 870, Me.WindowTop + 760
   
10. '设置子窗体列表框的数据源，共计3列，但在子窗体中设置了第二、三列宽度为0，故而只显示第一列。
    
11. .List1.RowSource = "SELECT Name, type, Target FROM myMenu WHERE ParentID=" & intIndex '& ";"
    
12. '根据列表框的记录条数来设置标签高度。
    
13. .Label1.Height = .List1.ListCount * 232 '0.41 * 567
    
14. 将标签高度传递给列表框高度
    
15. .List1.Height = .Label1.Height
    
16. '设置子窗体的主体高度
    
17. .InsideHeight = .Label1.Height + 20
    
18. End With
    
19. End Function
    
20. '子窗体列表框单击事件：
    
21. Private Sub List1_Click()
    
22. '将第二、三列变量赋值给变量。
    
23.     cType = List1.Column(1)
    
24.     cTarget = List1.Column(2)
    
25.     Select Case cType
    
26. '如果第三列显示为Frm，弹出窗体名称。
    
27.         Case "Frm"
    
28.             MsgBox "打开窗体:" & cTarget
    
29. '如果第三列显示为Rpt，弹出报表名称。
    
30.         Case "Rpt"
    
31.             MsgBox "打开报表:" & cTarget
    
32. '其它参数时没写代码。自己根据实际来写啦。
    
33.         Case "Exe"
    
34.         
    
35.         Case "Obj"
    
36.         
    
37.         Case "Lnk"
    
38.         
    
39.         Case "Mdl"
    
40.         
    
41.     End Select
    
42.     Command3_Click
    
43. '主窗体获取焦点。
    
44.     Form_frmMain.SetFocus
    
45. End Sub
    
46. '子窗体按钮单击事件
    
47. Private Sub Command3_Click()
    
48. '关闭子窗体。
    
49.     DoCmd.Close acForm, "frmSubMenu"
    
50. End Sub

复制代码