| |
|
|
| | Нужно привязать к кнопке обработку события чтобы:
1) можно было вставить в поле OLE (imaje) картинку из буфера обмена
2) нужно проверить перед вставкой, что за объект находится в буфере (годится ли для вставки?).
какой модуль нужно подсоединить, какими функциями пользоваться
можно кратко
спасибо | |
| |
| |
| |
|
|
| | Private Sub Form_Click ()
' Define bitmap formats.
Dim ClpFmt, Msg ' Declare variables.
On Error Resume Next ' Set up error handling.
If Clipboard.GetFormat(vbCFText) Then ClpFmt = ClpFmt + 1
If Clipboard.GetFormat(vbCFBitmap) Then ClpFmt = ClpFmt + 2
If Clipboard.GetFormat(vbCFDIB) Then ClpFmt = ClpFmt + 4
If Clipboard.GetFormat(vbCFRTF) Then ClpFmt = ClpFmt + 8
Select Case ClpFmt
Case 1
Msg = "The Clipboard contains only text."
Case 2, 4, 6
Msg = "The Clipboard contains only a bitmap."
Case 3, 5, 7
Msg = "The Clipboard contains text and a bitmap."
Case 8, 9
Msg = "The Clipboard contains only rich text."
Case Else
Msg = "There is nothing on the Clipboard."
End Select
MsgBox Msg ' Display message.
End Sub
и можно почитать про Clipboard | |
| |
| |
| |
|
|
| | ДрЮня, с VB не путаешь? вроде в MSA нет объекта Clipboard. | |
| |
| |
| |
|
|
| | в общем-то, да
пример из MSDN-а
думал, что и в аксесе можно ... | |
| |
| |
| |
|
|
| | сам не раз накалывался  | |
| |
| |
| |
|
|
| | если нет, то должен быть в какой-нибудь библиотеке.
кто знает где?
ешчо раз спасибо! | |
| |
| |
| |
 6 Кб. |
|
| | Писать в буфер и читать из него можно с помощью API функций: OpenClipboard GetClipboardData и еще 10 штук. В прицепе модуль класса с этими функциями. Импортируйте и работайте.
Кроме того у элементов "Рисунок" и "...рамка объекта" есть св-во Action. Среди команд, которые можно выполнить есть Copy и Paste. Возможно это то, что вам нужно. | |
| |
| |
