Chapter 1 -- 13
Discover ActiveX Automation for your labeling software
For example, add the following code to the
MyDoc_ProgressPrint event procedure:
Private Sub MyDoc_ProgressPrinting (ByVal Percent as
integer,Cancel as integer)
lblPercentDone.caption = CInt (100 * Percent) & “%”
DoEvents
If mblnCancel Then Cancel = True
End Sub
Whenever the ProgressPrinting event is raised, the event
procedure displays the percent complete in a Label control. The
DoEvent statement allows event processing to occur. The
module-level variable mblnCancel is set to True, and the
MyDoc_ProgressPrinting event then tests it and sets the
ByRef Cancel argument to True.
When you declare a variable WithEvents at design time, there
is no object associated with it. A WithEvents variable is j ust like
any other object variable. You have to create an object and
assign a reference to the object to the WithEvents variable.
Add the following code to the Form_Load event procedure to
create the LabelManager2.Application.
Private Sub Form_Load()
Set MyApp = New LabelManager2.Application
Set MyDoc = MyDoc.Documents.Add (”My Document”)
MyApp.EnableEvents = True
End Sub
When the code above is executed, Visual Basic creates a
LabelManager2.Application and a new document called “My
Document” then connects its events to the event procedures
associated with MyDoc. From that point on, whenev er the
MyDoc raises its ProgressingPrinting event, the
MyDoc_PrintProgressing event procedure will be executed.
Connecting a
WithEvents
variable to an
object
To Next Page
Loading...