Как очистить буфер обмена в Access 2003

@pvik1970 · Регистрация: 10.04.2007

Студворк — интернет-сервис помощи студентам

Вот тут встал еще один вопрос:

Мне при нажатии на кнопку нужно очищать буфер обмена. Смотрю, в книгах ентого нет.

Спасобо за помощь. Если будет фрагмент кода очень хорошо....

@Alexey Spirin · 24.04.2007, 20:08

CLipboard.clear, по идее.

@pvik1970 · 24.04.2007, 21:57 **[ТС]**

Не.... Кричит: Объект не найден. Может надо какую-то библиотеку подключить? Или правильно строку написать. Подскажите плиз. Спасибо.

@BoNiM · 25.04.2007, 02:57

Мне кажется, что без API функций здесь не обойтись. Поместите все нижерасположенное в стандартный модуль и вызывайте, при необходимости, функцию ClipboardEmpty.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
 
' Пользовательская функция
Public Function ClipboardEmpty() As Boolean
'Возвращает True - буфер очищен, False - нет.
Dim l As Long, i As Long
  l = OpenClipboard(0&)
  If l <> 0 Then
    l = EmptyClipboard()
    i = CloseClipboard()
  End If
  ClipboardEmpty = (l <> 0)
End Function

@pvik1970 · 25.04.2007, 17:12 **[ТС]**

Вставил этот код модуль, но как ее вызывать? Пробую через Application.run..., не получается.. Вот есть просто форма и на ней кнопка "очистить". Вот подскажите как из кнопки вызвать? Спасибо.

@BoNiM · 25.04.2007, 18:21

В процедуру обработки события «Нажатие кнопки» (Click) кнопки поместите, например, такой код:

If Not ClipboardEmpty() Then MsgBox "Буфер обмена не очищен"

@pvik1970 · 25.04.2007, 18:45 **[ТС]**

Это просто проверка состояния буфера. А мне надо команду его очистки. Вот как просто это реализовать.....?

@BoNiM · 25.04.2007, 19:29

Это и есть функция очистки буфера. В некоторых случаях, например буфер открыт другим окном, очистка не выполниться, о чем и говорим в MsgBox. Если Вас не устраивает сообщение, то можете вместо "Буфер обмена не очищен" записать "Буфер обмена не удалось очистить"

А Вы проверили работоспособность этой функции?

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@pvik1970 0 / 0 / 0 Регистрация: 10.04.2007 Сообщений: 44

	Как очистить буфер обмена в Access 2003 24.04.2007, 18:17. Показов 5177. Ответов 7 Метки нет (Все метки) Вот тут встал еще один вопрос: Мне при нажатии на кнопку нужно очищать буфер обмена. Смотрю, в книгах ентого нет. Спасобо за помощь. Если будет фрагмент кода очень хорошо.... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	24.04.2007, 20:08
	CLipboard.clear, по идее. 0

@pvik1970 0 / 0 / 0 Регистрация: 10.04.2007 Сообщений: 44
	24.04.2007, 21:57 [ТС]
	Не.... Кричит: Объект не найден. Может надо какую-то библиотеку подключить? Или правильно строку написать. Подскажите плиз. Спасибо. 0

@pvik1970 0 / 0 / 0 Регистрация: 10.04.2007 Сообщений: 44
	25.04.2007, 17:12 [ТС]
	Вставил этот код модуль, но как ее вызывать? Пробую через Application.run..., не получается.. Вот есть просто форма и на ней кнопка "очистить". Вот подскажите как из кнопки вызвать? Спасибо. 0

@BoNiM 7 / 7 / 1 Регистрация: 06.12.2006 Сообщений: 329
	25.04.2007, 18:21
	В процедуру обработки события «Нажатие кнопки» (Click) кнопки поместите, например, такой код: If Not ClipboardEmpty() Then MsgBox "Буфер обмена не очищен" 0

@pvik1970 0 / 0 / 0 Регистрация: 10.04.2007 Сообщений: 44
	25.04.2007, 18:45 [ТС]
	Это просто проверка состояния буфера. А мне надо команду его очистки. Вот как просто это реализовать.....? 0

@BoNiM 7 / 7 / 1 Регистрация: 06.12.2006 Сообщений: 329
	25.04.2007, 19:29
	Это и есть функция очистки буфера. В некоторых случаях, например буфер открыт другим окном, очистка не выполниться, о чем и говорим в MsgBox. Если Вас не устраивает сообщение, то можете вместо "Буфер обмена не очищен" записать "Буфер обмена не удалось очистить" А Вы проверили работоспособность этой функции? 0