We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Form_Load() Dim view As Object ' extablish connection of client with PCB On Error GoTo NoPCBStarted ' Connect to a running instance of PowerPCB server Set powerPCBApp = GetObject(, "PowerPCB.Application") Set powerPCBDoc = powerPCBApp.ActiveDocument If CheckPCBVersion() = False Then MsgBox "This software requires 'PADS Layout v. 5.3' or later. Some functions may not work with your currently loaded version of " & _ powerPCBApp.Version, vbInformation End If 'zoom to full board view Set view = powerPCBDoc.ActiveView view.SetExtentsToBoard Set view = Nothing ' clear all selections in PCB powerPCBDoc.SelectObjects ppcbObjectTypeAll, "*", False ' bring up client as the active application in ' normal state on the desktop AppActivate "MainBoard_Client" Me.WindowState = vbNormal Exit Sub NoPCBStarted: MsgBox "Unable to connect to PowerPCB", vbCritical End End Sub
|GPO to push shortcuts to computers in the domain||5||35|
|Windows 7 - How to get rid of the name of the last person to log onto the pc||2||41|
|Random empty folders on my backup drive??||10||23|
|Chocolatey with PowerShell is not working again||2||29|