Cuestión : error de desbordamiento scrollbar vb6

Estoy haciendo modificaciones al proyecto de otro revelador que tiene una forma con un scrollbar.  No consigo realmente el jist del cde, pero en la forma volver a clasificar según el tamaño el acontecimiento, yo están consiguiendo un error de desbordamiento en esta línea:
. Máximo = iFullFormHeigth - valor de Me.Height

The de (iFullFormHeigth - Me.Height) está 63435 a este punto. el

con VScroll1
. Altura = Me.ScaleHeight - HScroll1.Height
. Minuto = iFullFormHeigth de 0
'MsgBox - Me.Height
. Máximo = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - extremo With
 de HScroll1.Height
class= > " claro " 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= " de " codeSnippet964868 del id= del 
= 0

'Primero, cerciorarse de que nos no reduzcan al mínimo
Si Me.ScaleHeight > HScroll1.Height y Me.Width > VScroll1.Width después
    
    'Si hay más pantalla a ver,
    'modificar el scrollbar
    Si VScroll1.Enabled entonces
        Con VScroll1
            . Altura = Me.ScaleHeight - HScroll1.Height
            . Minuto = 0
            . Máximo = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Extremo con

    'De otra manera, apenas volver a clasificar según el tamaño el scrollbar para la pulcritud
    : VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Terminar si

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Si HScroll1.Enabled entonces
        Con HScroll1
            . Anchura = Me.ScaleWidth - VScroll1.Width
            . Minuto = 0
            . Máximo = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Extremo con

    : HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Terminar si
Terminar si
Terminar el submarino
class= del

Respuesta : error de desbordamiento scrollbar vb6

myvar dévil como número entero

si iFullFormHeigth - Me.Height > 32767 entonces
= 32767 myvar

myvar = iFullFormHeigth - Me.Heigh
terminar si

'iFullFormHeigth de MsgBox - Me.Height
 . Máximo = myvar
Otras soluciones  
 
programming4us programming4us