Question

VB实时数据显示

Private Sub Command5_Click()
Dim i As Integer
i = 1
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Add
xlapp.Visible = True
Set xlsheet = xlbook.Worksheets(1)
Do While MSComm1.PortOpen = True
If Text4.DataChanged = True Then
xlsheet.Cells(i, 1) = Text3.Text
xlsheet.Cells(i, 2) = Text4.Text
i = i + 1
End If
Loop
End Sub

我想用这段程序实现当text4数据有变化时，在excel表格显示当下的text3和text4，我的text3是显示的当下时间，text4显示的是COM1口接收的数据，这段程序就是想实现当COM1口接收数据有变化时，显示当下时间和接收的数据，但是我一直不能成功，求高手指点！拜托了！

Answer 1

If Text4.DataChanged = True Then

这句看起来怪怪的……如果Text4.DataChanged会变成true，那什么情况下会变成false？我不清楚textbox这个属性是干什么的，如果真有这个属性，要确认清楚这个属性是怎么变成false的，是不是要写代码处理？

再有，在循环里面加句 doevents ，要不你的循环一启动，程序就假死了，textbox还不知能否有机会刷新。

建议试试textbox的textchanged事件，看给text赋相同的值是否会触发事件，如果不会就OK了。再不就在com的接收事件里面做个static变量，发现数据不同再传出来

Answer 2

为什么要通过Text的改变来处理呢？换个思路，就是COM1口数据接收时，显示在excel中吧？
直接写在COM1口的数据接收事件内，不行么？

追问

COM1口一般传来的数据很长时间不变，这样很浪费，我希望数据接收有变化时才存储