Set allflag = Form1.Text1

来源：百度知道编辑：UC知道时间：2024/09/24 14:29:08

private Sub Form1_Load()
'MSComm1.CommPort=2
'MSComm1.Settings="19200,n,8,1"
'MSComm1.Handshaking=comNone
Form1.Show
Set allflag = Form1.Text1

End Sub

Private Sub MSComm1_OnComm() '处理串口事件

Select Case MSComm1.CommEvent
'事件信息
Case comEvReceive
'MsgBox "comEvReceive"
Timer1.Enabled = True
'Timer2.Enabled=True

Case comEvSend
'Dim Buffer As Variant
'Buffer=MSComm1.Input
'MsgBox"comEvSend"

Case comEvCTS
'MsgBox"被检测的CTS改变"
Case comEvDSR
'MsgBox"被检测的DSR改变"
Case comEvCD
'MsgBox"被检测的CD改变"
Case comEvRing
'MsgBox"电话铃响起"
Case comEvEOF
'MsgBox"被检测的文件结尾"

'Error messages.
Case comBreak

设定变量allflag为Form1.Text1 ,就是说用allflag代替窗体1的text1控件。

'Set allflag = Form1.Text1 是什么意思呢？
allflag 这样是给一个对象变量赋值
赋值后,可以直接使用

如:你以前要这样用: Form1.Text1.Text="文本框内容"
赋值后你可以这样用: allflag.text="文本框内容"

"Set f = fso.GetFolder(sPP)"是什么意思? set conn=nothing Set DBC = Nothing是什么意思？批处理中的set a=%1是什么意思? Set nt2003 = new System_Cls是什么意思？ alter session set sql_trace=true SET sql_mode='' 什么意思? set off set on set out区别 f(0)+f(1)+f(-1)= 已知f[f(x)]=f(x)