recent.frm

来自「不错的一个VB菜单设计 界面和功能都不错」· FRM 代码 · 共 116 行

VERSION 5.00
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#2.0#0"; "FAST2003.ocx"
Begin VB.Form frmRecent 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Recent docs..."
   ClientHeight    =   3300
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6435
   Icon            =   "Recent.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   6435
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdRefresh 
      Caption         =   "Refresh"
      Height          =   375
      Left            =   4620
      TabIndex        =   5
      Top             =   1470
      Width           =   1680
   End
   Begin VB.CommandButton cmdView 
      Caption         =   "View Recent Docs"
      Height          =   375
      Left            =   4590
      TabIndex        =   4
      Top             =   765
      Width           =   1680
   End
   Begin VB.CommandButton cmdClear 
      Caption         =   "Clear Recent Docs"
      Height          =   375
      Left            =   4590
      TabIndex        =   3
      Top             =   225
      Width           =   1680
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "Add To Recent Docs"
      Height          =   375
      Left            =   4590
      TabIndex        =   2
      Top             =   2790
      Width           =   1680
   End
   Begin VB.TextBox txtNew 
      Height          =   330
      Left            =   135
      TabIndex        =   1
      Text            =   "c:\myfile.bmp"
      Top             =   2835
      Width           =   4245
   End
   Begin VB.ListBox lstRecent 
      Height          =   2595
      Left            =   135
      TabIndex        =   0
      Top             =   135
      Width           =   4245
   End
   Begin FLWSystem.FWRecentDocs objRecentDocs 
      Left            =   5820
      Top             =   2130
      _ExtentX        =   820
      _ExtentY        =   820
   End
End
Attribute VB_Name = "frmRecent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdAdd_Click()
  If Trim(txtNew) <> "" Then
    Call objRecentDocs.Add(txtNew)
  End If
  Call MyRefresh
End Sub

Private Sub cmdClear_Click()
  Call objRecentDocs.Clear
  Call MyRefresh
End Sub

Private Sub cmdRefresh_Click()
  Call MyRefresh
End Sub

Private Sub cmdView_Click()
  Call objRecentDocs.OpenRecents
  Call MyRefresh
End Sub

Private Sub Form_Load()
  Call MyRefresh
End Sub

Private Sub MyRefresh()
  Dim objRecentDoc As FLWSystem.IFWRecentDoc
  
  Call lstRecent.Clear
  Call objRecentDocs.Refresh
  Me.Caption = objRecentDocs.Count & " doc files found"
  For Each objRecentDoc In objRecentDocs.RecentDocs
    Call lstRecent.AddItem(objRecentDoc.DisplayName & " - " & objRecentDoc.TypeName)
  Next
End Sub