total.frm

vb与三菱PLC的通信例子 对初学者很有用的

VERSION 4.00
Begin VB.Form Form2 
   Appearance      =   0  'Flat
   BackColor       =   &H0080FF80&
   Caption         =   "Form2"
   ClientHeight    =   4716
   ClientLeft      =   5688
   ClientTop       =   1584
   ClientWidth     =   3168
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   7.8
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   5100
   Left            =   5640
   LinkTopic       =   "Form2"
   ScaleHeight     =   4716
   ScaleWidth      =   3168
   Top             =   1248
   Width           =   3264
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Frame1"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   400
         size            =   7.8
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   3885
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   2535
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   400
            size            =   7.8
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   1980
         Width           =   2175
      End
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   400
            size            =   7.8
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   5
         Text            =   "Text2"
         Top             =   2430
         Width           =   2175
      End
      Begin VB.TextBox Text3 
         Appearance      =   0  'Flat
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   400
            size            =   7.8
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Text            =   "Text3"
         Top             =   2880
         Width           =   2175
      End
      Begin VB.TextBox Text4 
         Appearance      =   0  'Flat
         BeginProperty Font 
            name            =   "MS Sans Serif"
            charset         =   0
            weight          =   400
            size            =   7.8
            underline       =   0   'False
            italic          =   0   'False
            strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   3
         Text            =   "Text4"
         Top             =   3330
         Width           =   2175
      End
      Begin GraphLib.Graph Graph1 
         Height          =   1455
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   2055
         _Version        =   65536
         _ExtentX        =   3625
         _ExtentY        =   2566
         _StockProps     =   96
         BorderStyle     =   1
         RandomData      =   1
         ColorData       =   0
         ExtraData       =   0
         ExtraData[]     =   0
         FontFamily      =   4
         FontSize        =   4
         FontSize[0]     =   200
         FontSize[1]     =   150
         FontSize[2]     =   100
         FontSize[3]     =   100
         FontStyle       =   4
         GraphData       =   0
         GraphData[]     =   0
         LabelText       =   0
         LegendText      =   0
         PatternData     =   0
         SymbolData      =   0
         XPosData        =   0
         XPosData[]      =   0
      End
   End
   Begin VB.Timer Timer1 
      Left            =   2160
      Top             =   4200
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Command1"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   400
         size            =   9.6
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   240
      TabIndex        =   0
      Top             =   4140
      Width           =   1425
   End
End
Attribute VB_Name = "Form2"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Command1_Click()
   Graph1.Visible = 0
   Text1.Visible = False
   Text2.Visible = False
   Text3.Visible = False
   Text4.Visible = False
   Form2.Enabled = 0
   Form2.Visible = 0
End Sub

Private Sub Form_Load()
 Form2.Caption = "戈