MyTetra Share
Делитесь знаниями!
Пример работы с буфером обмена
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 18 Примеры и Прочее

Пример работы с буфером обмена


Простенький пример работы с буфером обмена



Private Sub FromBase_Click()

'Копируем из левого поля в правое

'es - 26.11.2012

'---------------------------------------------------------------------------------------

On Error GoTo FromBase_Click_Err

Me!fldPictureOne.Action = acOLECopy

Me!fldPictureOne = Null

Me!fldPictureTwo.Action = acOLEPaste



FromBase_Click_Bye:

Exit Sub


FromBase_Click_Err:

'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure FromBase_Click", vbCritical, "Error!"

Resume FromBase_Click_Bye

End Sub


Private Sub ToBase_Click()

'Копируем из правого поля в левое

'es - 26.11.2012

'---------------------------------------------------------------------------------------

On Error GoTo ToBase_Click_Err

Me!fldPictureTwo.Action = acOLECopy

Me!fldPictureTwo = Null

Me!fldPictureOne.Action = acOLEPaste



ToBase_Click_Bye:

Exit Sub


ToBase_Click_Err:

'MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure ToBase_Click", vbCritical, "Error!"

Resume ToBase_Click_Bye

End Sub



01. Копируем в буфер картинку из одного места


Picture


02. ... и вставляем в другое место ...


Picture





Скачать


MSA-2003 ( 41 kB)


Прикрепленные файлы:
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования