main.frm

一个用VB编写的串口通信程序

VERSION 5.00
Begin VB.MDIForm main 
   BackColor       =   &H8000000C&
   Caption         =   "PCCon"
   ClientHeight    =   7620
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8760
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu file 
      Caption         =   "&File"
      Begin VB.Menu savedat 
         Caption         =   "&Save"
      End
      Begin VB.Menu exit 
         Caption         =   "&Exit"
      End
   End
   Begin VB.Menu view 
      Caption         =   "&View"
      Begin VB.Menu viewershow 
         Caption         =   "Viewer"
      End
   End
   Begin VB.Menu seriport 
      Caption         =   "&SeriPort"
      Begin VB.Menu sericonn 
         Caption         =   "Connect"
      End
      Begin VB.Menu sericlose 
         Caption         =   "Close"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Load controllor
controllor.Visible = True
controllor.WindowState = 2


viewer.Visible = False
Load viewer
End Sub



Private Sub MDIForm_Unload(Cancel As Integer)
Unload viewer
End Sub


Private Sub viewershow_Click()
viewer.Visible = True
End Sub