Comment appeler entre procédure(index) ???

Salut ;O)

Tu dois passer en argument l'index du contrôle :

Ex:
Call c_Click(1)

Guy

"le_troll" <le_trol@paris.fr> a écrit dans le message de
news:eqK5yGOREHA.2520@TK2MSFTNGP11.phx.gbl...

Bonjour, j'ai:

Sub Text2_Click()
Call c_Click ' -->> REFUSE
Call c_Click() ' -->> REFUSE
Call c_Click(index) ' -->> REFUSE
Call c_Click(index as integer) ' -->> REFUSE
End Sub

Avec la procédure ci-dessus, je veux appeler la fonction ci_dessous avec

un

index, mais ça ne marche pas, comment faire?
sub c_Click(index As Integer)
...
end sub
--
Merci, @+, bye, Joe
montmartre75 AROBASE iFrance POINT com
------------------------------------------
Ce message est certifié "plein de virus"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------

ta solution la plus proche est la proche est la suivante :

Call c_Click(index) ' -->> REFUSE

sauf que ta variable "index" doit être déclaré as Integer (ou long ou byte
ou... une valeur numerique)..

'***
Option Explicit

Private Sub Command1_Click(Index As Integer)
Debug.Print Index
End Sub

Private Sub Form_Load()
Call Command1_Click(1)
End Sub
'***


sauf que personnellement je déconseilles d'appeler un événement directement
comme cela.. j'aime passer par une fonction intermédiaire afin de détacher
mon code de l'interface le plus possible..
'***
Option Explicit

Private Sub Command1_Click(Index As Integer)
Call DoSomething(Index)
End Sub

Private Sub Form_Load()
Call DoSomething(1)
End Sub

Private Sub DoSomething(Index As Integer)
Debug.Print Index
End Sub
'***


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Salut,

Call c_Click(index) ' -->> REFUSE

Sisi c'est comme ça, mais il faut remplacer index par ton index.

Mais ce n'est pas la manière la plus propre, en effet il n'est pas très
conventionnel d'appeler une procédure d'événement, on verrait plutot comme
ca :

Private Sub c_Click(Index As Integer)
Call TraiteEvent(Index)
End sub

Public Sub TraiteEvent(Index As Integer)
Select Case Index
'//Code
End Select
End Sub

Sub Text2_Click()
Dim intMonIndex as Integer
Call TraiteEvent(intMonIndex)
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



le_troll <le_trol@paris.fr> a écrit :

Bonjour, j'ai:

Sub Text2_Click()
Call c_Click ' -->> REFUSE
Call c_Click() ' -->> REFUSE
Call c_Click(index) ' -->> REFUSE
Call c_Click(index as integer) ' -->> REFUSE
End Sub

Avec la procédure ci-dessus, je veux appeler la fonction ci_dessous
avec un index, mais ça ne marche pas, comment faire?
sub c_Click(index As Integer)
...
end sub