Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Svijesna procedura

[es] :: Visual Basic 6 :: Svijesna procedura

[ Pregleda: 4085 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Skulltor
Nemoj me krivit
zg , hr

Član broj: 13208
Poruke: 29
*.cmu.carnet.hr



Profil

icon Svijesna procedura 05.09.2003. u 13:49 - pre 219 meseci

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.
We can't afford to be neutral on a moving train.

SOAD
 
Odgovor na temu

ssteva
Beograd

Član broj: 12533
Poruke: 55
*.jugopetrol.co.yu



Profil

icon Re: Svijesna procedura 05.09.2003. u 14:13 - pre 219 meseci
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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: Svijesna procedura 05.09.2003. u 14:37 - pre 219 meseci
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
 
Odgovor na temu

Skulltor
Nemoj me krivit
zg , hr

Član broj: 13208
Poruke: 29
*.cmu.carnet.hr



Profil

icon Re: Svijesna procedura 05.09.2003. u 15:01 - pre 219 meseci

Hvala.
Jos jednom ste mi skratili muke.

We can't afford to be neutral on a moving train.

SOAD
 
Odgovor na temu

[es] :: Visual Basic 6 :: Svijesna procedura

[ Pregleda: 4085 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.