Question : erreur de débordement vb6 scrollbar

J'apporte des modifications au projet d'un autre réalisateur qui a une forme avec un scrollbar.  Je n'obtiens pas vraiment le jist du cde, mais sur la forme remettre à la côte l'événement, j'obtiens une erreur de débordement sur cette ligne :
. Maximum = iFullFormHeigth - valeur de Me.Height

The de (iFullFormHeigth - Me.Height) est 63435 en ce moment. le

avec VScroll1
. Taille = Me.ScaleHeight - HScroll1.Height
. Minute = iFullFormHeigth de 0
'MsgBox - Me.Height
. Maximum = iFullFormHeigth - Me.Height
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = Me.ScaleHeight - extrémité With
 de HScroll1.Height
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de " codeSnippet964868 d'id= " de 
Dim de class= en tant que longtemps 'nombre entier
Faible iFullFormWidth en tant que longtemps 'nombre entier

Form_Resize secondaire privé ()

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

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

'Si le pleine page montre déjà,
'désactiver alors le scrollbar
VScroll1.Enabled = (iFullFormHeigth - Me.Height) >= 0

'D'abord, s'assurer que nous ne sommes pas réduits au minimum
Si Me.ScaleHeight > HScroll1.Height et Me.Width > puis VScroll1.Width
    
    'S'il y a plus d'écran à voir,
    'modifier le scrollbar
    Si VScroll1.Enabled alors
        Avec VScroll1
            . Taille = Me.ScaleHeight - HScroll1.Height
            . Minute = 0
            . Maximum = iFullFormHeigth - Me.Height
            .SmallChange = Screen.TwipsPerPixelY * 10
            .LargeChange = Me.ScaleHeight - HScroll1.Height
        Extrémité avec

    'Autrement, remettre à la côte juste le scrollbar pour le neatness
    Autrement : VScroll1.Height = Me.ScaleHeight - HScroll1.Height
    Finir si

    HScroll1.Enabled = (iFullFormWidth - Me.Width) >= 0
    Si HScroll1.Enabled alors
        Avec HScroll1
            . Largeur = Me.ScaleWidth - VScroll1.Width
            . Minute = 0
            . Maximum = iFullFormWidth - Me.Width
            .SmallChange = Screen.TwipsPerPixelX * 10
            .LargeChange = Me.ScaleWidth - VScroll1.Width
        Extrémité avec

    Autrement : HScroll1.Width = Me.ScaleWidth - VScroll1.Width
    Finir si
Finir si
Finir le sous-marin
class= de

Réponse : erreur de débordement vb6 scrollbar

faible myvar comme nombre entier

s'iFullFormHeigth - Me.Height > 32767 puis
= 32767 myvar
autrement
myvar = iFullFormHeigth - Me.Heigh
finir si

'iFullFormHeigth de MsgBox - Me.Height
 . Maximum = myvar
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us