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
Partager