vb控件之文本框.docVIP

关于如何将文本框内容加载到combo中。 案例：一个文本框text1，里面有若干行的内容。每隔一秒，把这个文本框中的某一行内容输入到combo1的text。输入第二行到combo1时自动清除原来输入的内容。从第一行开始，循环输入直到最后一行为止。 1、在窗体上添加text1控件，并且把multiline设为true //因为text1控件需要多行输入 2、在窗体上添加combo1控件 3、在窗体上添加timer1控件，并且把interval设为1000 //因为每一秒运行一次 4、Dim str() As String 用来存放text1中的每行数据的数组 Dim temp As String 用来存放未添加项目的字符串 Private Sub Form_Load() 在text1中加入了20条记录 For m = 1 To 20 If Text1.Text = Then Text1.Text = 测试数据 m Else Text1.Text = Text1.Text vbCrLf 测试数据 m End If Next m End Sub Private Sub Timer1_Timer() temp = 每次执行代码前清空temp str() = Split(Text1.Text, vbCrLf) ’用text1.text的内容给str数组赋值，text1中第一行就是str(0),第二行就是str(1)...以此类推 Combo1.AddItem str(0) 将数组的第一个元素，也就是text1中第一行的内容添加至combo1控件 For i = 1 To UBound(str)这个for的过程是将还没有添加到combo1控件中的元素赋值给字符串temp If temp = Then temp = str(i) Else temp = temp vbCrLf str(i) End If Next i Text1.Text = temp text1的内容改变为赋值后的temp，为了去掉已经添加到combo1的元素 If Text1.Text = Then 这个if用来判断text1中是否还有内容，如果没有内容，程序退出。 Timer1.Enabled = False MsgBox 全部添加完毕 End If End Sub Private Sub Timer2_Timer() Dim tmpdata As Variant Dim lsStr As String Dim rLen As Long 终端直连串口，接收数据长度 Dim rData() As Byte 终端直连串口，接收数据 Timer2.Enabled = False If fComm2Receive(MSComm1.InBufferCount) Then 从串口读入数据 tmpdata = MSComm1.Input EndTime = curFGetTickCount() 将数据存入接收缓冲区 rData = tmpdata rLen = UBound(rData) + 1 显示接收数据 sbShowData txtMess, rData, rLen, 1 =1接收，=2发送 If rData(0) = H68 Then ReceiveData rLen, rData End If End If If SendFlag 0 Then 终端直连串口发送标志 0-无发送数据，1-有发送数据 MSComm1.Output = sData BeginTime = curFGetTickCount() SendFlag = 0 SendFlag - 1 If sData(6) = HB Then If optHeart(0).Value = True Then sbShowData txtMess, sData, sLen, 2 End If Else sbShowData txtMess, sData, sLen,