Article | 41023723 |
Type | HowTo |
Product | Engine |
Version | 5.0.0.1033 |
Date Added | 9/29/2004 |
Submitted by | Barry E. Mielke |
Keywords |
Private Sub Command1_Click() VDPro1.CommandAction.CmdLine "USER" End Sub Private Sub Command2_Click() VDPro1.CommandAction.CmdSelect "USER" VDPro1.CommandAction.CmdMove VDPro1.ActiveDocument.Selections.FindName("VDRAW_PREVIOUS_SELSET"), Array(0, 0, 0), Array(1, 1, 1) End Sub Private Sub VDPro1_JobKeyPress(ByVal JobID As Long, KeyAscii As Integer, Cancel As Integer) If KeyAscii = VBRUN.KeyCodeConstants.vbKeySpace Or KeyAscii = VBRUN.KeyCodeConstants.vbKeyReturn Then '[EnterKey]=13 or [SpaceBar]=32 Pressed VDPro1.PostCommandString "" VDPro1.PostCommandString "" End If End Sub