Discussion :

[hletellier]

Bonjour a tous.

Ceci est mon premier message sur VB6, je suis un débutant qui vient du monde Delphi et je n'arrive pas a positionner une serie de Frames dans un fenêtre lorsque celle ci est redimensionnée. Le frame apparait trop bas dans la fenêtre (en fait . Voici le code de Form1.frm:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
48
49
50
51
52
53
54
55
56
57
58
59
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5025
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7695
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   7695
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   3480
      Width           =   1575
   End
   Begin VB.Frame fraBottom 
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   0  'None
      Height          =   700
      Left            =   120
      TabIndex        =   0
      Top             =   4200
      Width           =   6885
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const MINWIDTH As Long = 3000
Const MINHEIGHT As Long = 3000
 
 
Private Sub Form_Load()
  fraBottom.Width = Me.Width
  Me.Top = 10
  Me.Left = 10
End Sub
 
Private Sub Form_Resize()
 
Dim lUseWidth As Long
Dim lUseHeight As Long
 
  lUseWidth = Me.Width
  lUseHeight = Me.Height
 
  If lUseWidth < MINWIDTH Then lUseWidth = MINWIDTH
  If lUseHeight < MINHEIGHT Then lUseHeight = MINHEIGHT
 
  fraBottom.Width = lUseWidth
  fraBottom.Top = lUseHeight - fraBottom.Height
 
End Sub

Merci de votre aide

[Theocourant]

Salut,

Il serait bon d'utiliser les balises pour que ce soit plus clair

Sinon une piste de recherche : contrôle les unités de définition de ta forma car si elles sont définies en cetimètres ça risque de prendre des valeurs hors normes par rapport à ton écran. De même, cela peut dépendre de la résolution d'affichage de ton écran.

Bonne continuation

Théo

[hletellier]

Je prendrai soin des balises.
Les unités sont les tips.

Merci.

[hletellier]

Désolé de vous avoir importuné avec cette bêtise.
J'ai trouvé la solution en rentrant dans les profondeurs de Google: il suffisait de remplacer
lUseWidth = Me.Width
lUseHeight = Me.Height
par:
lUseWidth = Me.ScaleWidth
lUseHeight = Me.ScaleHeight

Désolé

Henri

[Theocourant]

Re,

Heureux de savoir que tu as résolu ton problème.

Pense à cliquer sur le tag tout en bas à gauche

Merci d'avance

Théo