frmsetup.frm

这是一本学习串口编程喝计算机监控的好书里面是用VB开发的源代码

VERSION 5.00
Begin VB.Form frmSetup 
   Caption         =   "COM/TCP Setup"
   ClientHeight    =   3765
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5730
   Icon            =   "frmSetup.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3765
   ScaleWidth      =   5730
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox Text1 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      Height          =   285
      Left            =   4560
      TabIndex        =   35
      Text            =   "Port"
      Top             =   2040
      Width           =   375
   End
   Begin VB.TextBox txtRemoteHost 
      Height          =   285
      Left            =   4560
      TabIndex        =   33
      ToolTipText     =   "RemoteHost"
      Top             =   2520
      Width           =   975
   End
   Begin VB.TextBox txtRemotePort 
      Height          =   285
      Left            =   5040
      TabIndex        =   32
      Top             =   2040
      Width           =   495
   End
   Begin VB.TextBox txtLocalPort 
      Height          =   285
      Left            =   4800
      TabIndex        =   31
      Top             =   1320
      Width           =   735
   End
   Begin VB.Frame Frame4 
      Caption         =   "Work Mode"
      Height          =   855
      Left            =   4440
      TabIndex        =   27
      Top             =   120
      Width           =   1095
      Begin VB.OptionButton optWorkMode 
         Caption         =   "Server"
         Height          =   195
         Index           =   1
         Left            =   120
         TabIndex        =   29
         Top             =   600
         Width           =   855
      End
      Begin VB.OptionButton optWorkMode 
         Caption         =   "Client"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   28
         Top             =   240
         Value           =   -1  'True
         Width           =   855
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Display Mode"
      Height          =   870
      Left            =   2640
      TabIndex        =   24
      Top             =   840
      Width           =   1650
      Begin VB.OptionButton optDisplayMode 
         Caption         =   "Hex"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   26
         Top             =   540
         Width           =   735
      End
      Begin VB.OptionButton optDisplayMode 
         Caption         =   "Char"
         Height          =   240
         Index           =   0
         Left            =   240
         TabIndex        =   25
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "&Flow Control"
      Height          =   1770
      Left            =   2640
      TabIndex        =   18
      Top             =   1800
      Width           =   1650
      Begin VB.OptionButton optFlow 
         Caption         =   "Xon/RTS"
         Height          =   255
         Index           =   3
         Left            =   180
         MaskColor       =   &H00000000&
         TabIndex        =   22
         Top             =   1245
         Width           =   1155
      End
      Begin VB.OptionButton optFlow 
         Caption         =   "RTS"
         Height          =   255
         Index           =   2
         Left            =   180
         MaskColor       =   &H00000000&
         TabIndex        =   21
         Top             =   945
         Width           =   735
      End
      Begin VB.OptionButton optFlow 
         Caption         =   "Xon/Xoff"
         Height          =   255
         Index           =   1
         Left            =   180
         MaskColor       =   &H00000000&
         TabIndex        =   20
         Top             =   645
         Width           =   1095
      End
      Begin VB.OptionButton optFlow 
         Caption         =   "None"
         Height          =   255
         Index           =   0
         Left            =   180
         MaskColor       =   &H00000000&
         TabIndex        =   19
         Top             =   345
         Width           =   855
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "Mode"
      Height          =   870
      Left            =   1680
      TabIndex        =   15
      Top             =   840
      Width           =   855
      Begin VB.OptionButton optMode 
         Caption         =   "Bin"
         Height          =   195
         Index           =   1
         Left            =   120
         MaskColor       =   &H00000000&
         TabIndex        =   17
         Top             =   540
         Width           =   555
      End
      Begin VB.OptionButton optMode 
         Caption         =   "Txt"
         Height          =   255
         Index           =   0
         Left            =   120
         MaskColor       =   &H00000000&
         TabIndex        =   16
         Top             =   240
         Width           =   615
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   300
      Left            =   4500
      MaskColor       =   &H00000000&
      TabIndex        =   14
      Top             =   3000
      Width           =   1080
   End
   Begin VB.ComboBox cboPort 
      Height          =   315
      Left            =   840
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   240
      Width           =   1425
   End
   Begin VB.Frame fraConnection 
      Caption         =   "Connection Preferences"
      Height          =   1770
      Left            =   120
      TabIndex        =   6
      Top             =   1800
      Width           =   2400
      Begin VB.ComboBox cboDataBits 
         Height          =   315
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   9
         Top             =   330
         Width           =   1140
      End
      Begin VB.ComboBox cboParity 
         Height          =   315
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   810
         Width           =   1140
      End
      Begin VB.ComboBox cboStopBits 
         Height          =   315
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   1260
         Width           =   1140
      End
      Begin VB.Label Label3 
         Caption         =   "Data Bits:"
         Height          =   285
         Left            =   180
         TabIndex        =   12
         Top             =   375
         Width           =   825
      End
      Begin VB.Label Label4 
         Caption         =   "Parity:"
         Height          =   285
         Left            =   180
         TabIndex        =   11
         Top             =   855
         Width           =   615
      End
      Begin VB.Label Label5 
         Caption         =   "Stop Bits:"
         Height          =   285
         Left            =   180
         TabIndex        =   10
         Top             =   1320
         Width           =   885
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Maximum Speed"
      Height          =   870
      Left            =   120
      TabIndex        =   4
      Top             =   840
      Width           =   1450
      Begin VB.ComboBox cboSpeed 
         Height          =   315
         Left            =   120
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   330
         Width           =   1200
      End
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   300
      Left            =   4500
      TabIndex        =   3
      Top             =   3360
      Width           =   1080
   End
   Begin VB.Frame Frame2 
      Caption         =   "DTR/RTS Enable"