Вопрос : scrollbar ошибка переполнения vb6

Я делаю изменения к проекту другого проявителя имеет форму с scrollbar.  Я реально не получаю jist cde, но на форме измените размеры случай, я получайте ошибку переполнения на этой линии:
. Макс = iFullFormHeigth - значение Me.Height

The (iFullFormHeigth - Me.Height) 63435 на этой стадии.

с VScroll1
. Высота = Me.ScaleHeight - HScroll1.Height
. Минута = iFullFormHeigth 0
'MsgBox - Me.Height
. Макс = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - конец With
 HScroll1.Height
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
iFullFormHeigth >Dim " class= " " codeSnippet964868 id= 
= 0

'Во-первых, сделайте конечно нас не уменьшите
Если Me.ScaleHeight > HScroll1.Height и Me.Width > VScroll1.Width после этого
    
    'Если будет больше экран, котор нужно увидеть, то
    'доработайте scrollbar
    Если VScroll1.Enabled после этого
        С VScroll1
            . Высота = Me.ScaleHeight - HScroll1.Height
            . Минута = 0
            . Макс = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Конец с

    'В противном случае, как раз измените размеры scrollbar для neatness
    Еще: VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Закончитесь если

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Если HScroll1.Enabled после этого
        С HScroll1
            . Ширина = Me.ScaleWidth - VScroll1.Width
            . Минута = 0
            . Макс = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Конец с

    Еще: HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Закончитесь если
Закончитесь если
Закончите подводную лодку
class=

Ответ : scrollbar ошибка переполнения vb6

тусклое myvar как интежер

если iFullFormHeigth - Me.Height > 32767 после этого
myvar = 32767
еще
myvar = iFullFormHeigth - Me.Heigh
закончитесь если

'iFullFormHeigth MsgBox - Me.Height
 . Макс = myvar
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us