Обмен данными

Перетаскивание данных (тексты, рисунки, таблицы, деревья файлов и т.д.) с использованием OLE

Имеется возможность перетаскивать наборы данных (тексты, рисунки, таблицы, деревья файлов и т.д.) с применением OLE. При этом различают перемещение данных (после перемещения данные в источнике удаляют) и копирование данных. Для обеспечения перетаскивания действия (начало перетаскивания, сбрасывание) должны быть запрограммированы. Рассматриваются два объекта: источник - OLEDrag и приeмник - OLEDrop. В случае автоматического перетаскивания свойствам OLEDragMode, OLEDropMode элементов управления, например,

TextBox, Image должно быть присвоено значение vbOLEDragAutomatic (в окне свойств), альтернативно (ручное перетаскивание) - vbManual. Установки свойств OLEDragMode/OLEDropMode могут быть сделаны и программным путeм.

Ниже рассматриваются параметры объекта DataObject, содержащего перетаскиваемые данные. Он фигурирует в процедурах обработки событий, в которые передаeтся параметр Data (см. код). Объект (аналогичен объекту Clipboard) имеет 4 метода:

Ниже приводится перечень параметров элементов управления, обеспечивающих перетаскивание, затем даeтся практическая работа 42 для усвоения материала:

Метод: OLEDrag - начать перетаскивание,

Свойства: OLEDragMode/OLEDropMode - установить элемент управления в качестве источника/приeмника, OLEDropAllowed - установить разрешение сбрасывания OLE в контейнере.

События: OLEDragDrop происходит при сбрасывании-OLE в контейнер OLE, синтаксис:

Private Sub Object_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Singlе, y As Single). Здесь:

OLEDragOver происходит при перемещении одного объекта над другим, OLEGiveFeedback происходит после события OLEDragOver ; может быть использовано для создания визуальных признаков действий, OLEStartDrag происходит или для источников с ручным режимом перетаскивания или при инициализации автоматического перетаскивания, OLESetData происходит для источника после применения приeмником метода GetData, OLECompleteDrag происходит после перемещения объекта из источника в приeмник.

Практическая работа 42. Перетаскивание данных

Последовательность действий:

' установить требуемый формат данных
Private Sub Image1_OLEStartDrag(Data As DataObject, AllowedEffects As Long) 
Data.SetData Image1.Picture, vbCFBitmap
End Sub

' копировать/переместить в требуемом формате
Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As _
Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift > 0 Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectMove
End If
Image1.Picture = Data.GetData(vbCFBitmap)
End Sub

Private Sub Image2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Data.SetData Image2.Picture, vbCFBitmap
End Sub

Private Sub Image2_OLEDragDrop(Data As DataObject, Effect As _
Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift > 0 Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectMove
End If
Image2.Picture = Data.GetData(vbCFBitmap)
End Sub

Программирование объектов; продолжение

Программирование объектов обеспечивает приложениям возможность предоставлять свои объекты в распоряжение средств разработки и других приложений. Visul Basic позволяет проводить работу с объектами с помощью их (объектов) методов или установки/чтения их свойств, например:

seinObjekt.Bold = True ' форматировать текст
seinObjekt.SaveAs = "A:\txt.doc" ' сохранить текст

при этом программируемый объект seinObjekt был заранее создан.

Visual Basic позволяет создавать новые объекты и работать с имеющимися в приложениях Microsoft. Функции CreateObject/GetObject используются для создания нового объекта/получения существующего из другого приложения. Ключевое слово New используется для создания объекта некоторого класса, примеры:

Set ExcelWorksheet = GetObject("SHEET5.XLS") - стартовать Excel и открыть лист уже существующий, Dim x As New Field - описание нового объекта.

Приложения Microsoft предоставляют в распоряжение сотни объектов. Object Browser позволяет просмотреть их свойства, методы и события; можно получить также их краткое описание, выполнить поиск. При использовании в проекте объектов из другого приложения нужно сделать ссылку на библиотеку типов этого приложения.

Практическая работа 43. Работа с объектом - экземпляр приложения Word: создание файла, запись текста и т.д.

Задание: создать программно экземпляр приложения Word; создать файл, ввести тест, сохранить файл. После создания объектной переменной этого типа с использованием свойств и методов объекта пользователь получает доступ к многим функциям Word.

Последовательность действий:

Private Sub cmd1_Click()
Dim str As String ' описание переменной для работы с текстом 
' с использованием ключевого слова New создать объектную 
' переменную (ссылка проводится на объект Word.Application - 
' экземпляр приложения Word)
Dim edi As New Word.Application 
' присвоить переменной значение: текст, 
' вводимый в текстовое ' поле
str = txt1.Text 
' создать новый документ Word (Documents - дочерний 
' объект по отношению к объекту Word.Application)
edi.Documents.Add 
' вставить в документ Word (метод Type) текст из
' текстового поля 
edi.Selection.Type Text (str) 
' cохранить документ
edi.ActiveDocument.SaveAs FileName:="A:\nnn.doc" 
' закрыть документ
edi.ActiveDocument.Close 
edi.Application.Quit ' закрыть приложение
Set edi = Nothing ' очистить объектную переменную
End Sub

Практическая работа 44. Использование объектов Excel и Access: результаты SQL-запроса передать средствами языка программирования для дальнейшей математической обработки в Excel

' Средствами DAO, см. процедуру cmd1_Click(), выполня-
' ется работа с таблицей nin2 базы данных nin1.mdb и 
' имена полей таблицы, (см. цикл For Next), заносятся в
' поле списка lst. Далее пользователь должен выбрать
' поля таблицы для переноса в приложение Excel
Private Sub cmd1_Click()
Dim ws As Workspace, db As Database 
Dim tdef As TableDef, i As Integer
lst.Clear
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("A:\nin1.mdb")
Set tdef = db.TableDefs("nin2")
For i = 0 To tdef.Fields.Count - 1
lst.AddItem tdef.Fields(i).Name
Next i
db.Close: ws.Close
End Sub
' программируется передача таблицы из Access в Excel.
' Cначала объявляются новые объекты Excel, затем - DAO
Private Sub cmd2_Click()
' объект Excel.Application содержит коллекцию Workbooks
Dim xla As New Excel.Application 
' объект Workbook содержит коллекцию Worksheet
Dim xlb As New Excel.Workbook 
' объект Worksheet содержит ячейки
Dim xls As New Excel.Worksheet 
' объект Range - непрерывный набор ячеек
Dim xlr As Excel.Range
Dim ws As Workspace, db As Database, rs As Recordset 
Dim i As Integer, j As Integer, k As Integer, rc As Integer
Dim r As Integer, c As Integer
' описание массива полей таблицы базы данных, выделенных 
' пользователем в поле lst после старта проекта и 
' щелчка на кнопке Access
Dim masFields() As String
' определить выделенные пользователем в поле списка 
' lst поля (таблицы базы данных) для переноса в Excel и
' определить размерность массива masFields() 
' для их (выделенных полей) хранения (ReDim - 
' изменить размерность массива)
For i = 0 To lst.ListCount - 1
If lst.Selected(i) = True Then j = j + 1
Next i
ReDim masFields(j - 1)
' занести данные в массив masFields(j) из поля
' списка (свойство ListCount содержит число 
' элементов списка)
j = 0
For i = 0 To lst.ListCount - 1
If lst.Selected(i) = True Then masFields(j) = lst.List(i): j = j + 1
Next i
' создать рабочее пространство, открыть базу данных
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("A:\nin1")
' создать объекты Excel (экземпляр книги и листа) и 
' активизировать лист Excel
Set xlb = xla.Workbooks.Add
Set xls = xlb.Worksheets.Add
xls.Activate
' в цикле For : Next перебрать выбранные пользователем и 
' занесeнные ранее в массив поля. Для каждого поля 
' формируется SQL-запрос. Далее просматривается 
' весь набор записей для определения количества 
' соответствующих записей
For i = 0 To UBound(masFields)
Set rs = db.OpenRecordset("SELECT nin2."  masFields(i)  " _
FROM nin2")
rs.MoveLast: rs.MoveFirst
' выбрать номера столбцов таблицы Excel, где будут 
' размещены выбранные данные. В первую строку поместить 
' названия полей. Ячейки первой строки делаются 
' объектом xlr и выделяются
c = i + 1 
xls.Cells(1, c) = masFields(i)
Set xlr = xls.Cells(1, c)
xlr.Select
xlr.Font.Bold = True
' ограничить набор данных некоторым числом (например, 10) 
If rs.RecordCount > 10 Then rc = 10 Else rc = rs.RecordCount
' в тот же столбец таблицы (аргумент с) перенести 
' все записи. Далее (цикл For i : Next i) - возврат к 
' началу цикла для перебора всех полей
For r = 2 To rc + 1
xls.Cells(r, c) = rs(masFields(i))
rs.MoveNext
Next r
Next i
' сообщение пользователю о передаче данных в Excel; 
' вопрос о необходимости сохранения их в файле, ввод в 
' диалоговом режиме имени файла; сообщение о 
' сохранении/несохранении файла; закрыть объект - 
' приложение Excel. Синтаксис функции MsgBox дан
' после кода
If MsgBox("I have transported the Access data "  "to an Excel." _
vbCrLf  vbCrLf  "Do you want to save ?", vbQuestion  _
vbYesNo) = vbYes Then
cdlg.FileName = ""
cdlg.ShowSave
xls.SaveAs (cdlg.FileName)
MsgBox "Data has been saved to file:"  vbCrLf  vbCrLf _
cdlg.FileName, vbInformation, "Data has been saved"
Else
MsgBox "Data has not been saved!", vbCritical, "Data has not been saved!"
End If
xlb.Saved = True
xla.Quit
End Sub

Пояснения. Функция MsgBox. При выполнении программы иногда бывает нужно в диалоговом режиме сделать некоторый выбор и, таким образом, определить дальнейший путь выполнения программы. В этом случае может применяться функция MsgBox (), при этом во время выполнения программы выводится диалоговое окно вида, данного, например, на рис. 6.10

Возвращаемое функцией MsgBox значение присваивается переменной целого типа.

Упрощeнный синтаксис функции: MsgBox(Prompt[, Buttons][, Title]), здесь:

Пример: MsgBox("A Happy New Millennium !!!", vbOKOnly + vbExclamation, "MsgBox()-Study") После ответного действия пользователя возвращается код, по которому можно определить кнопку, нажатую пользователем, табл. 6.4.

При работе с функцией MsgBox после ввода имени функции, пробела/открывающейся скобки выводится всплывающая подсказка, содержащая синтаксис функции. После набора сообщения пользователя - Prompt и ввода символа "запятая" выводится окно со списоком констант; можно выбрать требуемую из списка (для этого нужно использовать сочетание клавиш CTRL и Enter) или ввести константу вручную. Из всплывающего списка после ввода символа + можно выбрать следующую константу. Возвращаемое функцией значение может использоваться для управления ходом выполения программы.

Пример: переменной ккКК присваивается возвращаемое функцией значение, это значение используется далее:

kkKK = MsgBox("Do you work ?", vbYesNoCancel + vbExclamation, "MsgBox()-Study")
If kkKK = vbYes Then
Form1.Print "He works !!"
ElseIf kkKK = vbNo Then
Form1.Print "He does not work !!"
Else: Form1.Print "He won't work !!"
End If

Если возвращаемое функцией значение не используется, то используется другой синтаксис, скобки опускаются; пример: MsgBox "Kindest regards and best wishes !", 0, "regards"

Обмен данными

ActiveX - это набор технологий, используемых для обеспечения эффективной работы приложений типа клиент-сервер . ActiveX - часть модели COM - Component Object Model (модель многокомпонентных объектов) и обеспечивает для COM интерфейс, работающий в разнородных средах. Совокупность ActiveX (см. окно Новый проект рис. 6.11) содержит, среди прочего, следующие компоненты:

При создании проекта, реализуемого как исполняемый компонент - ActiveX.EXE (см. окно Новый проект рис. 6.11), создаeтся модуль класса, рис. 6.12

Может быть реализована также и динамическая библиотека ActiveX.DLL (см. следующую пиктограмму на рис. 6.11). Динамические библиотеки загружаются в область памяти программы-клиентa, использующей их в данный момент (клиент должен загрузить собственную копию компонента), в то время как исполняемый ActiveX-компонент работает как приложение в своей области памяти. Аналогично, документы ActiveX можно выполнять или как исполняемые или как динамические библиотеки. Схема проекта в обоих случаях содержит по умолчанию один компонент - UserDocument, который сходен с формой. Документ выполняется в приложениях-контейнерах, обрабатывающих сетевые материалы; ему доступно почти всe, что и проекту Visual Basic. Объект PropertyBag может в течение одного рабочего сеанса сохранять, среди прочего, текстовые элементы документа, это удобно при частом обращении к документу.

ActiveX Control после его создания помещается на панель элементов управления Visual-Basic и может быть использован в других проектах; он может исполняться в приложениях, поддерживающих ActiveX, может быть размещён на Web-страницах. ActiveX-компонет включается в программы и расширяет возможности среды разработки. ActiveX-документы - это приложения, написанные на языке Visual Basic и работающее в приложениях, обрабатывающих сетевые материалы. Материал по теме ActiveX поддерживается практиескими работами 45 и 46.

ActiveX Control

Приводится пример создания ActiveX Control. После создания он автоматически добавляется к объектам на панели элементов управления Visual Basic и может быть использован в проекте.

Практическая работа 45. Создание ActiveX Control

Выполнить следующее:

перейти к следующему окну-ассистенту, рис 6.14(рис 6.13) Второе окно-ассистент - выбор имеющихся в наличии параметров (рис 6.14) Следующее окно-ассистент - создание собственных параметров

распределить все параметры между объектами: создаваемый элемент, поле метки, Timer, Image; для этого перейти к следующему окну-ассистенту, рис. 6.15, при этом использовать данные табл. 6.5.

Соответствие объекты - параметры

Name	Control	Member
BackColor	UserControl	BackColor
BorderStyle	UserControl	BorderStyle
Caption	Label1	Caption
ControlContainer	UserControl	ControlContainer
Resize	UserControl	Resize
Font	Label1	Font
ForeColor	Label1	ForeColor
Interval	Timer1	Interval
Stretch	Image1	Stretch
Picture	Image1	Picture

(рис 6.15) Следующее окно-ассистент

' описание переменных, используемых в процедурах,
' обеспечивающих перемещение элементов 
' управления Label1, Image1
Private Go As Integer, Go1 As Integer 
' обработка события объекта Timer
Private Sub Timer1_Timer()
GoMeinCont
End Sub
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,BackColor
Public Property Get BackColor() As OLE_COLOR
BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
UserControl.BackColor() = New_BackColor
PropertyChanged "BackColor"
End Property
Private Sub Timer2_Timer()
Go1MeinCont
End Sub
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
UserControl.BackColor = PropBag.ReadProperty("BackColor", H8000000F)
' центрировать элементы, задать начальные значения 
' переменным. Обратить внимание на использование в 
' данном случае события Initialize
Private Sub UserControl_Initialize 
Label1.Move (UserControl.Width - Label1.Width)/2, _
(UserControl.Height - Label1.Height)/2
Image1.Move (UserControl.Width - Image1.Width)/4, _
(UserControl.Height - Image1.Height)/4
Go = 1: Go1 = 2
End Sub
Private Sub UserControl_Resize() ' масштабировать объекты 
Label1.Width = (ScaleWidth - Label1.Left) 
Label1.Height = (ScaleHeight - Label1.Top) 
Image1.Width = (ScaleWidth - Image1.Left) 
Image1.Height = (ScaleHeight - Image1.Top) 
End Sub
Private Sub GoMeinCont() ' реализация перемещения
Select Case Go
Case 1: Label1.Move Label1.Left - 45, Label1.Top - 45
If Label1.Left <= 0 Then
Go = 2
ElseIf Label1.Top <= 0 Then
Go = 4
End If
Case 2: Label1.Move Label1.Left + 45, Label1.Top - 45
If Label1.Left >= (UserControl.Width - Label1.Width) Then
Go = 1
ElseIf Label1.Top <= 0 Then
Go = 3
End If
Case 3: Label1.Move Label1.Left + 45, Label1.Top + 45
If Label1.Left >= (UserControl.Width - Label1.Width) Then
Go = 4
ElseIf Label1.Top >= (UserControl.Height - Label1.Height) Then
Go = 2
End If
Case 4: Label1.Move Label1.Left - 45, Label1.Top + 45
If Label1.Left <= 0 Then
Go = 3
ElseIf Label1.Top >= (UserControl.Height - Label1.Height) Then
Go = 1
End If
End Select
End Sub
Private Sub Go1MeinCont()
Select Case Go1
Case 1: Image1.Move Image1.Left - 60, Image1.Top - 60
If Image1.Left <= 0 Then
Go1 = 2
ElseIf Image1.Top <= 0 Then
Go1 = 4
End If
Case 2: Image1.Move Image1.Left + 60, Image1.Top - 60
If Image1.Left >= (UserControl.Width - Image1.Width) Then
Go1 = 1
ElseIf Image1.Top <= 0 Then
Go1 = 3
End If
Case 3: Image1.Move Image1.Left + 60, Image1.Top + 60
If Image1.Left >= (UserControl.Width - Image1.Width) Then
Go1 = 4
ElseIf Image1.Top >= (UserControl.Height - Image1.Height) Then
Go1 = 2
End If
Case 4: Image1.Move Image1.Left - 60, Image1.Top + 60
If Image1.Left <= 0 Then
Go1 = 3
ElseIf Image1.Top >= (UserControl.Height - Image1.Height) Then
Go1 = 1
End If
End Select
End Sub

ActiveX Document.DLL

Приложения Visual Basic ActiveX Document выполняются в контейнере - приложении, обрабатывающем сетевые материалы. ActiveX Document обладает большими функциональными возможностями, например, применение ActiveX Document'a может предоставить внешнему пользователю сети доступ к локальным базам данных.

Практическая работа 46. ActiveX Document.DLL

Здесь создаeтся документ ActiveX Document.DLL, в котором используем доступ к данным посредством элемента управления Data с выводом их в поле элемента управления MSFlexGrid; тогда имеется возможность предоставить доступ к локальным базам данных пользователю сети. Документы ActiveX инициализируются (в отличие от формы) в процедуре UserDocument_Initialize (). В примере используем материалы практической работы 28 (доступ к данным с выводом результатов в поле элемента управления MSFlexGrid).

Последовательность действий:

Private Sub UserDocument_Initialize()
Dim i As Integer
CommonDialog1.FileName = ""
CommonDialog1.Action = 1
Data1.Connect = ""
Data1.DatabaseName = CommonDialog1.FileName
Data1.Refresh
For i = 0 To Data1.Database.TableDefs.Count - 1
Combo1.AddItem (Data1.Database.TableDefs(i).Name)
Next i
Combo1.Text = ""
Data1.RecordSource = Text1.Text
Data1.Refresh
End Sub

' SQL-запрос, вводимый в текстовое поле, присваивается 
' свойству RecordSource
Private Sub Command1_Click() 
Data1.RecordSource = Text1.Text
Data1.Refresh
End Sub