文件名称：vb菜单联动
文件大小：11KB
文件格式：RAR
更新时间：2018-09-11 17:27:32
tag
vb菜单联动Private Sub close_Click() On Error Resume Next '循环语句 For Each main In Forms If main.MDIChild = True Then Unload main End If Next Dim FNum As Integer Dim strfilename As String Dim i As Integer FNum = FreeFile strfilename = App.Path & "\cdxx.ini" If Dir(strfilename) <> "" Then Kill strfilename Open strfilename For Output As #FNum For i = 1 To mnufilelist.Count - 1 Print #FNum, mnufilelist(i).Caption Next Close #FNum Exit Sub End Sub
【文件预览】：
001
----main.frx(6KB)
----工程1.vbp(800B)
----MSSCCPRJ.SCC(190B)
----main.frm(4KB)
----cdxx.ini(190B)
----main_frm.frm(480B)
----工程1.vbw(102B)
----带历史信息的菜单.exe(36KB)