WeibullDataSet.HideCalculationProgress: Difference between revisions
		
		
		
		Jump to navigation
		Jump to search
		
Albert Szeto (talk | contribs) No edit summary  | 
				Kate Racaza (talk | contribs) No edit summary  | 
				||
| (12 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
{{Template:  | {{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}  | ||
<onlyinclude>Occurs when the calculation process is running. Hides the progress bar.</onlyinclude>   | |||
{{Template:API_EventsNote}}  | |||
== Syntax ==  | |||
 '''_HideCalculationProgress'''()  | |||
{{APIComment|  | == Example ==  | ||
The following example provides a simple demonstration on how to customize the event procedure.  | |||
 '''VBA'''  | |||
 {{APIComment|'Specify a variable to handle the event.}}  | |||
   {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet  | |||
 {{APIComment|'----------------------------}}  | |||
  {{APIPrefix|Sub}} Main()  | |||
   {{APIComment|'Associate the event variable with an object.}}  | |||
     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet  | |||
   {{APIComment|'Set the application to use your event procedure.}}  | |||
     wds.UseEvents = True  | |||
   {{APIComment|'To trigger the event, calculate a data set.}}  | |||
     {{APIPrefix|Call}} wds.AddFailure(100, 1)  | |||
     {{APIPrefix|Call}} wds.AddFailure(120, 1)  | |||
     {{APIPrefix|Call}} wds.AddFailure(130, 1)    | |||
     {{APIPrefix|Call}} wds.AddFailure(160, 1)   | |||
     {{APIPrefix|Call}} wds.AddFailure(190, 1)   | |||
     wds.Calculate  | |||
     Msgbox({{APIString|"End"}})  | |||
  {{APIPrefix|End Sub}}  | |||
 {{APIComment|'----------------------------}}  | |||
  {{APIPrefix|Private Sub}} wds_HideCalculationProgress()  | |||
   {{APIComment|'<Add code here to handle the event.>}}  | |||
     MsgBox ("HideCalculationProgress event")  | |||
  {{APIPrefix|End Sub}}  | |||
{{APIComment|  |  '''VB.NET'''  | ||
 {{APIComment|'Specify a variable to handle the event.}}  | |||
   {{APIPrefix|Private WithEvents}} wds {{APIPrefix|As}} WeibullDataSet  | |||
 {{APIComment|'----------------------------}}  | |||
  {{APIPrefix|Sub}} Main()  | |||
   {{APIComment|'Associate the event variable with an object.}}  | |||
     wds = {{APIPrefix|New}} WeibullDataSet  | |||
   {{APIComment|'Set the application to use your event procedure.}}  | |||
     wds.UseEvents = True  | |||
   {{APIComment|'To trigger the event, calculate a data set.}}  | |||
     wds.AddFailure(100, 1)  | |||
     wds.AddFailure(120, 1)  | |||
     wds.AddFailure(130, 1)    | |||
     wds.AddFailure(160, 1)   | |||
     wds.AddFailure(190, 1)   | |||
     wds.Calculate  | |||
     Msgbox({{APIString|"End"}})  | |||
  {{APIPrefix|End Sub}}  | |||
 {{APIComment|'----------------------------}}  | |||
  {{APIPrefix|Private Sub}} wds_HideCalculationProgress() {{APIPrefix|Handles}} wds.HideCalculationProgress  | |||
   {{APIComment|'<Add code here to handle the event.>}}  | |||
     MsgBox ("HideCalculationProgress event")  | |||
  {{APIPrefix|End Sub}}  | |||
Latest revision as of 23:41, 6 September 2016
![]()  | 
Member of:  SynthesisAPI.WeibullDataSet   
Occurs when the calculation process is running. Hides the progress bar. 
Remarks: To hide the messages or write your own code for the event procedure, set the UseEvents property of the object to True. The event is raised by the class methods.
Syntax
_HideCalculationProgress()
Example
The following example provides a simple demonstration on how to customize the event procedure.
VBA 'Specify a variable to handle the event. Private WithEvents wds As WeibullDataSet '---------------------------- Sub Main() 'Associate the event variable with an object. Set wds = New WeibullDataSet 'Set the application to use your event procedure. wds.UseEvents = True 'To trigger the event, calculate a data set. Call wds.AddFailure(100, 1) Call wds.AddFailure(120, 1) Call wds.AddFailure(130, 1) Call wds.AddFailure(160, 1) Call wds.AddFailure(190, 1) wds.Calculate Msgbox("End") End Sub '---------------------------- Private Sub wds_HideCalculationProgress() '<Add code here to handle the event.> MsgBox ("HideCalculationProgress event") End Sub
VB.NET 'Specify a variable to handle the event. Private WithEvents wds As WeibullDataSet '---------------------------- Sub Main() 'Associate the event variable with an object. wds = New WeibullDataSet 'Set the application to use your event procedure. wds.UseEvents = True 'To trigger the event, calculate a data set. wds.AddFailure(100, 1) wds.AddFailure(120, 1) wds.AddFailure(130, 1) wds.AddFailure(160, 1) wds.AddFailure(190, 1) wds.Calculate Msgbox("End") End Sub '---------------------------- Private Sub wds_HideCalculationProgress() Handles wds.HideCalculationProgress '<Add code here to handle the event.> MsgBox ("HideCalculationProgress event") End Sub
