Probleme de Resize (La Fin)

salut j ai toujours mon probleme de resize mais je sais d ou ca vient.
C 'est que sur ma form a resize j ai des menus et c'est ces elements qu il arrive pas a resize ...


For Each Object In Me
If TypeOf Object Is Line Then
Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2)
Else
Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.left) & ":" & CStr(Object.top)
End If
Next Object

il me faudrait une autre condition pour resize le menu ....

Tetris

For Each Object In Me If TypeOf Object Is Line Then Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2) ElseIf Not TypeOf Object Is Menu Then Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.left) & ":" & CStr(Object.top) End If Next Object

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

humm je viens d essayer mais ca marche pas
en fait la valeur d Object a c'est True ou False quand j arrive au menu ...

Tetris

Tu te fiches de savoir la valeur de Object !! Il s'agit de la valeur de la variable par default.

regardes la valeur de TypeName(Object) Quand tu passes sur le menu. le but etant de faire :

For Each Object In Me If TypeOf Object Is Line Then Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2) ElseIf TypeName(Object) <> "Menu" Then Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.left) & ":" & CStr(Object.top) End If Next Object

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

hummm bon ben on y est presque la , il a reussi a passe cette boucle mais la le seul probleme c 'est qu' en sautant le resize du menu dans cette boucle il ne me fait un "Subscript Out Of Range" dans ma fonction resize .


Private Sub Form_Resize()
On Error Resume Next
Dim W As Long, H As Long, L As Long, T As Long, MW As Long, MH As Long
Dim Object As Control
MW = Val(Split(Me.Tag, ":")(0))
MH = Val(Split(Me.Tag, ":")(1))
For Each Object In Me
W = Val(Split(Object.Tag, ":")(0))
H = Val(Split(Object.Tag, ":")(1))
L = Val(Split(Object.Tag, ":")(2))
T = Val(Split(Object.Tag, ":")(3))
If TypeOf Object Is Line Then
Object.X1 = W * Me.Width / MW
Object.Y1 = H * Me.Height / MH
Object.X2 = L * Me.Width / MW
Object.Y2 = T * Me.Height / MH
Else
'pour le reste
Object.Width = W * Me.Width / MW
On Error Resume Next
Object.Height = H * Me.Height / MH
Object.left = L * Me.Width / MW
Object.top = T * Me.Height / MH
'pour les fonts
On Error Resume Next
Object.Font.Size = (Me.Font.Size * (Me.Width / mem_long))
On Error GoTo 0
End If
Next Object
End Sub


Tetris

Ca y est j ai trouve ;)

Private Sub Form_Resize()
On Error Resume Next
Dim W As Long, H As Long, L As Long, T As Long, MW As Long, MH As Long
Dim Object As Control
MW = Val(Split(Me.Tag, ":")(0))
MH = Val(Split(Me.Tag, ":")(1))
For Each Object In Me
If TypeName(Object) <> "Menu" Then
W = Val(Split(Object.Tag, ":")(0))
H = Val(Split(Object.Tag, ":")(1))
L = Val(Split(Object.Tag, ":")(2))
T = Val(Split(Object.Tag, ":")(3))
If TypeOf Object Is Line Then
Object.X1 = W * Me.Width / MW
Object.Y1 = H * Me.Height / MH
Object.X2 = L * Me.Width / MW
Object.Y2 = T * Me.Height / MH
Else
'pour le reste
Object.Width = W * Me.Width / MW
On Error Resume Next
Object.Height = H * Me.Height / MH
Object.left = L * Me.Width / MW
Object.top = T * Me.Height / MH
'pour les fonts
On Error Resume Next
'On Error Resume Next
'Object.Height = H * Me.Height / MH
Object.Font.Size = (Me.Font.Size * (Me.Width / mem_long))
On Error GoTo 0
End If
End If
Next Object
End Sub

Merci tt le monde ...



Tetris