Очистка буффера обмена
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Morgot
- Начинающий
- Сообщения: 18
- Зарегистрирован: 07.12.2006 (Чт) 12:16
Очистка буффера обмена
Morgot » 13.02.2007 (Вт) 10:05
Прошу мудрого совета. Пишу прогу, которая обрабатывает Word, во всю используя буффер обмена, а как очистить его, не знаю. Если кто может, подскажите.
- zan
- Бывалый
- Сообщения: 224
- Зарегистрирован: 24.08.2006 (Чт) 4:55
zan » 13.02.2007 (Вт) 10:33
- Код: Выделить всё
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Sub CommandButton1_Click()
Call ClearClipboard
End Sub
Public Function ClearClipboard()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 99