Questione : errore di trabocco scrollbar vb6

Sto apportando le modifiche al progetto di un altro sviluppatore che ha una forma con uno scrollbar.  Realmente non ottengo il jist del cde, ma sulla forma ridimensionare l'evento, io stanno ottenendo un errore di trabocco su questa linea:
. Massimo = iFullFormHeigth - il valore di Me.Height

The di (iFullFormHeigth - Me.Height) è 63435 a questo punto. il

con VScroll1
. Altezza = Me.ScaleHeight - HScroll1.Height
. Minuto = iFullFormHeigth di 0
'MsgBox - Me.Height
. Massimo = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - estremità With
 di HScroll1.Height
class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty del >Dim " del class= " " di codeSnippet964868 del id= del 
= 0

'In primo luogo, assicurar che non siamo minimizzati
Se Me.ScaleHeight > HScroll1.Height e Me.Width > VScroll1.Width allora
    
    'Se ci è altro schermo da vedere,
    'modificare lo scrollbar
    Se VScroll1.Enabled allora
        Con VScroll1
            . Altezza = Me.ScaleHeight - HScroll1.Height
            . Minuto = 0
            . Massimo = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Estremità con

    'Al contrario, ridimensionare appena lo scrollbar per neatness
    Altrimenti: VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Concluder se

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Se HScroll1.Enabled allora
        Con HScroll1
            . Larghezza = Me.ScaleWidth - VScroll1.Width
            . Minuto = 0
            . Massimo = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Estremità con

    Altrimenti: HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Concluder se
Concluder se
Concludere il sommergibile
class= del

Risposta : errore di trabocco scrollbar vb6

myvar fioco come numero intero

se iFullFormHeigth - Me.Height > 32767 allora
= 32767 myvar
altrimenti
myvar = iFullFormHeigth - Me.Heigh
concluder se

'iFullFormHeigth di MsgBox - Me.Height
 . Massimo = myvar
Altre soluzioni  
 
programming4us programming4us