MSComm1.Input 超过 32767 线上手册： Input 属性 传回并移除接收暂存区中的资料流。该属性在设计阶段无法使用，在执行阶段为唯读。 语法 object.Input Input 属性语法包括下列单元： 单元 说明 Object 物件运算式，其值为「适用於」清单中的某个物件。 请注意 InputLen 属性决定被 Input 属性读取的字元数。若设定 InputLen 为 0，则 Input 属性读取暂存区中全部的内容。 透过 Input 属性所接收到的资料的资料型态是由InputMode 属性来决定的。如果设定 InputMode 为 comInputModeText，则 Input 属性透过一个 Variant 传回文字资料。如果设定 InputMode 为 comInputModeBinary，则 Input 属性透过一个 Variant .以位元组阵列的形式传回一组二进位的资料。 ==> 本文由 "^^ <[email protected]>" > 於 news:54SBN3%248rb%40ptt.cc 发表 > ※ [本文转录自 Visual_Basic 看板 #1DOwSuPT ] > 作者: paulgoodke (^^) 看板: Visual_Basic > 标题: [VB6 ] RS232及时绘图上的问题 > 时间: Tue Feb 22 20:08:21 2011 > 这是我利用RS232传输进入VB6的绘图程式 > Private Sub Command5_Click() > Dim a!(30), b!(30), num%, instring%(30) > Dim i As Integer > num = MSComm1.InBufferCount '取输入缓冲区字节个数 > ++instring(i) = MSComm1.Input '把输入缓冲区资料送给阵列 > For i = 0 To 250 > a(i) = i > b(i) = instring(i) > Graph1.Cls > If i = 1 Then > Graph1.PSet (a(i), b(i)) > Else > Graph1.Line -(a(i), b(i)) '将阵列资料给绘图函数 > End If > Next i > End Sub > 可是当我去跑程式时他会出现错误"Run-time error '6' " > Overflow > 然後按DEBUG他会显示在++的那行中 > 想请问我这样的程式哪里有错误@@ > 这是我的介面http://ppt.cc/l2R2 > > -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/ TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/ -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language