Question

VB 把一个未知的整数型变量 存到一个数组 在分别提取数组里的元素 分别显示

Select Case MSComm1.CommEvent
Case comEvReceive
Dim hk As Variant
hk = MSComm1.Input
Text1.Text = Text1.Text & hk 我想把hk存到一个数组 在从数组按顺序读出该读的数 怎么解决 本串口是以文本方式接收

Answer 1

Dim HK As String
Dim A() As String
Private Sub Command1_Click()
MSComm1.Output = Text2.Text
End Sub

Private Sub Form_Load()

Dim i, j As Integer
MSComm1.CommPort = 1

MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeText

MSComm1.RThreshold = 1
MSComm1.InputLen = 1
MSComm1.EOFEnable = True
End Sub

Private Sub Timer1_Timer()
i = i + 1
ReDim Preserve A(i)
A(i) = MSComm1.Input
For j = 1 To i

Text1.Text = Text1.Text & A(j)
Next
End Sub
直接运行就可，看看是不是你要的结果

追问

定时器里面的代码 在定时器里不可用 也不显示 在MSComm1控件里可用 数据不会更新

追答

你把整段程序拷过去，定时器设置间隔500，我这是可以运行的