ab.frm

vb与AB PLC通讯源码

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form ab 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "DF1"
   ClientHeight    =   3510
   ClientLeft      =   4095
   ClientTop       =   6330
   ClientWidth     =   4770
   ForeColor       =   &H80000008&
   LinkTopic       =   "Form2"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3510
   ScaleWidth      =   4770
   Begin MSCommLib.MSComm Comm1 
      Left            =   1920
      Top             =   1320
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
End
Attribute VB_Name = "ab"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Form_Load()

 Comm1.PortOpen = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

 Comm1.PortOpen = False

End Sub