Lỗi hiển thị trên VB

**caremlanh** · 06-07-2011, 03:07 PM

Thank anh tdm, nhưng em dùng VB 6.0 và cũng sửa được lỗi rồi
sửa lại đoạn code VB sau:

Code:

Private Sub MSComm1_OnComm()
    Dim InputText As String
    If Me.MSComm1.CommEvent = comEvReceive Then
        InputText = MSComm1.Input
        If InputText = Chr(10) Then 'neu la ky tu \n
            txtOutput.Text = txtOutput.Text & vbNewLine 'thi xuong hang
        End If
        
        txtOutput.Text = txtOutput.Text + InputText
        txtOutput.SelStart = Len(txtOutput.Text)
    End If
End Sub

06-07-2011, 03:07 PM	#5
caremlanh Đệ tử 3 túi Tham gia ngày: Jul 2010 Nơi Cư Ngụ: hcm Bài gửi: 52 :	Đã giải quyết xong Thank anh tdm, nhưng em dùng VB 6.0 và cũng sửa được lỗi rồi sửa lại đoạn code VB sau: Code: Private Sub MSComm1_OnComm() Dim InputText As String If Me.MSComm1.CommEvent = comEvReceive Then InputText = MSComm1.Input If InputText = Chr(10) Then 'neu la ky tu \n txtOutput.Text = txtOutput.Text & vbNewLine 'thi xuong hang End If txtOutput.Text = txtOutput.Text + InputText txtOutput.SelStart = Len(txtOutput.Text) End If End Sub thay đổi nội dung bởi: caremlanh, 23-08-2011 lúc 02:47 PM.