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

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

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)