Консультация № 123508
17.02.2008, 13:37
0.00 руб.
0 1 1
Добрый день.
В VB6 при нажатии на кнопку должен показываться большой графический объект, проблема в том что этот объект не влезает на экран. Значит на пикчебоксе должны быть полосы прокрутки, но их там нет и картинка видна не вся. Может это должен быть не пикчебокс, но в имедже тоже нет полос прокрути. Помогите пожалуйсто.

Обсуждение

Неизвестный
18.02.2008, 01:10
общий
это ответ
Здравствуйте, CLov233! Предлагаю Вам такой вариант. В новом проекте добавьте следующие элементы управления: HScrollBar (имя HScroll), VScrollBar (имя VScroll), PictureBox (Pic), Frame, CommandButton (Комманда1). В окне кода добавьте код, который в приложении. Желаю удачи!


Приложение:
Private Sub Form_Load()pic.AutoSize = Truepic.Top = 0pic.Left = 0End SubPrivate Sub HScroll_Change()pic.Left = -HScroll.ValueEnd SubPrivate Sub HScroll_Scroll()pic.Left = -HScroll.ValueEnd SubPrivate Sub pic_Resize()VScroll.Min = 0HScroll.Min = 0VScroll.Max = pic.Height / 2HScroll.Max = pic.Width / 2End SubPrivate Sub VScroll_Change()pic.Top = -VScroll.ValueEnd SubPrivate Sub VScroll_Scroll()pic.Top = -VScroll.ValueEnd SubPrivate Sub Комманда1_Click()pic.Picture = LoadPicture("kart.jpg") ‘Если файл с изображением не находится в папке с программой, нужно прописать полный путь к немуEnd Sub
Форма ответа