Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима процедура (программуля) для просмотра больших графических файлов / 5 сообщений из 5, страница 1 из 1
15.06.2004, 18:25
    #32562357
Михаил_Л
Михаил_Л
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необходима процедура (программуля) для просмотра больших графических файлов
Необходима процедура (программуля) для просмотра больших графических файлов.
При этом необходимо использовать линейки прокрутки. Графический файл может иметь несколько мегабайт.
Помогите кто может.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.06.2004, 00:07
    #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, 22:02
    #32564528
Михаил_Л
Михаил_Л
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необходима процедура (программуля) для просмотра больших графических файлов
Большое спасибо за помощь! Все прекрасно работает. Рекомендую нуждающимся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.06.2004, 22:43
    #32564542
Guest 8763
Guest 8763
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необходима процедура (программуля) для просмотра больших графических файлов
А вот еще одна вариация на тему. (Авторство не мое)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2004, 12:27
    #32566970
Михаил_Л
Михаил_Л
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Необходима процедура (программуля) для просмотра больших графических файлов
OCX.rar не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Необходима процедура (программуля) для просмотра больших графических файлов / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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