查看: 83|回复: 2

[未解决] vb form_load 事件无法输出信号

[复制链接]

该用户从未签到

发表于 2019-4-15 20:21 | 显示全部楼层 |阅读模式
如下代码中Command3_Click点击事件和Form_Unload事件都可以控制信号输出,唯独Form_Load无法控制信号输出,请问是哪里的问题呀

Dim MSGout, MSGin As String
Private Sub Command3_Click()
   If MSComm1.PortOpen = False Then
     MSComm1.PortOpen = True
     MSGout = "011" + vbNewLine
     MSComm1.Output = MSGout
Else
     MSGout = "011" + vbNewLine
     MSComm1.Output = MSGout
End If
End Sub

Private Sub Form_Load()
Me.Show
BackColor = vbRed
'BackColor = QBColor(Rnd * 5)
   If MSComm1.PortOpen = False Then
     MSComm1.PortOpen = True
     MSGout = "011" + vbNewLine
     MSComm1.Output = MSGout
Else
     MSGout = "011" + vbNewLine
     MSComm1.Output = MSGout
End If

End Sub



Private Sub Form_Unload(Cancel As Integer)
   If MSComm1.PortOpen = False Then
     MSComm1.PortOpen = True
     MSGout = "010" + vbNewLine
     MSComm1.Output = MSGout
Else
     MSGout = "010" + vbNewLine
     MSComm1.Output = MSGout

End If
End Sub


该用户从未签到

发表于 2019-4-16 08:22 | 显示全部楼层
有可能是 form_load 太早,你的其他控件还没有加载起来
打赏作者鼓励一下!
您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则

热门推荐

步进电机应用场景
步进电机应用场景
最近一直在研究控制步进电机。 今天把整合完落实到应用的一个算是控制箱发出来,大家
Arduino 时钟
Arduino 时钟
arduino 时钟 模块:DHT11、DS1302、蜂鸣器、Arduino nano、按键 功能:时钟日期显
初次尝试ESP8266+Onenet实现数据上传和读取
初次尝试ESP8266+Onenet实
1. 引言 最近需要做和物联网相关的小项目,需要将数据传到Onenet,并能够回传One
求助代码
求助代码
舵机SG90 超声波传感器SR04 nano控制板 Trig接D5 echo接D6 超声波传感器信
求助设计代码
求助设计代码
舵机SG90 超声波传感器SR04 nano控制板 按下图焊接,想制作一个感应垃圾桶,有
Copyright   ©2015-2016  Arduino中文社区  Powered by©Discuz!   ( 蜀ICP备14017632号-3 )
快速回复 返回顶部 返回列表