| | |
event handling
![]() |
•
•
Join Date: Jun 2007
Posts: 52
Reputation:
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:
Solved Threads: 9
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 7:47 am.
•
•
Join Date: Jun 2007
Posts: 166
Reputation:
Solved Threads: 9
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 8:27 am.
•
•
Join Date: Jun 2007
Posts: 52
Reputation:
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"......
![]() |
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
Views: 1600 | Replies: 11
| Thread Tools | Search this Thread |
Tag cloud for Visual Basic 4 / 5 / 6
* 6 2007 access activex add ado append application array banned basic bmp box client code coffeehouse college column connectionproblemusingvb6usingoledb convert copy creative database datareport date designer desktop dissertations dissertationthesis edit error excel filter flex form game header ide image implements inboxinvb installation installer interaction keypress listview machine mail measure memory number open oracle os outlook password pause pdf picture pos prime print problem program programmer query random range range-objects readfile record registration report retrieve save search sites size spectateswamp sql string struct subroutine table textbox time timer variable variables vb vb6 vb6.0 vba vista visual visualbasic web window windows





