<DELETE> 
ЭКРАН
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- Kostyan
- Постоялец
- Сообщения: 439
- Зарегистрирован: 20.09.2002 (Пт) 4:14
- Откуда: Россия, Уссурийск
Kostyan » 29.01.2004 (Чт) 1:39
- Код: Выделить всё
Call BitBlt(Me.hDC, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Height \ Screen.TwipsPerPixelY, GetDC(GetDesktopWindow), 0, 0, vbSrcCopy)
Call SavePicture(Me.Image, "C:\1.bmp")
Me.Cls
И поставь у формы свойство AutoRedraw=True
Нет ничего невозможного для человека с интеллектом.
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6