Procedure return

[barianto]

Hi , i got some situation over here.
I have PROCEDURE (A) that set public, when PROCEDURE (A) call i pass to it some obejct on FORM where PROCEDURE (A) being call.
When the PROCEDURE (A) end i want the PROCEDURE (A) to call some FUNCTION or PROCEDURE (B) reside on the FORM where this public PROCEDURE (A) beeing call. On this PROCEDURE (B), i'm going to change some other control that FORM.

How i do that?

Please help

[d3gerald]

your logic is very confusing, can you explain your argument clearly. i suggest you dont hide sime info of your project coz you cant get any help if you hide it and present a confusing problem here on the forums

[barianto]

Sorry, i got nothing to hide but my english is really bad...

I want before procedure from module that set public end, it execute some procedure from FORM where the public procedure being call.

I'm moving from Clipper to VB, with Clipper i can do this easily.
using clipper logic, it's should this way:

Private sub FORM1_load()
    call hitung
    call test
end sub
 
Private sub TEST()
    tetxbox1.text="BLAH BLAH"
    ' and change some other control on FORM`
End Sub
 
'on module part with name ABCD
public sub Hitung()
    'do whatever
end sub

"test" procedure will be call only when "hitung" procedure finish.
or how to call "test" procedure form module "ABCD"

'on module part with name ABCD
public sub Hitung()
    'do whatever
    FORM1.test
end sub

I think i'm missing something really basic here.

Please help.

PS: Forget to mention, i'm using MDI Form. So FORM1 can be open more than one.

[d3gerald]

i see no problem with your code

you can also do that like this

Private sub FORM1_load()
    hitung
    test
end sub

of

Private sub FORM1_load()
    hitung
end sub
 
Private sub TEST()
    tetxbox1.text="BLAH BLAH"
    ' and change some other control on FORM`
End Sub
 
'on module part with name ABCD
public sub Hitung()
    'do whatever
    text
end sub

you need not to use call since these are just procedures and not functions

[barianto]

Using method number 1- Problem arise because "test" will execute after "hitung" being excecute not after "hitung" finished.

Using method number 2-
I'm using MDI FORM
I'm calling MDI child FORM MDI Main

Dim frm As FORM1
            Set frm = New FORM1
            Set frm.fMain = Me
            frm.Show
            Set frm = Nothing
 
            
             'on FORM1
            Public fMain As frmMain
            'where  frmMain are name MDI Main

when i'm calling "test" it give me error to all object/control on FORM1 that reference to frmMain. I have imagelist on frmMain that i accessing from FORM1 and some other thing.

[Joacim Andersson]

Using method number 1- Problem arise because "test" will execute after "hitung" being excecute not after "hitung" finished.

That was confusing... After it has been executed means that it has finished. When you call a procedure the execution will not continue until that procedure has finished its job.

[barianto]

upps, my fault
the "hitung" procedure was detect mouse movement.

Joacim,
actually "hitung" procedure is mousehook procedure you give me the other day.
And what i want is when it is click outside the area, i want it to call some function/procedure on FORM1.

How to do that?

[Joacim Andersson]

Aha, I see. Well, since the callback procedure that the mouse hook is using is called by Windows it's actually called by another thread then the one you're running and trying to access your Form from such a callback procedure will crash your program.

But since that is showing a Frame and you want to call the next procedure after the Frame is "closed" simply loop and check if the frame is visible or not.

First add the following to the General Declaration section of your Form:

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Then use code simular to this:

Private Sub Command1_Click()
    Call HookMouse(Me.hWnd, Frame1.hWnd)
    'loop while the frame is visible
    Do While Frame1.Visible
        Call Sleep(1)
        DoEvents
    Loop
    CallTheNextProcedureHere
End Sub

[barianto]

Joacim that's do what i want.
Again you save my day.

Thanks d3gerald, joacim.

You guy have any rerefence/book that can give me idea to solve this kind of problem?