Execution Patterns - SQL Server Integration Services Design Patterns - page 98

End With
End Sub
Sub btnSelectClick()
' if the image index level indicates a package,
' select this node, populate the sFullSSISPkgPath
variable,
' and close the form
With frmISTree
If Not .tvCatalog.SelectedNode Is Nothing Then
If .tvCatalog.SelectedNode.ImageIndex = 3
Then
sFullSSISPkgPath = .txtServer.Text & "." & _
.tvCatalog.SelectedNode.FullPath
.Close()
End If
End If
End With
End Sub
Sub tvCatalogDoubleClick()
' run the Select Click logic
With frmISTree
btnSelectClick()
End With
End Sub
End Module
All the action in this module happens in the subroutines that populate the
TreeView control ( btnConnectClick ) and select the node ( bt-