Visual Basic 6. Руководство разработчика


Программирование операции перетаскивания для вставки объектов - часть 4


RichTextBox1.OLEObjects.Add, , Data.GetData(vbCFDIB)

GoTo PasteDone

End If

Единственный выход из данной ситуации который можно предложить - на мгновение переключить свойство OLEDropMode элемента управления RichTextBox в состояние Automatic, а затем вернуть его в состояние Manual. Первое действие должно происходить в обработчике события OLEStartDrag элемента управления PictureBox.

Private Sub Picture1_OLEStartDrag(Data As Data0bject, _

AllowedEffects As Long)

RichTextBox1.OLEDropMode = rtfOLEDropAutomatic

End Sub

После того как операция переноса завершена можно установить исходное значение свойства OLEDropMode элемента управления. Это действие должно выполняться в обработчике события OLECompleteDrag элемента управления TextBox, которое сигнализирует об окончании OLE-операции перетащить-и-опустить:

Private Sub Picture1.OLECopmpleteDrag(Effect As Long)

RichTextBox1.OLEDropMode =  rtfOLEDropManual

End Sub

OLE-операции перетащить и-опустить аналогичны обычным операциям такого типа но они могут быть несколько более сложными из-за разнообразия объектов, которые могут переносить. Получатель (элемент управления) должен быть в состоянии распознать тип переносимого объекта, чтобы обработать его. Способность обнаруживать перемещение файлов на форму Visual Basic означает, что вы можете создавать приложения, которые способны взаимодействовать с рабочим столом (получать файлы, помещенные пользователем, обрабатывать их, перемещать их в различные папки и т. п.). OLE операции перетащить-и-опустить — очень интересная возмож­ность, которую в дальнейшем, вы можете изучить самостоятельно, обратившись к справочной системе Visual Basic.




Начало  Назад  Вперед