home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 October / INTERNET108.ISO / pc / software / windows / building / xmlspy / xmlspyentcomplete5.exe / Data1.cab / _92984FE6617349C89042C603A49363FA (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-08-29  |  3.3 KB  |  119 lines
  1. VERSION 5.00
  2. Begin VB.Form DlgWalkDocs 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "List of open documents"
  5.    ClientHeight    =   3030
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   5025
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3030
  13.    ScaleWidth      =   5025
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.CommandButton BtnCloseDoc 
  16.       Caption         =   "Close document"
  17.       Height          =   375
  18.       Left            =   3600
  19.       TabIndex        =   4
  20.       Top             =   840
  21.       Width           =   1335
  22.    End
  23.    Begin VB.CommandButton BtnSetActive 
  24.       Caption         =   "Set as Active"
  25.       Height          =   375
  26.       Left            =   3600
  27.       TabIndex        =   3
  28.       Top             =   360
  29.       Width           =   1335
  30.    End
  31.    Begin VB.ListBox ListDocs 
  32.       Height          =   2595
  33.       Left            =   120
  34.       TabIndex        =   1
  35.       Top             =   360
  36.       Width           =   3255
  37.    End
  38.    Begin VB.CommandButton OKButton 
  39.       Caption         =   "Close"
  40.       Height          =   375
  41.       Left            =   3600
  42.       TabIndex        =   0
  43.       Top             =   2520
  44.       Width           =   1335
  45.    End
  46.    Begin VB.Label Label1 
  47.       Caption         =   "Documents:"
  48.       Height          =   255
  49.       Left            =   120
  50.       TabIndex        =   2
  51.       Top             =   120
  52.       Width           =   3255
  53.    End
  54. Attribute VB_Name = "DlgWalkDocs"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60. Private Sub BtnCloseDoc_Click()
  61.     Dim objDoc As Document
  62.     Set objDoc = FindSelectedDoc
  63.     If Not (objDoc Is Nothing) Then
  64.         objDoc.Close True
  65.         SetListBox
  66.     End If
  67. End Sub
  68. Private Sub BtnSetActive_Click()
  69.     Dim objDoc As Document
  70.     Set objDoc = FindSelectedDoc
  71.     If Not (objDoc Is Nothing) Then
  72.         objDoc.SetActiveDocument
  73.     End If
  74. End Sub
  75. Private Sub Form_Activate()
  76.     SetListBox
  77. End Sub
  78. Private Sub ListDocs_Click()
  79.     EnDisBtns
  80. End Sub
  81. Private Sub OKButton_Click()
  82.     Hide
  83. End Sub
  84. Private Sub SetListBox()
  85.     ListDocs.Clear
  86.     If Not (objSpy Is Nothing) Then
  87.         Dim objDocs As Documents
  88.         Dim objDoc As Document
  89.         
  90.         Set objDocs = objSpy.Documents
  91.         
  92.         For Each objDoc In objDocs
  93.             ListDocs.AddItem objDoc.Title
  94.         Next
  95.     End If
  96.     EnDisBtns
  97. End Sub
  98. Private Sub EnDisBtns()
  99.     If ListDocs.ListIndex < 0 Then
  100.         BtnCloseDoc.Enabled = False
  101.         BtnSetActive.Enabled = False
  102.     Else
  103.         BtnCloseDoc.Enabled = True
  104.         BtnSetActive.Enabled = True
  105.     End If
  106. End Sub
  107. Private Function FindSelectedDoc() As Document
  108.     Dim objDocs As Documents
  109.     Dim objDoc As Document
  110.     Set objDocs = objSpy.Documents
  111.     For Each objDoc In objDocs
  112.         If objDoc.Title = ListDocs.List(ListDocs.ListIndex) Then
  113.             Set FindSelectedDoc = objDoc
  114.             Exit Function
  115.         End If
  116.     Next
  117.     Set FindSelectedDoc = Nothing
  118. End Function
  119.