Formulaire VB Redimensionner le problème d'événement?

Question

En utilisant VB6

utilisant des formulaires MDI, sous les formes aussi

Quand je lance le logiciel dans plus de 15 pouces écran, Crviewer, Contrôle Frame, Tout apparaît dans 75% de l'écran, I Wrote la code pour Crviewer Control dans l'événement de redimensionnement de formulaire.

code

Private Sub Form_Resize() 
    CRviewer2.Top = 1450 
    CRviewer2.Left = 0 
    CRviewer2.Height = ScaleHeight - 1450 
    CRviewer2.Width = ScaleWidth 
End Sub 

Parfois, il affiche l'erreur, et parfois il est exécuté, donc il est tout autre code est disponible pour tout le contrôle doit apparaître dans tous les types de fenêtres Taille de l'écran

S'il vous plaît quelqu'un peut-il aider à résoudre les problèmes?

Answer 1

Vous devez modifier deux choses à propos de ce code. Tout d'abord, vous devez vérifier l'état de la fenêtre pour vous assurer que la fenêtre n'est pas réduite au minimum. Si elle est réduite, l'utilisateur ne peut pas voir l'écran, vous n'avez donc pas besoin de le redimensionner.

Deuxièmement, vous devez vous assurer que vous ne définissez aucune des propriétés à une valeur inférieure ou égale à 0.

Troisièmement, vous devriez avoir la gestion des erreurs dans ce code.

Private Sub Form_Resize() 

    On Error Resume Next 

    If Me.WindowState = vbMinimized Then 
     Exit Sub 
    End If 

    CRviewer2.Top = 1450 
    CRviewer2.Left = 0 
    If ScaleHeight > 1450 Then 
     CRviewer2.Height = ScaleHeight - 1450 
    End If 

    CRviewer2.Width = ScaleWidth 
End Sub