VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SelectSourceDlg 
   Caption         =   "Документы Word"
   ClientHeight    =   4965
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   4560
   OleObjectBlob   =   "SelectSourceDlg.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "SelectSourceDlg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public bCanceled As Boolean
Private m_ExcelDB As Excel.Workbook

Private Sub UserForm_Initialize()
  bCanceled = True
  
  Dim TopOffset&
  Dim LeftOffset&
   
  TopOffset = (Application.UsableHeight / 2) - (Me.Height / 2)
  LeftOffset = (Application.UsableWidth / 2) - (Me.Width / 2)
   
  Me.StartUpPosition = 0
  Me.Top = Application.Top + TopOffset
  Me.Left = Application.Left + LeftOffset
End Sub

Public Function SetSelect(sRes$)
  Dim nCount&
  Dim i&
  nCount = ListBox1.ListCount
  For i = 0 To nCount - 1
    ListBox1.Selected(i) = ListBox1.List(i) = sRes
  Next i
End Function

Public Function GetSelectedText() As String
  Dim i&
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      GetSelectedText = ListBox1.List(i)
      Exit Function
    End If
  Next i
End Function

Public Function GetSelectedID() As Long
  Dim i&
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
      GetSelectedID = i + 1
      Exit Function
    End If
  Next i
End Function


Public Function Init(nameList As Collection)
  bCanceled = True
  
  ListBox1.Clear
  Dim i&
  Dim aText$
  For i = 1 To nameList.Count
    aText = nameList.Item(i)
    Call ListBox1.AddItem(aText)
  Next i
End Function

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Call OkBtn_Click
End Sub

Private Sub SelectSource_Activate()
  bCanceled = True
End Sub

Private Sub OkBtn_Click()
  bCanceled = False
  Me.Hide
End Sub

Private Sub CancelBtn_Click()
  bCanceled = True
  Me.Hide
End Sub