Frage : scrollbar Störung des Sammel vb6

Ich bilde Änderungen am Projekt eines anderen Entwicklers, das eine Form mit einem scrollbar hat.  Ich nicht wirklich erhalte das jist des cde, aber auf der Form Ereignis die Größe neu bestimmen, ich erhalten eine Sammelstörung auf dieser Linie:
. Maximal = iFullFormHeigth - Me.Height

The Wert von (iFullFormHeigth - Me.Height) ist 63435 an diesem point.

mit VScroll1
. Höhe = Me.ScaleHeight - HScroll1.Height
. Minute = 0
'MsgBox iFullFormHeigth - Me.Height
. Maximal = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - HScroll1.Height
Ende With
 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

Dim iFullFormHeigth als lang 'ganze Zahl
Schwaches iFullFormWidth als lang 'ganze Zahl

Privates VorForm_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

'Wenn das auf dem ganzen Bildschirm bereits darstellt,
'das scrollbar dann sperren
VScroll1.Enabled = (iFullFormHeigth - Me.Height) >= 0

'Zuerst, sicherstellen, dass wir nicht herabgesetzt werden
Wenn Me.ScaleHeight > HScroll1.Height und Me.Width > VScroll1.Width dann
    
    'Wenn es mehr Schirm gibt, zum zu sehen,
    'das scrollbar ändern
    Wenn VScroll1.Enabled dann
        Mit VScroll1
            . Höhe = Me.ScaleHeight - HScroll1.Height
            . Minute = 0
            . Maximal = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Ende mit

    'Anders, das scrollbar für Neatness einfach die Größe neu bestimmen
    Sonst: VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Beenden wenn

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Wenn HScroll1.Enabled dann
        Mit HScroll1
            . Breite = Me.ScaleWidth - VScroll1.Width
            . Minute = 0
            . Maximal = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Ende mit

    Sonst: HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Beenden wenn
Beenden wenn
Unterseeboot beenden

Antwort : scrollbar Störung des Sammel vb6

schwaches myvar als ganze Zahl

wenn iFullFormHeigth - Me.Height > 32767 dann
myvar = 32767
sonst
myvar = iFullFormHeigth - Me.Heigh
beenden wenn

'MsgBox iFullFormHeigth - Me.Height
 . Maximal = myvar
Weitere Lösungen  
 
programming4us programming4us