Страница: 1 | 
		
		 
			   
			 
			 Как сделать снимок экрана, сохранить его в файле и по возможности с выбором качества(8,16,32 бит)..... Хотябы как сохранить в файле.... 
			 
			 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ Private Const VK_SNAPSHOT = &H2C Private Sub Command1_Click() End Sub И на этом спасибо. И на этом спасибо, спасибо. Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: PrintScreen & Saved
     
    
Добавлено: 08.02.04 16:50
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
    
 Дмитрий Щапов
      
       
  
 
    
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 6
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа:
 boevik
![]()
![]()
![]()
![]()
![]()
![]()
Хранитель чата
ICQ: 137392264 
Вопросов: 8
Ответов: 557
      
 Web-сайт:  
 Профиль |  | #1
      
Добавлено:  08.02.04 17:12
       
    
       
  
 
    
   bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
keybd_event VK_SNAPSHOT, 1, 0, 0
Image1.Picture = Clipboard.GetData(vbCFBitmap)
SavePicture Image1.Picture, "c:\pr.bmp"
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа:
 Дмитрий Щапов
![]()
![]()
![]()
Вопросов: 71
Ответов: 321
      
 Профиль |  | #2
       
Добавлено:  09.02.04 11:19
       
    
       
  
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа:
 Дмитрий Щапов
![]()
![]()
![]()
Вопросов: 71
Ответов: 321
      
 Профиль |  | #3
       
Добавлено:  09.02.04 11:19
       
    
       
  
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа:
 dNW
![]()
![]()
![]()
![]()
![]()
![]()
![]()
Вопросов: 30
Ответов: 683
      
 Профиль |  | #4
       
Добавлено:  09.02.04 16:53
       
    
       
  
И от меня спасибо-бо-бо  
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 5 
      
Автор ответа:
 someone
![]()
![]()
Вопросов: 215
Ответов: 1596
      
 Web-сайт:  
 Профиль |  | #5
      
Добавлено:  28.10.04 12:44
       
    
       
  
спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 6 
      
Автор ответа:
 Александр
![]()
![]()
Разработчик Offline Client
ICQ: 204034 
Вопросов: 106
Ответов: 1919
      
 Профиль |  | #6
       
Добавлено:  28.10.04 15:10
       
    
       
  
незачто! обращайтесь еще!  
    
))))