Vraag : vb6 scrollbar overstromingsfout

Ik maak wijzigingen aan het project van een andere ontwikkelaar dat een vorm met scrollbar heeft.  Ik word werkelijk niet jist van cde, maar op de vorm resize gebeurtenis, krijg ik een overstromingsfout op deze lijn:
. Maximum = iFullFormHeigth - de waarde Me.Height

The van (iFullFormHeigth - Me.Height) is op dit punt 63435.

met VScroll1
. Hoogte = Me.ScaleHeight - HScroll1.Height
. Min = 0
'MsgBox iFullFormHeigth - Me.Height
. Maximum = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - HScroll1.Height
Eind With
" codeBody " 
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:

Dim iFullFormHeigth als lang 'geheel
Schemerige iFullFormWidth als lang 'geheel

Privé SubForm_Resize ()

VScroll1.Left = Me.Width - (1.45 * VScroll1.Width)
HScroll1.Top = Me.Height - (2.45 * HScroll1.Height)

Picture1.Left = VScroll1.Left
Picture1.Top = HScroll1.Top

'Als het volledige scherm reeds toont,
'maak dan scrollbar onbruikbaar
VScroll1.Enabled = (iFullFormHeigth - Me.Height) >= 0

'Eerst, zorg ervoor wij niet worden geminimaliseerd
Als Me.ScaleHeight > HScroll1.Height en Me.Width > VScroll1.Width toen
    
    'Als er any more te zien scherm is,
    'wijzig scrollbar
    Als VScroll1.Enabled toen
        Met VScroll1
            . Hoogte = Me.ScaleHeight - HScroll1.Height
            . Min = 0
            . Maximum = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Eind met

    'Anders, resize enkel scrollbar voor neatness
    Anders: VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Eind als

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Als HScroll1.Enabled toen
        Met HScroll1
            . Breedte = Me.ScaleWidth - VScroll1.Width
            . Min = 0
            . Maximum = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Eind met

    Anders: HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Eind als
Eind als
Sub van het eind

Antwoord : vb6 scrollbar overstromingsfout

schemerige myvar als geheel

als iFullFormHeigth - Me.Height > 32767 toen
myvar = 32767
anders
myvar = iFullFormHeigth - Me.Heigh
beëindig als

'MsgBox iFullFormHeigth - Me.Height
 . Maximum = myvar
Andere oplossingen  
 
programming4us programming4us