串口控件通信急急！！！！

void CCommDlg::OnComm()
{
VARIANT variant_inp;
COleSafeArray safearray_inp;
LONG len,k;
BYTE rxdata[2048]; //设置BYTE数组 An 8-bit integerthat is not signed.
CString strtemp;
if(m_Comm1.GetCommEvent()==2) //事件值为2表示接收缓冲区内有字符
{
variant_inp=m_Comm1.GetInput(); //读缓冲区
safearray_inp=variant_inp; //VARIANT型变量转换为ColeSafeArray型变量
len=safearray_inp.GetOneDimSize(); //得到有效数据长度
CString s;
s.Format("%d",safearray_inp.GetOneDimSize);
AfxMessageBox(s);
for(k=0;k<len;k++)
safearray_inp.GetElement(&k,rxdata+k);//转换为BYTE型数组
for(k=0;k<len;k++) //将数组转换为Cstring型变量
{
BYTE bt=*(char*)(rxdata+k); //字符型
strtemp.Format("%c",bt); //将字符送入临时变量strtemp存放
m_Show+=strtemp; //加入接收编辑框对应字符串
}
}
UpdateData(FALSE); //更新编辑框内容
}

void CCommDlg::OnButtonSend()
{

Visual Basic 能否支持 USB串口通信?采用什么控件? 串口通信？？？？ 用VB的MSCOmm控件实现串口通信，对数据进行实时曲线显示问题。 汇编串口通信程序 串口通信的问题 VB串口通信 串口通信问题 vb 串口通信问题！ VB串口通信问题 VB编程串口通信