home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / execute.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.4 KB  |  79 lines
  1. VERSION 4.00
  2. Begin VB.Form frmExecute 
  3.    Caption         =   "Command to Execute"
  4.    ClientHeight    =   1410
  5.    ClientLeft      =   1185
  6.    ClientTop       =   3885
  7.    ClientWidth     =   6240
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   1815
  18.    Left            =   1125
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   1410
  22.    ScaleWidth      =   6240
  23.    Top             =   3540
  24.    Width           =   6360
  25.    Begin VB.CommandButton cmdCancel 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Cancel"
  28.       Height          =   495
  29.       Left            =   4920
  30.       TabIndex        =   2
  31.       Top             =   720
  32.       Width           =   1095
  33.    End
  34.    Begin VB.ComboBox cboExecuteString 
  35.       BeginProperty Font 
  36.          name            =   "MS Sans Serif"
  37.          charset         =   1
  38.          weight          =   400
  39.          size            =   8.25
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   &H00000000&
  45.       Height          =   300
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   240
  49.       Width           =   4695
  50.    End
  51.    Begin VB.CommandButton cmdOK 
  52.       Caption         =   "OK"
  53.       Default         =   -1  'True
  54.       Enabled         =   0   'False
  55.       Height          =   495
  56.       Left            =   4920
  57.       TabIndex        =   0
  58.       Top             =   120
  59.       Width           =   1095
  60.    End
  61. Attribute VB_Name = "frmExecute"
  62. Attribute VB_Creatable = False
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65. Private Sub cboExecuteString_Change()
  66.     cmdOK.Enabled = (LenB(cboExecuteString.Text) > 0)
  67. End Sub
  68. Private Sub cboExecuteString_Click()
  69.     cmdOK.Enabled = (LenB(cboExecuteString.Text) > 0)
  70. End Sub
  71. Private Sub cmdCancel_Click()
  72.     Unload frmExecute
  73. End Sub
  74. Private Sub cmdOK_Click()
  75. On Error Resume Next
  76.     frmMain.txtData.LinkExecute cboExecuteString.Text
  77.     frmMain.picData.LinkExecute cboExecuteString.Text
  78. End Sub
  79.