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

📄 receive.frm

📁 这是我读研的时候用VB开发的一个与基于CAN-PCI5121的通讯小程序
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Receive 
   Caption         =   "Form1"
   ClientHeight    =   7905
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9405
   LinkTopic       =   "Form1"
   ScaleHeight     =   7905
   ScaleWidth      =   9405
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   8520
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Receive.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Receive.frx":0112
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Receive.frx":025A
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Receive.frx":03EC
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Receive.frx":1F3E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   585
      Left            =   0
      TabIndex        =   35
      Top             =   0
      Width           =   4155
      _ExtentX        =   7329
      _ExtentY        =   1032
      ButtonWidth     =   1455
      ButtonHeight    =   926
      Appearance      =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   5
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打开设备"
            Key             =   "OpenDevice"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭设备"
            Key             =   "CloseDevice"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "Save"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "Fresh"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
            ImageIndex      =   2
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame1 
      Caption         =   " 发送数据帧 "
      Height          =   1230
      Left            =   120
      TabIndex        =   23
      Top             =   6360
      Width           =   8595
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   7080
         TabIndex        =   34
         Text            =   "00000080"
         Top             =   318
         Width           =   1215
      End
      Begin VB.TextBox Text4 
         Height          =   285
         Left            =   840
         TabIndex        =   33
         Text            =   "66 66 66 66 66 66 66 66 "
         Top             =   800
         Width           =   3855
      End
      Begin VB.ComboBox Combo5 
         Height          =   300
         ItemData        =   "Receive.frx":209C
         Left            =   5280
         List            =   "Receive.frx":20A6
         Style           =   2  'Dropdown List
         TabIndex        =   32
         Top             =   310
         Width           =   1095
      End
      Begin VB.ComboBox Combo4 
         Height          =   300
         ItemData        =   "Receive.frx":20BA
         Left            =   3120
         List            =   "Receive.frx":20C4
         Style           =   2  'Dropdown List
         TabIndex        =   31
         Top             =   310
         Width           =   1215
      End
      Begin VB.ComboBox Combo3 
         Height          =   300
         ItemData        =   "Receive.frx":20D8
         Left            =   1080
         List            =   "Receive.frx":20E8
         Style           =   2  'Dropdown List
         TabIndex        =   30
         Top             =   310
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "发送"
         Height          =   330
         Left            =   4920
         TabIndex        =   24
         Top             =   760
         Width           =   870
      End
      Begin VB.Label Label7 
         Caption         =   "数据:"
         Height          =   240
         Left            =   240
         TabIndex        =   29
         Top             =   840
         Width           =   555
      End
      Begin VB.Label Label6 
         Caption         =   "帧ID:"
         Height          =   195
         Left            =   6480
         TabIndex        =   28
         Top             =   360
         Width           =   585
      End
      Begin VB.Label Label5 
         Caption         =   "帧格式:"
         Height          =   195
         Left            =   4440
         TabIndex        =   27
         Top             =   360
         Width           =   765
      End
      Begin VB.Label Label4 
         Caption         =   "帧类型:"
         Height          =   195
         Left            =   2280
         TabIndex        =   26
         Top             =   360
         Width           =   810
      End
      Begin VB.Label Label3 
         Caption         =   "发送格式:"
         Height          =   240
         Left            =   120
         TabIndex        =   25
         Top             =   360
         Width           =   960
      End
   End
   Begin VB.CommandButton Connect 
      Caption         =   "连接"
      Height          =   330
      Left            =   5400
      TabIndex        =   22
      Top             =   1035
      Width           =   1005
   End
   Begin VB.Frame Frame6 
      Caption         =   "信息"
      Height          =   3015
      Left            =   120
      TabIndex        =   20
      Top             =   3240
      Width           =   9015
      Begin VB.ListBox List1 
         Height          =   2580
         Left            =   120
         TabIndex        =   21
         Top             =   240
         Width           =   8655
      End
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      ItemData        =   "Receive.frx":2118
      Left            =   3720
      List            =   "Receive.frx":2122
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   1035
      Width           =   1185
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   8760
      Top             =   2520
   End
   Begin VB.CommandButton Command3 
      Caption         =   "复位CAN"
      Height          =   330
      Left            =   7440
      TabIndex        =   2
      Top             =   2040
      Width           =   1005
   End
   Begin VB.CommandButton Command2 
      Caption         =   "启动CAN"
      Height          =   330
      Left            =   7440
      TabIndex        =   1
      Top             =   1200
      Width           =   1005
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "Receive.frx":212E
      Left            =   1440
      List            =   "Receive.frx":214A
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   1020
      Width           =   1050
   End
   Begin VB.Frame Frame2 
      Caption         =   "设备参数"
      Height          =   2295
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   6855
      Begin VB.Frame Frame3 
         Caption         =   "初始化CAN参数"
         Height          =   1335
         Left            =   120
         TabIndex        =   5
         Top             =   840
         Width           =   6615
         Begin VB.ComboBox Combo7 
            Height          =   300
            ItemData        =   "Receive.frx":216E
            Left            =   5280
            List            =   "Receive.frx":2178
            Style           =   2  'Dropdown List
            TabIndex        =   11
            Top             =   840
            Width           =   1215
         End
         Begin VB.ComboBox Combo6 
            Height          =   300
            ItemData        =   "Receive.frx":2190
            Left            =   5280
            List            =   "Receive.frx":219A
            Style           =   2  'Dropdown List
            TabIndex        =   10
            Top             =   360
            Width           =   1215
         End
         Begin VB.TextBox Text6 
            Height          =   285
            Left            =   3360
            TabIndex        =   9
            Text            =   "ff"
            Top             =   840
            Width           =   855
         End
         Begin VB.TextBox Text5 
            Height          =   285
            Left            =   1200
            TabIndex        =   8
            Text            =   "87"
            Top             =   840
            Width           =   855
         End
         Begin VB.TextBox Text3 
            Height          =   285
            Left            =   3360
            TabIndex        =   7
            Text            =   "FFFFFFFF"

⌨️ 快捷键说明

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