Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Маштабирование

Автор: Кирилл 21.12.2006, 22:00

Вот уже больше недели мучаюсь я с одной маленькой детавлью-маштабированием.
Мне нужно маштабировать некую ломаную из обьектов Line, и для этого я использую примерно следуйщий код:

Код


Form1.VScroll.Max = Form1.VScroll.Max * Dlt_scale
Form1.VScroll.Value = Form1.VScroll.Max / 2 'Âîçíèêàåò Change (èñïðàâëåíî)
Form1.HScroll.Max = Form1.HScroll.Max * Dlt_scale
Form1.HScroll.Value = Form1.HScroll.Max / 2 'Âîçíèêàåò Change (èñïðàâëåíî)
        For i = 1 To Ind
            Form1.profil(i).X1 = Form1.ScaleWidth / 2 - (Form1.ScaleWidth / 2 - Form1.profil(i).X1) * Dlt_scale
            Form1.profil(i).X2 = Form1.ScaleWidth / 2 - (Form1.ScaleWidth / 2 - Form1.profil(i).X2) * Dlt_scale
            Form1.profil(i).Y1 = Form1.ScaleHeight / 2 - (Form1.ScaleHeight / 2 - Form1.profil(i).Y1) * Dlt_scale
            Form1.profil(i).Y2 = Form1.ScaleHeight / 2 - (Form1.ScaleHeight / 2 - Form1.profil(i).Y2) * Dlt_scale
        Next i
lst_scale_value = Dlt_scale

Dlt_scale показывает, во сколько раз увеличевается маштаб
В результате эта ломаная вылазит так, что её начало никак не достать. Мне кажется, что ошибка в выставлении Мах для полос п рокрутки, но где???!!! smile

Автор: Кирилл 23.12.2006, 16:43

Всё, разобрался. Закон подлости - только задаю вопрос на форуме, как сам нахожу решение smile

Прям не знаю, что делать smile

Автор: cardinal 23.12.2006, 22:05

Даже не пытаться решать проблемы самому, а при их появлении сразу задавать вопрос на форуме! smile

Автор: mihanik 25.12.2006, 10:59

Кирилл, а для последователей хорошо было бы выложить способ решения...

Автор: Кирилл 25.12.2006, 13:03

Хорошо бы, если бы я его понял smile

Я установил для полос прокрутки мах=form1.scaleHeight(или ScaleWidth)/10
Хотя рочему без этого не работает я так и не понял smile