execute.frm

来自「labwindows 源码 CVI的 DDE数据交换源代码 这是CVI和VB2」· FRM 代码 · 共 74 行

VERSION 2.00
Begin Form frmExecute 
   Caption         =   "Command to Execute"
   ClientHeight    =   1350
   ClientLeft      =   1215
   ClientTop       =   3915
   ClientWidth     =   6180
   Height          =   1755
   Left            =   1155
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   1350
   ScaleWidth      =   6180
   Top             =   3570
   Width           =   6300
   Begin CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   495
      Left            =   4920
      TabIndex        =   2
      Top             =   720
      Width           =   1095
   End
   Begin ComboBox cboExecuteString 
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   120
      TabIndex        =   1
      Text            =   "ToggleAuto"
      Top             =   240
      Width           =   4695
   End
   Begin CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   495
      Left            =   4920
      TabIndex        =   0
      Top             =   120
      Width           =   1095
   End
End
Option Explicit

Sub cboExecuteString_Change ()
    cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
End Sub

Sub cboExecuteString_Click ()
    cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
End Sub

Sub cmdCancel_Click ()
    Unload frmExecute
End Sub

Sub cmdOK_Click ()
On Error Resume Next
    frmMain.txtData.LinkExecute cboExecuteString.Text
    If (cboExecuteString.Text = "ToggleAuto") Then
        gToggleAuto = Not gToggleAuto
    End If
    Unload frmExecute
End Sub