我在VB工程的一个窗体中设置了一个MSComm控件,我希望在这个窗体关闭时这个控件依然有效,这个能做到吗?

比如我单机一个command1,mscomm就打开串口接受数据,当我关闭改窗口时,希望串口依然开着。... 比如我单机一个command1,mscomm就打开串口接受数据,当我关闭改窗口时,希望串口依然开着。 展开
 我来答
xiangjuan314
2016-04-17 · TA获得超过3.3万个赞
知道大有可为答主
回答量:2.9万
采纳率:0%
帮助的人:2924万
展开全部
实现方法:
1)在当前窗口按钮的Click事件中对执行窗体的按钮的Value 属性赋值True事项。
Value 属性,CommandButton 控件-返回或设置指示该按钮是否可选的值;在设计时不可用。
Private Sub Command1_Click()
Form2.Command1.Value = True
End Sub
2)VB中只需在另一窗体添加一个Timer控件,在当前窗体呼唤该窗体的Timer控件改变它的
Enabled 属性或Interval 属性来实现。
Timer 控件,通过引发 Timer 事件,Timer 控件可以有规律地隔一段时间执行一次代码。
Enabled 属性,返回或设置一个值,该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
Interval 属性,返回或设置对 Timer 控件的计时事件各调用间的毫秒数。
以下是改变Timer控件的Enabled 属性的代码实例:
Form2代码:
Option Explicit
Dim i As Long

Private Sub Command1_Click()
Me.Cls
i = i + 1
Me.Print i
End Sub

Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Form2.Show
End Sub

Private Sub Timer1_Timer()
Command1_Click
Timer1.Enabled = False
End Sub
Form1代码:

Option Explicit
Dim i As Long

Private Sub Command1_Click()
Form2.Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

Private Sub Timer1_Timer()
Command1_Click
End Sub
追问
不好意思,不是很明白。。。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式