ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима процедура (программуля) для просмотра больших графических файлов
5 сообщений из 5, страница 1 из 1
Необходима процедура (программуля) для просмотра больших графических файлов
    #32562357
Михаил_Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Л
Гость
Необходима процедура (программуля) для просмотра больших графических файлов.
При этом необходимо использовать линейки прокрутки. Графический файл может иметь несколько мегабайт.
Помогите кто может.
...
Рейтинг: 0 / 0
15.06.2004, 18:25
| Ответить | Цитировать | Написать  
Необходима процедура (программуля) для просмотра больших графических файлов
    #32562663
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
arseny
Участник
Мой пример, думаю , использует стандартную процедуру.
Два пикча, две прокрутки, CommonDialog (для получения файла) и функция LoadPicture.
Два пикча:
 picCon (что-то вроде Container) - рамка картинки, picMain - грузит саму картинку.
( picMain двигается внутри picCon ).
Нормально работает с большими файлами...


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Private\xa0Sub\xa0cmdLoad_Click()
\xa0\xa0\xa0\xa0cmnDialog.ShowOpen
\xa0\xa0\xa0\xa0If\xa0cmnDialog.FileName\xa0=\xa0""\xa0Then\xa0Exit\xa0Sub
\xa0\xa0\xa0\xa0
\xa0\xa0\xa0\xa0
\xa0\xa0\xa0\xa0picMain.Left\xa0=\xa00
\xa0\xa0\xa0\xa0picMain.Top\xa0=\xa00
\xa0\xa0\xa0\xa0HScroll1.Value\xa0=\xa00
\xa0\xa0\xa0\xa0HScroll1.SmallChange\xa0=\xa010
\xa0\xa0\xa0\xa0HScroll1.LargeChange\xa0=\xa0200
\xa0\xa0\xa0\xa0VScroll1.SmallChange\xa0=\xa010
\xa0\xa0\xa0\xa0VScroll1.LargeChange\xa0=\xa0200
\xa0\xa0\xa0\xa0VScroll1.Value\xa0=\xa00
\xa0\xa0\xa0\xa0picMain.Picture\xa0=\xa0LoadPicture(cmnDialog.FileName)
\xa0\xa0\xa0\xa0picMain.AutoSize\xa0=\xa0True
\xa0\xa0\xa0\xa0
\xa0\xa0\xa0\xa0
\xa0\xa0\xa0\xa0If\xa0picMain.ScaleWidth\xa0>\xa0picCon.ScaleWidth\xa0Then
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0HScroll1.Max\xa0=\xa0picMain.ScaleWidth\xa0-\xa0picCon.ScaleWidth
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0HScroll1.Enabled\xa0=\xa0True
\xa0\xa0\xa0\xa0Else
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0HScroll1.Enabled\xa0=\xa0False
\xa0\xa0\xa0\xa0End\xa0If
\xa0\xa0\xa0\xa0
\xa0\xa0\xa0\xa0If\xa0picMain.ScaleHeight\xa0>\xa0picCon.ScaleHeight\xa0Then
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0VScroll1.Max\xa0=\xa0picMain.ScaleHeight\xa0-\xa0picCon.ScaleHeight
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0VScroll1.Enabled\xa0=\xa0True
\xa0\xa0\xa0\xa0Else
\xa0\xa0\xa0\xa0\xa0\xa0\xa0\xa0VScroll1.Enabled\xa0=\xa0False
\xa0\xa0\xa0\xa0End\xa0If
End\xa0Sub

Private\xa0Sub\xa0HScroll1_Change()
\xa0\xa0\xa0\xa0picMain.Left\xa0=\xa0-HScroll1.Value
End\xa0Sub

Private\xa0Sub\xa0HScroll1_Scroll()
\xa0\xa0\xa0\xa0picMain.Left\xa0=\xa0-HScroll1.Value
End\xa0Sub

Private\xa0Sub\xa0VScroll1_Change()
\xa0\xa0\xa0\xa0picMain.Top\xa0=\xa0-VScroll1.Value
End\xa0Sub

Private\xa0Sub\xa0VScroll1_Scroll()
\xa0\xa0\xa0\xa0picMain.Top\xa0=\xa0-VScroll1.Value
End\xa0Sub
Как отформатирован этот код?
...
Рейтинг: 0 / 0
16.06.2004, 00:07
| Ответить | Цитировать | Написать  
Необходима процедура (программуля) для просмотра больших графических файлов
    #32564528
Михаил_Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Л
Гость
Большое спасибо за помощь! Все прекрасно работает. Рекомендую нуждающимся.
...
Рейтинг: 0 / 0
16.06.2004, 22:02
| Ответить | Цитировать | Написать  
Необходима процедура (программуля) для просмотра больших графических файлов
    #32564542
Guest 8763
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest 8763
Гость
А вот еще одна вариация на тему. (Авторство не мое)
...
Рейтинг: 0 / 0
16.06.2004, 22:43
| Ответить | Цитировать | Написать  
Необходима процедура (программуля) для просмотра больших графических файлов
    #32566970
Михаил_Л
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил_Л
Гость
OCX.rar не работает.
...
Рейтинг: 0 / 0
18.06.2004, 12:27
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима процедура (программуля) для просмотра больших графических файлов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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