Visual Basic :: Timer Event Not Triggered

Event Not Triggered?
Hello everyone.
I seem to be having a problem with the Winsock_connect event not being handled
I need to send data from a client to a server just after the connection is made without the user needing to press sth.So I try to make use of the connect event. The strange thing is that the connection is made but the event is not triggered. As a result i never get the chance to send this data. Even if I try to force the event to be handled with Call Winsock_connect after the connection is made, even though the data is sent(?), when I monitor the server it shows the no data is arriving.It's even more strange If you take into mind that the same piece of code is used several times in the app with great succes, and only when I try to send this specific data the event is not handled. If noone could help with that I would post the code I use.
Thnx in advance

Triggered Event
Is there any way I can trigger an event, when someone or I move the mouse.

I.e. I want to be able to start the program, and when someone moves the mouse, it triggers off my special event!

Thanks for any advice!

Always-triggered-on-shutdown Event?
I've got two questions for you

-What is the difference between the Form_Unload and the Form_Terminate events?
-Is there an event that ALWAYS triggers when the app is terminated, even if it's done via TaskMgr?
The deal with the last one is to place a program on my computer, that prevents use without my knowledge. One of the functions is, that when you try to terminate it, even with TaskMgr (CtrlAltDel), it shuts down the entire machine.

Time Triggered Event
I want to create a macro that imports a couple of hundred files into a table in Microsoft Access, carries out some basic formatting, then exports the files back out to another folder as text files. I can work out how to do most of this, but I want this process to run at a specific time i.e. 3am, and to do this without having to open Access.

I am sorry if my request is a bit vague, but can this be done? and if so, where would be the best place to start?

Any advice would be greatly appreciated.

Knowing If An Event Triggered
Hey Guys,

how do i know if a button is clicked in another program window. and when it is clicked then i will want to process my code from my program.

Thanks in advance

How Does An Event Get Triggered By Activex?
I'm using this DMFitter ActiveX: http://fitting.datamaster2003.com/
here is my code:

Code:
Public Lambda, hindex, lindex, sindex, RVal, La, Ta, Ra, Ma, FilmP, I, datasheet, Paramters, Sigmas, X, Y, Options
Public WithEvents myFitter As Fitter.DMFitter
Sub Command1_click()
Set myFitter = CreateObject("Fitter.DMFitter")
myFitter.X = X
myFitter.Y = Y
myFitter.Expression = -2
myFitter.ParamCount = 2
myFitter.Parameters = myParameters
myFitter.Sigmas = mySigmas
myFitter.Iterations = 30
myFitter.WeightType = 0
myFitter.Options = "no"
If myFitter.LMFit Then
Else
MsgBox "myFitter error " & myFitter.ResultCode 'Debug.Print myFitter.ResultCode
End If
End Sub

all the variables are defined elsewhere.

event OnGetLMFunction(X, Parameters) is supposed to be fired by LMFit when it starts its process. I placed a breakpoint at

Code:
Sub DMFItter_OnGetLMFunction(ByVal X As Variant, ByVal Parameters As Variant) 'As Double
FilmP(3) = Parameters(0) 'index
FilmP(4) = Parameters(1) 'thickness
myFitter_OnGetLMFunction = Rpc((Lambda), (Si), 2, FilmP)
End Sub
Sub DMFitter_OnGetLMDerivative(ByVal X As Variant, ByVal Parameters As Variant, ByVal Sigmas As Variant) 'As Variant
Dim Result(3) ' Notice: in THIS case, Parameters and Sigmas not used
Result(0) = 1 ' (because model is linear, and fix flags not used)
Result(1) = X
Result(2) = X ^ 2
Result(3) = X ^ 3
myFitter_OnGetLMDerivative = Result
End Sub

but nothing happens, and I get FitResult = 3 "Incorrect parameters or data to be fitted" so I'm guessing it never gets to function definition.

Quote:

event OnGetLMFunction(X, Parameters): double

This event handler must return the value of NLSF model function. X is an independent variable (array or single double precision float), Parameters is of type OleVariant and contains array of double precision values of fitting parameters. Notice that X is always of type OleVariant and if you set 2D array for X property, X parameter will be an array with appropriate number of elements.

event OnGetLMDerivative(X, Parameters, Sigmas): OleVariant

You define this event handler if you wish to calculate LM partial derivatives analytically. X and Parameters are the same as in OnGetLMFunction, Sigmas is of type OleVariant and contains array of double precision values of parameter fix flags: if Sigmas[i]<0, you can leave zero value of appropriate partial derivative. You must return an array of double precision values of partial derivatives. See TestLMFitEvents.htm and TestLMFitEJS.htm examples for more details.

I'm going straight from the example, and nothing..

I'm guessing I did not define the event handler for DMFitter that will point to the example Sub shown above, can someone please explain how this is can be done?

Vb6 Time Triggered Event
hello,
i tried to make an program with simple animation.
the first picture moves with vbkeyup,keydowm etc.
the second i wanted to move with an timer.
bit every time the picture comes to the form border it disappears and the program freezes.
here is the code:
VB Code:
Private Sub Timer1_Timer() x = Int(Rnd * 500) Picture2.Move Picture2.Left - x, Picture2.Top Picture2.Move Picture2.Left, Picture2.Top + x If Picture2.Left < 0 Then Picture2.Left = Picture2.Left + x End Sub

what's wrong?
thnx
greetings,
kreator666

Any Event Triggered For The Max & Min Buttons
I want to do some extra control when the user press the maximum & the minimum button. Is there any event triggered when the use press these two buttons ?

Any Event Triggered For The Max & Min Button
I want to do some extra control when the user press the maximum & the minimum button. Is there any event triggered when the use press these two buttons ?

Time Triggered Event
Does someone out there have a canned method of triggering an event (in this case a file copy) based on time. I would like to trigger a module that I have created, at 11:59 PM everyday.

Timer Control Triggered By Date&Time VB6/Access
Hi Guys, I Have a form with a datagrid,Timer and command button.

Im trying to get a timer control to pop up a message when the current time now() is equal to a variable.
What im trying is running but never popping up the msgbox in the timer

Code:
Private Sub Command6_Click()
Dim Timed1
Dim Timed2
Dim timeduration1

On Error Resume Next
Timed1 = DataGrid2.Columns(2).Value
Timed2 = DataGrid2.Columns(0).Value
timevalue1 = DateDiff("n", Timed2, Timed1)
timevalue1 = DateAdd("m", timevalue1, Now())
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
timer1 = Now()
If timer1 = timevalue1 Then
MsgBox "Time Has been Reached"
End If
End Sub

Any and all suggestions are welcomed.
Regards as ever
Colin

Is There Any Event Triggered When You Delete A Sheet?
is there any event triggered when you delete a sheet?

when a user deletes a sheet i would also like to delete that sheet from a list of sheets that i have on another sheet...

Event Triggered In Excel's Cell By DDE
Hi.

I'm trying to trigger an event by using DDE to change a specific cell in EXCEL.

First, i tested my own code (manually, without DDE) by changing that cell's (cell B1) value and it worked. The code is as below:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
DoSomething
End If
End Sub

However, i tried to use another application and change the cell B1's value via DDE, that event can't be triggered.

Can anyone give any suggestions? My intention is whever there's a change in that cell's value, do something.

Thanks a lot.

Event That's Triggered When A File Is Modified
Simple question probably, but how do you create an event in VB6 that is triggered whenever a particular file gets modified by another application?

Winsock SendComplete Event Is Not Being Triggered
When I send a UDP message using the VB-6 Winsock control, the remote server
receives the message OK, but the SendComplete event of the Winsock is not
triggered. This is true also of the SendProgress event.

I'd appreciate any help.

Tom Reidy

DTPicker Click Event, When Does It Get Triggered?
Does anyone know when the click event for the DTPicker control gets triggered? I can not seem to trigger this event at all.

As far as I understood it the click event should trigger only when a person clicks/selects a date from DTPickers popup calendar. If a person clicks anywhere outside of the popup calendar area the even shouldn't trigger. This is the exact functionality I am looking to produce.

AlanG

What Event Will Be Triggered After I Exit My Program?
I am programming with VB6.0. As a class is destroyed, there should raise some events, like class_terminate, form_onload, form_terminate, etc. Otherwise, when the whole project, or my program ends, what event will be triggered? Or, if there is not such an event, can I define one? Besides, how can I utilize the event to fulfill some purposes.?For example, I'd like to back up some files when the program terminates, what should I do? I do appreciate if there is any sample. Thanks beforehand!

Edited by - kickbone on 8/29/2002 5:06:24 AM

Validate Event Not Triggered With SSTab
I placed 2 text boxes on one sheet of an SSTab control.
When the user switches tabs the Validate Event is not triggered.
Does any one have a solution?

Event Triggered By Any Keyboard Input
Is there a way to know when someone presses a key in the base application (i.e. not in a form). In a form I can use the keypress property but I'm trying (in Project98) to prevent a user from entering in any data into a certain cell. When the user trys to enter data, I want to activate a form that will aid the user in data entry. Any ideas would be greatly appriciated.

Winsock - How To Detect If DataArrival Event Is Not Triggered?
Hello,

I have a network monitor app that i am creating in VB6. I want to be able to detect if a connection is NOT made, and then call a subroutine based on that. If the connection is good, then I want to ignore it, and loop to the next socket to poll for a service.

The problem that I am faced with, is that I can not figure out how to get an event or create a function that will return if the socket does NOT connect..... Only if it does....

I tried to use the Winsock1_Connect function, however, it still returns true even if there is no server on my LAN with the specified address!

If anyone has any advice, it would be greatly appreciated... Thanks!

Userform Event Triggered While A Thread Running
I am embedding a userform within an existing VBA app (Excel). When the user clicks on "OK" button on the form I want to execute certain commands (writing to textfile and to an excel workbook).

The issue is that the program makes frequent and lengthy calls to an outside data vendor (Bloomberg) to download stock prices. Each of these calls can take 3-7 seconds.

What would happen if a user clicks on "OK" while the program is in middle of one of these data download process? Would the OK_Clicked event execute after the download is finished or does Excel invoke the code behind the event immediately?

Enter Triggered Text-box Event Problem
Is there a way to set a text box up so that pressing enter doesn't trigger an event on it?

Here's my code:

Code:
Private Sub GetName(Source As Integer)
cmdStart.Enabled = False
cmdExit.Enabled = False
txtHighScoreName(Source).SetFocus
txtHighScoreName(Source).Locked = False
txtHighScoreName(Source).Text = ""
Do
DoEvents
If (GetKeyState(vbEnter) And KEY_DOWN) Then
Exit Do
End If
Loop
If txtHighScoreName(Source).Text = "" Then
txtHighScoreName(Source).Text = "Anonymous"
End If
txtHighScoreName(Source).Locked = True
cmdStart.Enabled = True
cmdExit.Enabled = True
cmdStart.SetFocus

End Sub
I don't want the enter to trigger a text box event, because now when I press enter it just beeps at me, instead of continuing with this code.

Is Any Event Triggered On Click 2 Ur Program From TaskBar...
Hello there,

Does any one know if any event is triggered, once you minimize your window and
it goes to the task bar. To maximize it you re-click on your program from the taskbar. Is it possible to track this ReClick to Maximise...???

What Event Is Triggered When The Task Bar (taskbar) Is Resized?
Hi all,

New to this forum and relatively new to VB6 although i've had quite a bit of experience with VB.NET (wierd way of learning VB I know but hey, do what the job demands and all that!). Any way, nice to meet you all.

I have a problem designing an application that has to sit at the bottom of the screen. I've been able to get it resize itself when the screen size is changed using the WorkAreaWidth/WorkAreaHeight property of the err..., can't remember the object, but you know what I mean. This is great and when I change my screen size, there's the app stuck above the task bar like a good little executable. That's not my problem though. When I make my task bar bigger (when I need to view my quick launch toolbar, or I have many applications running, for example) then my application moves up with the task bar, and again sits perfectly where it should, but when i move the task bar down again it just stays where ever it was.

Am i correct in thinking that expanding the taskbar vertically will cause WorkAreaHeight to be changed like a complete resize, and that shrinking the taskbar will not fire it?

Is there an event that i can handle when the task bar is resized?

Searched MSDN like a fool and not found anything so any help would be great.

Thanks loads,

Jonny Tooze

Excel: Which Event Is Triggered When Renaming A Worksheet
Dear friends,

I wrote a macro and now i want to restrict the user that he can't rename/change the name of worksheet. So which event will be trigger when user rename the worksheet.

Thanx

ItemClick Event Not Triggered When Setting SelectedItem Property
Hi all!

I've built a VBA user form with a ListView control and some textBox controls. When a item is selected from the ListView, the TextBox controls display detailed information relating to the selected ListView item.

This works great when manually selecting an item, but I don't get it to behave in a similar way when I programmatically set the ListView's SelectedItem property in an attempt to display the detailed data for the first element in the list...

I did notice that the first element is actually selected in grey, but when you manually click it is selected in blue and the TextBoxes are correctly refreshed...

Does that make sense to anyone?

Thank you in advance!
Cheers,Edgard

Why AsyncProgress Event Is Triggered Twice When Press Print Button Once?
As normal when i press the print button in datareport, it will trigger AsyncProgress event once,parameter PageComplete=0.
But if the printer is off line,and i print it,and i received a message from system that the printer can not be accessed.
In this case , AsyncProgress event will be trigged twice.
first time parameter PageCompleted=0;and in second time PageCompleted=1.

Why it will be trigged second time? what's the exact meaning of parameter PageCompleted ?

In the PageCompleted Event i attached codes that only can be run once.If then event trigged more than once ,the codes will not bring out my results.

Embedded Chart Selected - Workbook Deactivate Event Not Triggered In VBA
It seems that if you have an embedded chart selected on a worksheet that the Workbook_Deactivate() event is not triggered.

Originally I thought this behavior was a coding error, so I set up a simple sheet with 1 chart on it and the Workbook_Deactivate() and Workbook_Activate() events with a Msgbox command in both events to indicate when I enter them. Turns out that if the chart is selected, the Workbook_Deactivate() event doesn't trigger when switching workbooks, but the Workbook_Activate() event does trigger when coming back in. When the chart is not selected, both trigger. This is really non-intuitive to me as you can't set a chart event on an embedded chart without creating an event class (as far as I know).

I did create an event class just to check it out and it works (myChartClass_Deactivate()). However, that means I would need to set every embedded chart in my workbook to the class??? and also set a Workbook_SheetActivate event to catch for when I just deselect a chart and do not leave the workbook ("If ActiveWorkbook.Name <> ThisWorkbook.Name Then ..." works as I only care about the chart deactivate event to indicate that I left the workbook).

This can't be correct. Am I missing something here or is that what you really need to do?

thx in advance

Is Form_unload Event Triggered When Restart Windows Without Closing Program First?
hi all..
Is the form_unload event triggerd when the user shut down / restart his windows without closing the program first?
If not, how can I make it triggered?

thanks very much

Using The Timer Event
can anyone send me a tell me a small tutorial about using the timer event procedure? what i want to do is create a program that has lblone.caption = "hello" then like 5 seconds later have a another label pop up that says "hello neo." sort of like the beginning of the matrix movie; if you can help me with using the timer event; it would be greatly appreciated
thanks

remember - the force is with you!

-dan berthelsen

Timer Event
As you can see in the attached picture, I have the cmdbutton "Verificati". When this button is clicked, in the text box "Cuvant in romana" is appearing the translation of the german word from the above text box. I want that when the cmdbutton "verificati" is clicked, the window to disapear, and appear after one minute, with another german word.(i want to randomize the appearing) and to make the window disapear after the cmdbutton "Verificati" is clicked.

Thank you very much

Edit: Screenshot didnt need to be so big

Timer Event
Hi,

I've written a piece of hardware interfacing code, where a certain array is populated with real time data from the hardware. On top of this sits a little winsock server, serving data as requested, to client connections, from this array.

On the other end (separate application), I'm using ioComp iPlotX graphing control, with a timer set to fire every 1ms (probably firing every 55ms actually) that queries the winsock server above and receives data. this happens on every timer event. when the data comes through, it is graphed using the control. The code is currently doing 4 iterations (data fetch->graph cycles) on every timer event.

All ok so far!

The problem is that (after poring over the code), the code doesn't seem to be able to exit the procedure before the next timer event is generated. Considering the code is small, I cannot see how this is happening. My basis for the above assumption is that debug.print shows a single entry into the procedure, two loops and then another entry into the procedure and so on... but no exit!

The code is below... any and all help is most welcome!!

Thanks,

Sid

Private Sub graphTimer_Timer()

Debug.Print "entry"

Dim strChannelTag As String

For dispChannel = 0 To Plot.ChannelCount - 1
' packet format will be - "Channel1, Channel2"
' send the channel tag directly

strChannelTag = frmGraphData.Plot.Channel(dispChannel).Tag

If isConnected Then

Debug.Print "in connected", dispChannel

' send the packet
EEGClient.SendData strChannelTag & "*"

' receive data packet
' packet format will be - "ChannelValue1, ChannelValue2*"
EEGClient.GetData strChannelValue

If Len(strChannelValue) > 0 Then
' get the position of the star
starPos = InStr(strChannelValue, "*")

' get the string before that point
strChannelValue = Left(strChannelValue, starPos - 1)
End If

' parse the packet
' get the position of the comma
commaPos = InStr(strChannelValue, ",")

' we have the position
' if there is no comma, value will be zero
' malformed packet will indicate comma at the end
' packet format will be - "Channel1, Channel2"
If commaPos = 0 Or commaPos = Len(strChannelValue) Then
Exit Sub
End If

' extract the channel numbers and convert them to
' numeric values
lngChannelOneValue = Val(Trim(Mid(strChannelValue, 1, commaPos)))
lngChannelTwoValue = Val(Trim(Mid(strChannelValue, commaPos + 1)))

End If

graphval = lngChannelOneValue - lngChannelTwoValue
X = Plot.Channel(dispChannel).AddXY(runningX, graphval)

Next dispChannel

runningX = runningX + 1

Debug.Print "exit"
dispChannel = 0
End Sub

Timer Event API
Is there an API.....wich I can use to replace the timer ?
I want to check the time and date....every 30 seconds....and if i reach a certain time and date i want an event to be triggerd.....
possible with the timer..... but i would prefer to use an API if possible....
doubt it is possible.... because the timer interval is also an event....don't think i can replace that with an API...
or am i wrong?

Timer Event
Help Me.....

Using Timer control we read data from Data Acquisition card every second and displaying the data in Graph Activex control. We set the interval of timer as 1000 msec, Eventhough we are unable to read data for every second i.e some time the timer event is missing.Please tell me how to use the timer efficiently so that I won't miss any data.

Timer Event
Hello all i need to ask a question regarding a timer. I need to use a timer that will take me from an introductory form to a second form and give it a few seconds to do so. I know how to to that - however the problem here is, there are 3 forms and once i go to the third form it will automatically take me back to the Second Form. How do i stop that??? Thanks all
Ed.

Timer Event
I want to write timer event such that after some specified time given the form should get unloaded.

I would be thankful if someone could help me out.

Thanks,

Question About A Timer Event
I have some code that is fired by a timer every 60 seconds.

I also have a command button that executes the same code as the timer.

I have the exact code placed in the above routines.

Is there a way to make the command button execute the code under the timers sub routine, so I don't have the exact same code written in two different areas?

Like when you press the command button, instead of executing Cmd_click, it executes the code under timer1_timer?

Hope this makes sense. I'm just trying to make my code look better, and compile a bit smaller.

Access TImer Event
If you havn't noticed, it seems that all my threads are related to Access 97. This is because in my position I work with many different databases. I have been trying on my spare time to learn from you guys in this forum.

Anyway, I would like to know if there is a way to reset the Timer. With the Access form I created, I have the Timer Eventn set to calculate the difference between the starttime (which starts on the Open Event) and the TimeNow = Format(Now, "hh:mm:ss"). In my next line of code I have: If DateDiff("s", starttime, TimeNow) = txtTime.Value Then MsgBox prompt:="It Works!", buttons:=vbOKOnly.

txtTime is a textbox which would get it's # from the user.

My problem is once the Msgbox appears and is cleared the time continues to count. I need for it to suspend or restart in case the user wants to change the number or go to a new record.

Any help would be great.

REMEMBER THAT I WILL BE WATCHING YOUR EVERY MOVE AND LEARNING!!!

Timer Event Problem
Hi,

I am having a crazy problem in VB 5.0. I have a timer in a form where the interval is set to 60000. But for some reason the timer event for the control is not firing. This is happening at random. What could be the reason or what should I do to avoid this problem? This is very urgent.

Thanks

Paul

Using The Timer Event , Help Needed
Hi
VB is easy when you know how, unfortunatly I don't know how
to do this:

My program needs to import a file every 2 hours without fail
from c:
eeldata_project , how do I use the timer to achieve
this as I have never used the timer before. The file is getting
loaded into an access data base ( which I have managed to do ).
This prog will run 24hrs a day.

Any help would be great.
Thanx, Locutus

How To Use Timer Event For Less Than 1 Milli Second?
Hi!
sometimes even if u give 100 for interval property, it is not working when u have more code than what it can do. But I have a small task to perform, every 1/2 milli second.
Can anybody suggest me?

Thanx in Advannce.
Jebs.

Timer Event Question
hi friends,
i have one timer control whose timer event gets fired after every 10 seconds. in the timer event i am calling one function
The same function is called on submit button.
i want to ask that suppose the user has clicked the button after 3 seconds of the timer event being fired so will the timer event get again fired after 7 seconds or will it wait for another 10 seconds coz in between button was clicked.

i hope u all got what i wanted to ask

ADO RecordSet Using Timer Event
Hi,

I have a ADO Recordset with List of Values..

Id Loc Posn
1 aaa 12
2 bbb 13
3 ccc 14

Now i want to Populate these values one by one in Text Box with Period of
Interval Using Timer Event.

Can you Pls help me how to do that?

Thanks in advance,

VKT

Question About Timer Event Functions
We have another programmer whose background is expertise in O.S. and windows functionality, in addition to being a C++ Guru. He is also helping me with my VB 6 programming.

He has expressed a lot of concern about the use of Timer Event functions and how I use them in my program. My data acquisition device is kinda remote control, I set it up, tell it to start a run, then call a function to read one register bit to see if the run is still busy OR done. The timer event for this call is every 15 seconds.

The call executes very quickly if the run is still busy, but when it is done I need to do a lot of other actions. He isn't comfortable with having all these actions performed INSIDE the timer event function. My code seems to work fine, but he says there must be another way to perform these other actions OUTSIDE the timer event function.

I understand that if I tried to perform these actions on a fast timer setting, there would be issues, but I don't care if the event fires every 15, 16, or 18 Seconds. The data run lasts 4 hours so what is a few seconds here or there ? My program has 3 timers as of today and all of them are long timeouts at 15, 12 and 55 seconds...

I've tried to research this issue and msdn doesn't say you can't have a lot of functionality inside timer event functions. In fact, they recommend it...

Display Images Using Timer Event
I'm stuck with the proper way to display images. My form gaot 9 images
image1 to image 9. I want to display only four images initially in the following order with a timer delay but don't get it right. Please help. Never sed timer before

Private Sub Timer1_Timer()

'===deal one card at a ime
z = PlaySound(App.Path & "/sounds/card.wav", 0)
if Image1.visible = false then image1.vissible = true

z = PlaySound(App.Path & "/sounds/card.wav", 0)
image1.vissible = true then Image7.visible = True

z = PlaySound(App.Path & "/sounds/card.wav", 0)
image7.vissible = true then Image2.visible = True

z = PlaySound(App.Path & "/sounds/card.wav", 0)
image2.vissible = true then Image8.visible = True
End Sub