Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: кусок из PictureBox [VB6] Добавлено: 04.09.09 22:43  

Автор вопроса:  e-lie
как вырезать (по координатам диагонали) кусок картинки из PictureBox1 и вставить в PictureBox2 ??
возможно ли скопировать попиксельно? и имеет ли это смысл?
может быть есть другие способы?

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #1
Добавлено: 04.09.09 23:45
Резать не надо, просто пайнишь, там кординаты для PictureBox1 устоновишь свои, а в PictureBox2 на всю катушку.
Незабудь только о соотношении сторон в исходном и получаемом изображении.

Ответить

Номер ответа: 2
Автор ответа:
 e-lie



Вопросов: 2
Ответов: 6
 Профиль | | #2 Добавлено: 04.09.09 23:46
поидее код ниже должен вырезать прямоугольник 40х52 начиная с координаты x=585 y=431
  1. For X = 1 To 40
  2.       For Y = 1 To 52
  3.          cvet = Picture1.Point(X + 584, Y + 430)
  4.          pic2.PSet (X, Y), cvet
  5.       Next Y
  6.       DoEvents
  7. Next X

но вот чтото не работает...
хелп

Ответить

Номер ответа: 3
Автор ответа:
 e-lie



Вопросов: 2
Ответов: 6
 Профиль | | #3 Добавлено: 04.09.09 23:50
2Боцман
нихрена не понял))
что есть "пайнишь" ?

Ответить

Номер ответа: 4
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #4 Добавлено: 05.09.09 00:04
PaintPicture

Ответить

Номер ответа: 5
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #5
Добавлено: 05.09.09 00:19
Два способа.
  1. Picture2.PaintPicture Picture1, 0, 0, 64, 64, 100, 100, 64, 64

или
  1.  
  2. ' Этот кусок объявляешь в начале документа
  3. Private Declare Function BitBlt& Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long)
  4.  
  5. ' Код
  6. BitBlt Picture2.HDC, 0, 0, 64, 64, Picture1.HDC, 100, 100, vbSrcCopy
  7. Picture2.Refresh
  8.  
  9. ' Не забудь выставить параметр ScaleMode на 3-Pixel

Ответить

Номер ответа: 6
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #6
Добавлено: 05.09.09 00:28
AWP пишет:
Два способа.

 Stretch третий способ но круче.

Ответить

Номер ответа: 7
Автор ответа:
 e-lie



Вопросов: 2
Ответов: 6
 Профиль | | #7 Добавлено: 05.09.09 01:37
спасибо большое))
работают!

Ответить

Номер ответа: 8
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #8
Добавлено: 06.09.09 15:35
Stretch третий способ но круче.

Круче способ тот, который выполняет своё действие и съедает как можно меньше CPU.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам