HitCount Property
Description
Read Only: Returns the number of hits currently shown in the readouts window
Property type
Read-only property
Syntax
| Visual Basic |
|---|
Public Property HitCount As Long |
Example
Private Sub CommandHitCount()
' This subroutine returns the number of hits
Dim App As PCDLRN.Application
Set App = CreateObject("PCDLRN.Application")
Dim Part As PCDLRN.PartProgram
Set Part = App.ActivePartProgram
Dim DRO As PCDLRN.ReadoutWindow
Set DRO = Part.GetReadoutWindow(1)
MsgBox "Numhits = " & DRO.HitCount
End Sub
' This subroutine returns the number of hits
Dim App As PCDLRN.Application
Set App = CreateObject("PCDLRN.Application")
Dim Part As PCDLRN.PartProgram
Set Part = App.ActivePartProgram
Dim DRO As PCDLRN.ReadoutWindow
Set DRO = Part.GetReadoutWindow(1)
MsgBox "Numhits = " & DRO.HitCount
End Sub
See Also