Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Уменьшить размеры рисунка 
:(
    Опции темы
XOXOJI
Дата 8.12.2008, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2
Надо програмно уменьшить размеры рисунка в picturebox или image, без разницы, но при этом чтоб форма оставалась невидимой... нашел реализацию где необходимо чтоб форма была видима... но это не устраивает (((
PM MAIL   Вверх
neic
Дата 8.12.2008, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
А что тебе мешает, сделать форму при загрузке не видимо?
Код

Form2.Show
Form2.Visible = False


Или сделай код в инициализации формы, после чего форма автоматически будет закрываться.
PM MAIL WWW ICQ Skype   Вверх
XOXOJI
Дата 8.12.2008, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2
если делаю форму невидимой то StretchBlt копирует кусок ненужного экрана, а если ее потом убивать, то не очень коректно будет, постоянно моргать что-то на экране будет...
PM MAIL   Вверх
neic
Дата 8.12.2008, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
XOXOJI, попробуй тогда минимизировать форму при загрузке.
И если можно, кусок кода. Чтобы хотя бы посмотреть, что можно сделать.
PM MAIL WWW ICQ Skype   Вверх
XOXOJI
Дата 8.12.2008, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2
Код

Private Sub ImgResize(src As PictureBox, TmpPic As PictureBox, mWidth As Long, mHeight As Long)
src.AutoRedraw = False
TmpPic.AutoRedraw = True
TmpPic.Height = mHeight 'установка размеров невидимого picturebox
TmpPic.Width = mWidth
StretchBlt TmpPic.hdc, 0, 0, mWidth, mHeight, src.hdc, 0, 0, src.Width, src.Height, SRCCOPY
'сохранить временной файл на диске
SavePicture TmpPic.Image, App.Path + "\tempimg.bmp"
'перезагрузить оригинальный picturebox
src.AutoSize = True
src.Picture = LoadPicture(App.Path + "\tempimg.bmp")
'удалить временной файл
Kill App.Path + "\tempimg.bmp"
'очистить невидимый picturebox
TmpPic.Picture = LoadPicture()
'пример для вызова функции
'ImgResize Picture1, Picture2, Picture1.Width / 2, Picture1.Height / 2
End Sub
PM MAIL   Вверх
neic
Дата 8.12.2008, 22:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: нет
Всего: 7
Ругается на эту строчку:
Код

StretchBlt TmpPic.hDC, 0, 0, mWidth, mHeight, src.hDC, 0, 0, src.Width, src.Height, SRCCOPY
PM MAIL WWW ICQ Skype   Вверх
XOXOJI
Дата 9.12.2008, 04:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2
Код

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020
PM MAIL   Вверх
XOXOJI
Дата 9.12.2008, 05:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 56
Регистрация: 20.9.2008

Репутация: 2
Всего: 2
методом научного тыка проблему решил ))) кому интерестно то вот решение

Код

Private Sub Command3_Click()
pic.Picture = LoadPicture("c:\1.jpg")
Picture1.AutoRedraw = True
Picture1.Height = 1000
Picture1.Width = 1000
Picture1.PaintPicture pic, _
    0, 0, 1000, 1000, , , , , vbSrcCopy
SavePicture Image1.Picture, "c:\2.jpg"
End Sub
PM MAIL   Вверх
mb78
Дата 27.12.2008, 03:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 11.7.2008

Репутация: нет
Всего: нет
Создаем 2 PictureBox .

Затем 

Picture1.Visible=False
Picture2.Visible=False
Picture1.Autoredraw=True
Picture2.Autoredraw=True

Загружаем картинку в Picture2.Picture (внимание :не в Picture1)

Затем  Picture1.PaintPicture  Picture2.Picture 0 , 0 , желаемый размер по X , желаемый размер по Y , 0 , 0 , Picture2.Width , Picture2.Height
 
Затем сохраняем Picture1 (если нужно).
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0757 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.