94 lines
2.0 KiB
Plaintext
94 lines
2.0 KiB
Plaintext
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
|