COM/DCOM/COM+
针对这个用doevents在 VB怎么解决啊 ？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区Private Sub Command20_Click()
Dim Temp As String
Dim buff_out7() As Byte
ReDim buff_out7(8)
Dim u As Long
MSComm1.Settings = "9600,N,8,1" ' 9600 波特，无奇偶校验，8 位数据，一个停止位。
MSComm1.InputLen = 0 ' 当输入占用时，告诉控件读入整个缓冲区。
buff_out7(0) = &HAA
buff_out7(1) = &HAA
buff_out7(2) = &HFF
buff_out7(3) = &H1
Open App.Path & "\2.txt" For Input As #2
Line Input #2, Temp
Close #2
u = Val(Temp)
If u > 0 And u < 65536 Then
buff_out7(5) = u Mod 256
buff_out7(4) = u \ 256
buff_out7(6) = &H0
buff_out7(7) = &H0
buff_out7(8) = &HFF
If MSComm1.PortOpen = False Then
Label1.Caption = "您的串口现在是关闭状态,请先打开串口"
Else
MSComm1.Output = buff_out7
Label1.Caption = ""
End If
End If
End Sub
针对这个用doevents 怎么解决啊 ？有的说用doevents 可以解决
Dim Temp As String
Dim buff_out7() As Byte
ReDim buff_out7(8)
Dim u As Long
MSComm1.Settings = "9600,N,8,1" ' 9600 波特，无奇偶校验，8 位数据，一个停止位。
MSComm1.InputLen = 0 ' 当输入占用时，告诉控件读入整个缓冲区。
buff_out7(0) = &HAA
buff_out7(1) = &HAA
buff_out7(2) = &HFF
buff_out7(3) = &H1
Open App.Path & "\2.txt" For Input As #2
Line Input #2, Temp
Close #2
u = Val(Temp)
If u > 0 And u < 65536 Then
buff_out7(5) = u Mod 256
buff_out7(4) = u \ 256
buff_out7(6) = &H0
buff_out7(7) = &H0
buff_out7(8) = &HFF
If MSComm1.PortOpen = False Then
Label1.Caption = "您的串口现在是关闭状态,请先打开串口"
Else
MSComm1.Output = buff_out7
Label1.Caption = ""
End If
End If
End Sub
针对这个用doevents 怎么解决啊 ？有的说用doevents 可以解决
...全文
相关推荐
模拟VB的DoEvents函数
模拟VB的DoEvents函数
基于VB的多线程聊天室系统设计与实现
htmltable {th, td {th {pre {简介：【VB聊天室】是一款采用Visual Basic开发的简易实时通信应用，包含完整源代码，适用于学习VB编程、网络通信及多线程技术。该程序通过TCP/IP协议实现客户端与服务器之间的消息交互，支持事件驱动的消息处理机制，并可集成数据库用于存储用户信息和聊天记录。项目涵盖界面设计、多线程处理、数据传输、安全性控制与调试测试等关键环节，是掌握桌面级网络应用开发的优质实践案例。
vb doevents 应用
vb doevents 使用 可以很好的利用doevents做一些处理
DoEvents函数详解[参考].pdf
DoEvents函数详解[参考].pdf
DoEvents可以让程序在执行操作的同时仍可以处理其他事件
VB下有一个DoEvents方法，可以让程序在执行操作的同时仍可以处理其他事件，用这个方法可以有效地解决画面无法刷新的问题。 VC下的DoEvents版本的代码如下：
