event handling

[anud18]

how do i make the programme wait untill a particular event happens......

i read it on the msdn....that by inserting "App.WaitForEvents" where i wanted to make my programme wait for the event i could do it.....

but when i tried putting this line in the programme the compiler didnt recognize the WaitForEvents method.....

can anybody help me out with any other alternative???

[AV Manoharan]

See, every control event is associated with the form at the design time itself and when it become activated it automatically wait for all control events associated with that form. Why, you want specifically mention in your program to wait for the control to happen I can't understand. Please do explaine a little further. If it is for some other event such as Mouse focus,drag etc. or triggers fired you can make your application to wait for those things.

[anud18]

when what becomes activated???....the form or the control event....i couldnt understand

[AV Manoharan]

Again see, there are events associate with your form which are known as control events. ie. when command is clicked etc. OK. There are other events such as connection events, mouse events, objects state property etc. etc
More over there is EventStatusEnum. having values to understand.

For a particlar object to trap the events you have to specifically mention during the declaration time eg. a connection event is declared below.

Dim WithEvents CNN. as ADODB.Connection
Set CNN = New ADODB.Connection


Then you can trap this even as below

Sub CNN_ExecuteComplete(. . .)
If pError.Number<> 0 Then
..handle error here
Else
...Proceess your recordset
End If
End Sub

Beware the above code will give you error if pError doesn't happen
for that you have to check adStatus <>adStatusOK then you can examin the number property of the pError..

That's ok

simply you can ask your object CNN to wait as below
for that you have to instatiate another ADODB method ie Command

Dim myCommand as new ADODB.Command

Then you can carry on checking its status as below

While myCommand.State = AdStateExecuting

DoEvents

Wend
Debug.Print "Command1 Executed"

The program wait for the event to finish
then it prints the message

Too much I hope. But it will give you some idea.
Please get back to me. Send message so that i will be notified.

[anud18]

i tried out the command thing also sir....but it is not working out that ways also ....

its not waiting gor events to happen...

[AV Manoharan]

Please send me the piece of code. I can't understand you at all. You are talking something else, other than waiting for some event to finish.

[anud18]

actually sir .....after calling th showform function present in the dll....i want the programme to wait for the user to click on the command button(event)......

in the command_click event i have put the follwing code

Public Sub Login_Click()

Dim Ctr As Integer
Ctr = 0
For Ctr = 0 To (Form1.CboUserName.ListCount - 1) Step 1

If Form1.Text1.Text = Form1.CboUserName.List(Ctr) And Form1.Text2.Text = Form1.CboPassword.List(Ctr) Then
Validate = True

Else
Validate = False

End If


Next

End Sub

Now based on the value fo this integer variable Ctr1 , i want to proceed further as

If Ctr1=1
KRN_StartForm 'another function
Else MsgBox "Access Denied

these above four lines are present in the module of the project....

but what is happening is the programme is not waiting for the user to click the command button....rather it takes the value of Ctr1=0 and shows "access denied"......

[AV Manoharan]

Earlier I asked you a simple question whether the Login in your Login_click()
is actually the NAME of the control or it's CAPTION

[anud18]

its the name as well as the caption

[AV Manoharan]

its the name as well as the caption

OK. how the form is exited? Is it visible.?

[anud18]

ya the form is visible.....and the form is not exited....it is there the whole time

[AV Manoharan]

You just delete the login command button of the form and add a new command button and only change its cation as LOGIN.

then instead of sub Login_Click()
rewrite it as

Sub Command1_Click()

I hopy it is the first command button in the form.Other wise you have to change 1,2,3 etc.

run the program and get back to me.

we are close to solving the problem.