Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер рисунка из файла. Не работает .ScaleWidth / 14 сообщений из 14, страница 1 из 1
24.02.2011, 14:22
    #37133725
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
Добрый день!
Код:
Код: plaintext
1.
2.
3.
4.
5.
Public Sub РазмерИзФайла()

MsgBox LoadPicture("E:\Temp\i.bmp").Width
MsgBox LoadPicture("E:\Temp\i.bmp").ScaleWidth

End Sub
на строке с "ScaleWidth" даёт ошибку:
Object doesn't support this property or method (Error 438)
При этом строка с "Width" отрабатывает..
Почему??? Как заставить???
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 14:33
    #37133750
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVik,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
LoadPicture([filename], [size], [colordepth],[x,y])
 
Функция служит для загрузки изображения в любой объект, поддерживающий свойство Picture.
 
Параметры

 
FileName
 Необязательный. Строковая переменная, определяющая имя загружаемого графического файла. Может включать имя папки и диска. Если не указано значение файла, то функция LoadPicture загружает пустой рисунок.
 
Size
 Необязательный. Тип Variant. Если FileName является курсором или значком файла, то параметр определяет желаемый размер изображения.
 
ColorDepth
 Необязательный. Тип Variant. Если FileName является курсором или значком файла, то параметр определяет желаемую глубину цвета.
 
X
 Необязательный. Параметр типа Variant. Обязателен, если указан параметр Y. Если FileName является курсором или значком файла, то параметр определяет желаемую ширину. В файле, содержащем множество отдельных изображений, в случае, если изображение заданного размера не доступно, используется наилучшее приближение. Значения X и Y используются, если установлено значение vbLPCustom аргумента ColorDepth. Для значков файлов наибольшее возможное значение  255 
 
Y
 Необязательный Параметр типа Variant. Обязателен, если указан параметр X. Если FileName является курсором или значком файла, то параметр определяет желаемую высоту. В файле, содержащем множество отдельных изображений, используется наилучшее приближение в случае, если изображение заданного размера не доступно. Для значков файлов наибольшее возможное значение  255 .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 14:46
    #37133781
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
> Автор: timtim


Не, это ты расписал параметры функции, а ему нужно посмотреть свойства объекта Object BrowserClass IPictureDisp
Member of stdole, потому что она возвращает объект этого типа

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 20:03
    #37134522
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVik,
Скажи, что у тебя возвращает:
Код: plaintext
MsgBox LoadPicture("E:\Temp\i.bmp").Width
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 20:15
    #37134543
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
MsgBox LoadPicture("E:\\Temp\\i.bmp").Width возвращает - 3969.
Файл i.bmp для которого возвращается это число приложил.
Строка с ".Width" нормально отрабатывает, ошибка на ".ScaleWidth".
Собственно существует масса ссылок на коды, где работает сочетание LoadPicture и ScaleWidth,
напр /topic/586161&hl=loadpicture%20scalewidth
Но в моём случае почему то даёт ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 20:38
    #37134577
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVikСтрока с ".Width" нормально отрабатывает, ошибка на ".ScaleWidth".


Object BrowserClass IPictureDisp
Вкури.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 21:00
    #37134602
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVikMsgBox LoadPicture("E:\Temp\i.bmp").Width возвращает - 3969.
В каких едницах измерения?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 21:07
    #37134612
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
timtimNikVikMsgBox LoadPicture("E:\Temp\i.bmp").Width возвращает - 3969.
В каких едницах измерения?
Конечно в твипах.

timtimNikVikСтрока с ".Width" нормально отрабатывает, ошибка на ".ScaleWidth".


Object BrowserClass IPictureDisp
Вкури.
Так не вкуривается Class IPictureDisp... потому и написал...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2011, 21:28
    #37134638
timtim
timtim
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVikТак не вкуривается Class IPictureDisp... потому и написал...)
Присмотрись к IPictureDisp и подбери тару.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2011, 10:59
    #37135194
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
> Автор: NikVik
> Собственно существует масса ссылок на коды, где работает сочетание LoadPicture и ScaleWidth,
> напр /topic/586161&hl=loadpicture%20scalewidth

Если ты присмотришся повнимателней к коду по приведеной ссылке, то увидишь что с помощью функции LoadPicture загружают
рисунок в объект PictureBox. А вот там у рисунка есть свойства с приставкой Scale

> Но в моём случае почему то даёт ошибку.

Потому, что ты пытаешся прочитать несуществующие свойства. У класса IPictureDisp нет свойств с приставкой Scale. Поэтому
и ошибка.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2011, 12:48
    #37135621
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
Поиск по "VBA не поддерживает PictureBox" дал множество результатов..)
Похоже причина именно в VBA?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2011, 14:28
    #37135892
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
> Автор: NikVik
> Поиск по "VBA не поддерживает PictureBox" дал множество результатов..)
> Похоже причина именно в VBA?


А при чем здесь VBA??? Ты нигде не указывал среду, приведенный тобою код одинаково работает как в VBA так и в VB6.
Ссылку, которую ты дал приводит к коду для VB6.

Тогда вернемся в начало - зачем тебе Scale - свойство?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.02.2011, 22:12
    #37136980
NikVik
NikVik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
Scale - свойство нужно для получения размера рисунка из файла в пикселах (для последующей обработки графического файла).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2011, 17:06
    #37137511
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Размер рисунка из файла. Не работает .ScaleWidth
NikVikКонечно в твипах.Конечно, не в твипах, а в сотых долях миллиметра.
Далее здесь и по ссылкам оттуда, годится и для VB, и для VBA.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер рисунка из файла. Не работает .ScaleWidth / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 134ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158928]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 11ms
total:  134ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]