frmcom.frm

按摩椅软件开发示例,VB-PIC单片机通讯题,主要是串口通讯问题

VERSION 5.00
Begin VB.Form frmCOM 
   Caption         =   "frmCOM"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   Begin VB.CommandButton cmd_Cancel 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2040
      TabIndex        =   3
      Top             =   1080
      Width           =   975
   End
   Begin VB.CommandButton cmd_OK 
      Caption         =   "OK"
      Height          =   375
      Left            =   600
      TabIndex        =   2
      Top             =   1080
      Width           =   975
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   1800
      TabIndex        =   1
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label1 
      Height          =   615
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   1455
   End
End
Attribute VB_Name = "frmCOM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Cancel_Click()
Unload Me

    
    
End Sub

Private Sub cmd_OK_Click()
    COM_var = Combo1
    Unload Me
    
    
    
End Sub

Private Sub Form_Load()
        Left = 0
        Top = 0
        Width = 4000       '//窗体最大化
        Height = 2000
  
  
  Label1.Caption = "COM PORT:"
    
         Combo1.Text = "COM1"
         COM_var = Combo1.Text
         Combo1.AddItem ("COM1")
         Combo1.AddItem ("COM2")
         Combo1.AddItem ("COM3")
         Combo1.AddItem ("COM4")
         Combo1.AddItem ("COM5")
         Combo1.AddItem ("COM6")
         Combo1.AddItem ("COM7")
         Combo1.AddItem ("COM8")
         Combo1.AddItem ("COM9")
         Combo1.AddItem ("COM10")
          
            
       
         
End Sub