fd1.frm

一个用 VB 编写的基于串口通信的简单监测程序

VERSION 5.00
Begin VB.Form formlist 
   BackColor       =   &H80000001&
   Caption         =   "Form2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command1 
      BackColor       =   &H80000018&
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   11040
      TabIndex        =   2
      Top             =   8880
      Width           =   1215
   End
   Begin VB.ListBox List1 
      BackColor       =   &H80000018&
      Height          =   5100
      Left            =   3000
      TabIndex        =   0
      Top             =   2880
      Width           =   6735
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000001&
      Caption         =   "  请选择你要查看的站点"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   3120
      TabIndex        =   1
      Top             =   1560
      Width           =   6495
   End
End
Attribute VB_Name = "formlist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()

formcover.Show
formlist.Hide
End Sub

Private Sub Form_Load()
List1.AddItem "监测站点一"
List1.AddItem "监测站点二"
List1.AddItem "监测站点三 "
List1.AddItem "监测站点四"
List1.AddItem "监测站点五"
List1.AddItem "监测站点六"
List1.AddItem "监测站点七"
List1.AddItem "监测站点八"
List1.AddItem "监测站点九"
List1.AddItem "监测站点十"

End Sub

Private Sub List1_DblClick()
formlist.Hide
Select Case List1.ListIndex
  Case 0
    j = 1
    formshow.Show
    formshow.Caption = "监测站点一"
    
  Case 1
    j = 2
    formshow.Show
    formshow.Caption = "监测站点二"
  Case 2
    j = 3
    formshow.Show
    formshow.Caption = "监测站点三"
  Case 3
    j = 4
    formshow.Show
    formshow.Caption = "监测站点四"
  Case 4
    j = 5
    formshow.Show
    formshow.Caption = "监测站点五"
  Case 5
    j = 6
    formshow.Show
    formshow.Caption = "监测站点六"
  Case 6
    j = 7
    formshow.Show
    formshow.Caption = "监测站点七"
  Case 7
    j = 8
    formshow.Show
    formshow.Caption = "监测站点八"
  Case 8
    j = 9
    formshow.Show
    formshow.Caption = "监测站点九"
  Case 9
    j = 10
    formshow.Show
    formshow.Caption = "监测站点十"
  
End Select
formshow.Command2_Click
End Sub