串口编程调试代码》之三

串口编程调试代码》之三

最后一个form（dlgsetting）  


Private Sub cmdCancel_Click()  
      
    dlgSetting.Hide  
    Unload dlgSetting  

End Sub  

Private Sub cmdOk_Click()  
         
    On Error GoTo SettingError  
         
    intPort = Val(dlgSetting.txtPort.Text)  
    intTime = Val(dlgSetting.txtTime.Text)  
    strSet = dlgSetting.txtSetting.Text  
      
      
      
    If Not frmMain.ctrMSComm.PortOpen Then  
         
        frmMain.ctrMSComm.CommPort = intPort  
        frmMain.ctrMSComm.Settings = strSet  
        frmMain.ctrMSComm.PortOpen = True  
    End If  
      
    If Not blnAutoSendFlag And Not blnReceiveFlag Then  
        frmMain.ctrMSComm.PortOpen = False  
    End If  
    dlgSetting.Hide  
    Unload dlgSetting  
      
    Exit Sub  
      
SettingError:  
    intPort = 2  
    intTime = 1000  
    strSet = "9600,n,8,1"  
    dlgSetting.Show  
    dlgSetting.txtPort.Text = str(intPort)  
    dlgSetting.txtSetting.Text = strSet  
    dlgSetting.txtTime.Text = str(intTime)  
      
    MsgBox (Error(Err.Number))  
      
End Sub  


Private Sub Form_Load()  

End Sub  

串口编程调试代码所有的代码全部发给了大家，希望各位大虾提出批评和指导，希望能和各路高手一同谈讨，学习！