•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 456,428 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,602 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
Views: 1102 | Replies: 11
![]() |
•
•
Join Date: Jun 2007
Posts: 52
Reputation:
Rep Power: 2
Solved Threads: 0
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???
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???
•
•
Join Date: Jun 2007
Posts: 166
Reputation:
Rep Power: 2
Solved Threads: 7
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.
Last edited by AV Manoharan : Jun 20th, 2007 at 8:47 am.
•
•
Join Date: Jun 2007
Posts: 166
Reputation:
Rep Power: 2
Solved Threads: 7
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.
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.
Last edited by AV Manoharan : Jun 20th, 2007 at 9:27 am.
•
•
Join Date: Jun 2007
Posts: 52
Reputation:
Rep Power: 2
Solved Threads: 0
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"......
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"......
![]() |
•
•
•
•
•
•
•
•
DaniWeb Visual Basic 4 / 5 / 6 Marketplace
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Similar Threads
- event handling (Java)
- Event Handling Help needed please. (Java)
- Event handling across panels issues... (Python)
- partial classes in 2005: neat but ? on event handlers (C#)
- Java awt and swing event handling (Java)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: God Awful Stupid Questions from a Newbie
- Next Thread: Relative path problems


Linear Mode