Optimisation
Résolu
cs_HANNS
Messages postés
17
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
14 novembre 2007
-
12 nov. 2007 à 02:20
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 12 nov. 2007 à 09:53
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 12 nov. 2007 à 09:53
4 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
12 nov. 2007 à 08:14
12 nov. 2007 à 08:14
Salut,
Regarde si ceci est équivalent (je n'ai pas regarder la source)
Option Explicit
Private Sub Form_Load()
Me.MenuList.Move 0, 375, 2355, 4335
Me.Push(0).Move 0, 0, 2355, 375
Me.Push(1).Move 0, Me.MenuList.Height + 375, 2355, 375
Me.Push(2).Move 0, Me.MenuList.Height + 750, 2355, 375
Me.Push(3).Move 0, Me.MenuList.Height + 1125, 2355, 375
Me.Push(4).Move 0, Me.MenuList.Height + 1125, 2355, 375
Push_Click 0
End Sub<hr />
Private Sub PlacePush(idx As String, MnuListTop As Integer, P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer)
MenuList.Top = MnuListTop
Push(1).Top = P1
Push(2).Top = P2
Push(3).Top = P3
Push(4).Top = P4
Call Me.Controls("Frame" & idx).ZOrder(0)
End Sub<hr />
Private Sub Push_Click(Index As Integer)
Dim i As Integer
With MenuList
Select Case Index
Case 0: Call PlacePush(vbNullString, 375, .Height, .Height + 375, .Height + 750, .Height + 1125)
Case 1: Call PlacePush(CStr(Index), 375, 375, .Height + 375, .Height + 750, .Height + 1125)
Case 2: Call PlacePush(CStr(Index), 750, 375, 750, .Height + 750, .Height + 1125)
Case 3: Call PlacePush(CStr(Index), 750, 375, 750, 1125, .Height + 1125)
Case 4: Call PlacePush(CStr(Index), 1500, 375, 750, 1125, 1450)
End Select
End With
For i = 0 To 4 Push(i).FontBold (Index i)
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
Regarde si ceci est équivalent (je n'ai pas regarder la source)
Option Explicit
Private Sub Form_Load()
Me.MenuList.Move 0, 375, 2355, 4335
Me.Push(0).Move 0, 0, 2355, 375
Me.Push(1).Move 0, Me.MenuList.Height + 375, 2355, 375
Me.Push(2).Move 0, Me.MenuList.Height + 750, 2355, 375
Me.Push(3).Move 0, Me.MenuList.Height + 1125, 2355, 375
Me.Push(4).Move 0, Me.MenuList.Height + 1125, 2355, 375
Push_Click 0
End Sub<hr />
Private Sub PlacePush(idx As String, MnuListTop As Integer, P1 As Integer, P2 As Integer, P3 As Integer, P4 As Integer)
MenuList.Top = MnuListTop
Push(1).Top = P1
Push(2).Top = P2
Push(3).Top = P3
Push(4).Top = P4
Call Me.Controls("Frame" & idx).ZOrder(0)
End Sub<hr />
Private Sub Push_Click(Index As Integer)
Dim i As Integer
With MenuList
Select Case Index
Case 0: Call PlacePush(vbNullString, 375, .Height, .Height + 375, .Height + 750, .Height + 1125)
Case 1: Call PlacePush(CStr(Index), 375, 375, .Height + 375, .Height + 750, .Height + 1125)
Case 2: Call PlacePush(CStr(Index), 750, 375, 750, .Height + 750, .Height + 1125)
Case 3: Call PlacePush(CStr(Index), 750, 375, 750, 1125, .Height + 1125)
Case 4: Call PlacePush(CStr(Index), 1500, 375, 750, 1125, 1450)
End Select
End With
For i = 0 To 4 Push(i).FontBold (Index i)
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
cs_HANNS
Messages postés
17
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
14 novembre 2007
12 nov. 2007 à 03:00
12 nov. 2007 à 03:00
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
12 nov. 2007 à 08:18
12 nov. 2007 à 08:18
Bonjour,
Je me suis arrêté au début, juste pour te donner des idées (et à toi de les utiliser...)
Ton évènement load :
Private Sub Form_Load()
Me.MenuList.Move 0, 375, 2355, 4335
Me.Push(0).Move 0, 0, 2355, 375
Me.Push(1).Move 0, Me.MenuList.Height + 375, 2355, 375
Me.Push(2).Move 0, Me.MenuList.Height + 750, 2355, 375
Me.Push(3).Move 0, Me.MenuList.Height + 1125, 2355, 375
Me.Push(4).Move 0, Me.MenuList.Height + 1125, 2355, 375
Mis à part le fait que tu sembles avoir fait une erreur avec Push(4) ... sinon Push(4) couvrirait Pussh(3) ... Push(4) devrait être 1400 , non ?
Tu sembles avoir un groupe de Push indexés de 0 à 4 et n'en modifier que la propriété Left, en l'incrémentant de 375.
Ce qui pourrait donc s'écrire en utilisant une boucle For I ... to... et la variable I
Je me suis arrêté au début, juste pour te donner des idées (et à toi de les utiliser...)
Ton évènement load :
Private Sub Form_Load()
Me.MenuList.Move 0, 375, 2355, 4335
Me.Push(0).Move 0, 0, 2355, 375
Me.Push(1).Move 0, Me.MenuList.Height + 375, 2355, 375
Me.Push(2).Move 0, Me.MenuList.Height + 750, 2355, 375
Me.Push(3).Move 0, Me.MenuList.Height + 1125, 2355, 375
Me.Push(4).Move 0, Me.MenuList.Height + 1125, 2355, 375
Mis à part le fait que tu sembles avoir fait une erreur avec Push(4) ... sinon Push(4) couvrirait Pussh(3) ... Push(4) devrait être 1400 , non ?
Tu sembles avoir un groupe de Push indexés de 0 à 4 et n'en modifier que la propriété Left, en l'incrémentant de 375.
Ce qui pourrait donc s'écrire en utilisant une boucle For I ... to... et la variable I
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
74
12 nov. 2007 à 09:53
12 nov. 2007 à 09:53
utilises un SSTab, c'est plus simple :p