| Вопрос: Копирование картинок | Добавлено: 15.08.04 13:47 |
Автор вопроса:  Tigre
|
|
Как скопировать картинку PictureBox в CommandButton, если картинка загружена с помощью PaintPicture? Такой вариант непроходит:
Private Sub Form_Load() CommonDialog1.ShowOpen strFileName = CommonDialog1.FileName Set NewPicture = LoadPicture(strFileName) Picture1.PaintPicture NewPicture, 1, 1, 1000, 1000, x, y, NewPicture.Height, NewPicture.Width End Sub Private Sub Command1_Click() Picture2 = Picture1 End Sub |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 15.08.04 14:51 |
| Picture1.Image | ||
|
Номер ответа: 2 Автор ответа: night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #2 | Добавлено: 16.08.04 00:04 |
|
описание: на форме кнопка(cmd), picture1(pic1), picture2(pic2), в pic1 загружен рисунок 54х18, pic2 чист, на кнопке выставлен графичиский стиль, ScaleMode=3(пикселы) у pic1 & pic2. That all. ok!
Private Sub cmd_Click() cmd.Picture = pic2.Image End Sub Private Sub Form_Load() pic2.PaintPicture pic1.Picture, 0, 0, 18, 18, 10, 10, 8, 8 End Sub |
||
|
Номер ответа: 3 Автор ответа: Tigre Вопросов: 34 Ответов: 63 |
Профиль | | #3 | Добавлено: 16.08.04 00:41 |
| Зделал всё как написано. Непроходит. | ||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 16.08.04 00:56 |
|
pic2.AutoRedraw = true
AutoRedraw у формы и у контрола включил ? |
||
|
Номер ответа: 5 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #5 | Добавлено: 16.08.04 01:03 |
| Уже включил. Теперь с Pic1 на Pic2 копирует. А кнопка всё пустая | ||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 16.08.04 02:14 |
| а у кнопки включи Style = graphics, не ужели так сложно по св-вам полазать ? | ||
|
Номер ответа: 7 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #7 | Добавлено: 16.08.04 16:04 |
| Style = graphics я сразу поставил, по свойствам лазил. Вроде всё правильно. | ||
|
Номер ответа: 8 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #8 | Добавлено: 17.08.04 08:31 |
| Можно сабклассировать кнопку и перерисовывать картинку на WM_PAINT | ||
|
Номер ответа: 9 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #9 | Добавлено: 17.08.04 11:30 |
| чё хрень то городить, написал уже код, который работает, испытал его - всё пашет!!!!!!! | ||
|
Номер ответа: 10 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #10 | Добавлено: 17.08.04 11:41 |
| to Tigre: пиши адрес воего мыла кину этот же пример в работе. | ||
|
Номер ответа: 11 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #11 | Добавлено: 17.08.04 21:27 |
| kychd@mail.ru | ||
|
Номер ответа: 12 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #12 | Добавлено: 18.08.04 12:31 |
|
to Tigre:
держи!!!!!! да и не забудь про ScaleMode = 3 у всех пикчеров про графический стильу кнопки и про AutoRedraw у пикчеров |
||
|
Номер ответа: 13 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #13 | Добавлено: 18.08.04 23:14 |
| Спасибо. | ||
Страница: 1 |