home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / EXECUTE.FR_ / EXECUTE.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1.8 KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form frmExecute 
  3.    Caption         =   "Command to Execute"
  4.    Height          =   1755
  5.    Left            =   1155
  6.    LinkMode        =   1  'Source
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   1350
  9.    ScaleWidth      =   6180
  10.    Top             =   3570
  11.    Width           =   6300
  12.    Begin CommandButton cmdCancel 
  13.       Cancel          =   -1  'True
  14.       Caption         =   "Cancel"
  15.       Height          =   495
  16.       Left            =   4920
  17.       TabIndex        =   2
  18.       Top             =   720
  19.       Width           =   1095
  20.    End
  21.    Begin ComboBox cboExecuteString 
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       ForeColor       =   &H00000000&
  29.       Height          =   300
  30.       Left            =   120
  31.       TabIndex        =   1
  32.       Top             =   240
  33.       Width           =   4695
  34.    End
  35.    Begin CommandButton cmdOK 
  36.       Caption         =   "OK"
  37.       Default         =   -1  'True
  38.       Enabled         =   0   'False
  39.       Height          =   495
  40.       Left            =   4920
  41.       TabIndex        =   0
  42.       Top             =   120
  43.       Width           =   1095
  44.    End
  45. Option Explicit
  46. Sub cboExecuteString_Change ()
  47.     cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
  48. End Sub
  49. Sub cboExecuteString_Click ()
  50.     cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
  51. End Sub
  52. Sub cmdCancel_Click ()
  53.     Unload frmExecute
  54. End Sub
  55. Sub cmdOK_Click ()
  56. On Error Resume Next
  57.     frmMain.txtData.LinkExecute cboExecuteString.Text
  58.     frmMain.picData.LinkExecute cboExecuteString.Text
  59. End Sub
  60.