一个可以显示历史的菜单 Option Explicit Dim main As New main_frm Public max_index As Integer Public myindex As Integer 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 I
The original gallery has been taken from http://www.aaronbirchphotography.com and updated with an XML parser that automatically reads images from a folder, creates the according thumb- nails, reads the EXIF informations of the JPG's and writes all t
