Метод Scale... что-то я не вкуриваю...

[tranzit1973]

Братцы! Помогите, замучила одна проблема!

Picture1.Scale(x1,y1)-(x2,y2)

Какой диапазон должен быть у аргументов x1,x2,y1,y2 ?
При изменении размера объекта Picture Box на форме, эта строка вызывает ошибку в программе.
Т.е. если размер объекта небольшой - то ошибка, если увеличить, то ошибки нет.
Аргумент y1 у меня может быть очень большим (но меньше Single).

Сформулирую по-другому:
Влияет ли физический размер Picture Box на максимально возможные значения аргумента Scale?

[Konst_One]

это шкала координат для рисования в твоем picturebox-е всяких линий и тп

[tranzit1973]

Что это шкала - это я знаю.

Но почему кусок кода

maxfx = 6000000000#
Picture1.ScaleMode = 0
Picture1.Scale (0, maxfx)-(100, 0)

при небольших размерах Picture Box выдает ошибку?

[/b]

[Konst_One]

Код: Выделить всё

dim maxfx as Single

обязательно

[tranzit1973]

Все переменные у меня определены.

А у Вас это работает?

Может Basic у меня глючит?

[d3drm]

Код: Выделить всё

dim maxfx as Single

обязательно

а отсюда следует что

Код: Выделить всё

maxfx = 6000000000#

никак не может быть =)

[tyomitch]

Ещё как может. Запусти и убедись, что 6000000000# в maxfx As Single прекрасно присваивается.

[tranzit1973]

Братцы!
Попробуйте создать форму с одной кнопкой и Picture Box-ом (ScaleMode = 0)
Размер Picture Box сделайте (ну, примерно 3х3 см)

Введите код:

Option Explicit
Dim maxfx As Single

Private Sub Command1_Click()
maxfx = 6000000000
Picture1.Scale (0, maxfx)-(100, 0)
End Sub

В итоге: Run Time Error 5.....

А теперь попробуйте растяните мышкой Picture Box вниз сантиметров на 15, и запустите прогу.
Вуаля! Все работает.

В чем прикол?

[tyomitch]

Такое впечатление, что нельзя делать один пиксел больше, чем 1E+7 единиц

[Konst_One]

очередной скрытый баг или фича