⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 form1.frm

📁 VB与欧姆龙PLC通过RS-232串口通讯 的上位机程序
💻 FRM
📖 第 1 页 / 共 5 页
字号:
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Index           =   6
         Left            =   4800
         TabIndex        =   22
         Top             =   2160
         Width           =   1095
      End
      Begin VB.Label lblch 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "4#"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   240
         Index           =   3
         Left            =   5160
         TabIndex        =   21
         Top             =   2760
         Width           =   315
      End
      Begin VB.Shape shpcw 
         BorderColor     =   &H0000FFFF&
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   135
         Index           =   6
         Left            =   5280
         Shape           =   3  'Circle
         Top             =   3240
         Width           =   135
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "设定值"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   270
         Index           =   5
         Left            =   3285
         TabIndex        =   20
         Top             =   960
         Width           =   1005
      End
      Begin VB.Label lblxs 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Index           =   5
         Left            =   3240
         TabIndex        =   19
         Top             =   1320
         Width           =   1095
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "下料量"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   270
         Index           =   4
         Left            =   3285
         TabIndex        =   18
         Top             =   1800
         Width           =   1005
      End
      Begin VB.Label lblxs 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Index           =   4
         Left            =   3240
         TabIndex        =   17
         Top             =   2160
         Width           =   1095
      End
      Begin VB.Label lblch 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "3#"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   240
         Index           =   2
         Left            =   3600
         TabIndex        =   16
         Top             =   2760
         Width           =   315
      End
      Begin VB.Shape shpcw 
         BorderColor     =   &H0000FFFF&
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   135
         Index           =   4
         Left            =   3720
         Shape           =   3  'Circle
         Top             =   3240
         Width           =   135
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "设定值"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   270
         Index           =   3
         Left            =   1725
         TabIndex        =   15
         Top             =   960
         Width           =   1005
      End
      Begin VB.Label lblxs 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Index           =   3
         Left            =   1680
         TabIndex        =   14
         Top             =   1320
         Width           =   1095
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H000000FF&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "下料量"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   270
         Index           =   2
         Left            =   1725
         TabIndex        =   13
         Top             =   1800
         Width           =   1005
      End
      Begin VB.Label lblxs 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Index           =   2
         Left            =   1680
         TabIndex        =   12
         Top             =   2160
         Width           =   1095
      End
      Begin VB.Label lblch 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "2#"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   240
         Index           =   1
         Left            =   2040
         TabIndex        =   11
         Top             =   2760
         Width           =   315
      End
      Begin VB.Shape shpcw 
         BorderColor     =   &H0000FFFF&
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   135
         Index           =   2
         Left            =   2160
         Shape           =   3  'Circle
         Top             =   3240
         Width           =   135
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00E0E0E0&
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   255
         Index           =   13
         Left            =   -360
         Shape           =   3  'Circle
         Top             =   5280
         Width           =   255
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00000080&
         BorderWidth     =   2
         X1              =   -120
         X2              =   15240
         Y1              =   6000
         Y2              =   6000
      End
      Begin VB.Image Imgc 
         Height          =   1695
         Left            =   12210
         Picture         =   "Form1.frx":0442
         Stretch         =   -1  'True
         Top             =   4320
         Width           =   1575
      End
      Begin VB.Shape shpcw 
         BorderColor     =   &H0000FFFF&
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   135
         Index           =   0
         Left            =   600
         Shape           =   3  'Circle
         Top             =   3240
         Width           =   135
      End
      Begin VB.Label lblch 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         Caption         =   "1#"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   240
         Index           =   0
         Left            =   480
         TabIndex        =   10
         Top             =   2760
         Width           =   315
      End
      Begin VB.Label lblxs 
         Alignment       =   2  'Center
         BackColor       =   &H0000FF00&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "000"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -