vb菜单联动下载

[weixin_39821260]

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(str
相关下载链接：//download.csdn.net/download/qq_28223389/9036875?utm_source=bbsseo