
In my last blog post, I described how to use the Progress Bar control to provide feedback to a user when running time intensive processes. In addition to the Progress Bar control, the Animate control can also be used.
Animate Control
The Animate control is very simple to use. A number of animations are inlcuded to cover standard operations such as moving or coping and deleteing items, and some other additional animations.
After adding the control to the form, choose one of the standard animations from the “CommonAVI” property of the form. I also set the visble property, and the Active property to false at design-time, so that I can turn both properties on in code to make visible and start the animation.
I’ve used my code example from last week, and included a call to a control named “Animate1” on the form.
Sub UpdateAccounts
Dim rs
Set rs = CreateObject(“ADODB.Recordset”)
With rs, pos
pos = 0
Set .ActiveConnection = Application.GetNewConnection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open “select * from Account where status <> ‘Open'”
ProgressBar1.Max = .RecordCount
ProgressBar1.Position = pos
.MoveFirst
Animate1.Visible = True
Animate1.Position = True
While Not (.Bof or .Eof)
.Fields(“modifyuser”).Value = Application.BasicFunctions.CurrentUserID
.Fields(“modifydate”).Value = Now
.Fields(“status”).Value = “Open”
.Update
pos = pos + 1
ProgressBar1.Position = pos
.MoveNext
Wend
.Close
Animate1.Visible = False
Animate1.Active = False
End With
Set rs = Nothing
End Sub
In addition to the available preset animations, you can also use the Animate control to disaply an AVI file instead. To do this, you’ll want to set the “CommonAVI” to aviNone, and then enter the path and file name for the AVI file you would like to display. The Animate and Visible properties will function the same regardless of the animation source.
(the clock.avi under c:windows is a simple avi displaying a running count from 1 to 10.
That’s all there is to it. The Animate control is a very simple way to spruse up your views when performing time-consuming updates. Thanks for reading! [:)]
Subscribe To Our Newsletter
Join our mailing list to receive the latest Infor CRM (Saleslogix) and Creatio (bpm'online) news and product updates!
You have Successfully Subscribed!