[ Skulltor @ 05.09.2003. 13:49 ] @

Zanima me kako da napravim da procedura u nekom modulu
zna iz koje je forme pozvana.

Naprimjer imam form1,2 i 3 te proceduru proc1 u modulu1.
Kada se u form1 klikne na gumb on pozove proceduru1
u modulu1 a ona pozove msgbox u kojem pise
procedura je pozvana iz form1 isto tako kad bi
se kliknulo na gumb u form2 ili 3.
[ ssteva @ 05.09.2003. 14:13 ] @
Probaj ovo:
Code:

Sub procedure1(FORMA as Form)
     Msgbox "Procedura je pozvana iz " & FORMA.Name
end sub

Proceduru pozivas ovako:
Code:

Sub Command1_Click()
     Call procedure1(Me)
end sub

Pozdrav
[ mladenovicz @ 05.09.2003. 14:37 ] @
Moze kao sto je napisao ssteva, s tim sto bi ja deklarisao procedure1 ovako (ako vec prosledjujes objekat - univerzalnije je), a poziv je isti kao u sstevinoj poruci:

Code:

Sub procedure1 (Src as Object)
        Msgbox "Procedura je pozvana iz " & Src.Name
end sub


a mozes i ovako:

Code:

Sub procedure1 (Src as String)
        Msgbox "Procedura je pozvana iz " & Src
end sub


a pozivas ovako (za forme i klase)

Code:

call procedure1 (Me.Name)


a ako zoves iz modula onda prosledis naziv modula
[ Skulltor @ 05.09.2003. 15:01 ] @

Hvala.
Jos jednom ste mi skratili muke.