我在通用里定义了要用的变量
Dim intCommPort As Long
Dim strCommSettings As String
Dim intOutBufferSize As Long
Dim intInBufferSize As Long
Dim blnShowFlage As Boolean
Dim intColorSet() As Long
Dim intArrayCount As Long
然后在主窗体的Form_Load里编写了如下代码
Private Sub Form_Load()
cmdShow.Caption = "<<隐藏"
blnShowFlag = Ture
frmMain.Height = 6400
Call SetComm("9600,N,8,1", 2, 4096)
intInBufferSize = 4096
intOutBufferSize = 2048
intCommFlag = 0
frmMain.ctrCommonDialog.Flags = &H200000 Or &H2
frmMain.ctrCommonDialog.CancelError = Ture
blnFileTransFlag = FalseprgFileTransfer.Max = 100
prgFileTransfer.Main = 0
prgFileTransfer.Value = 0rtfReceive.Text = ""intArrayCount = 0
End Sub
结果编译的时候 出错了
它说我子程序或函数未定义
那个黄的出错的提示在Private Sub Form_Load()这句话上了
我不知道怎样该错了 还望那位大哥能够帮帮忙啊 急急急啊!!!
Dim intCommPort As Long
Dim strCommSettings As String
Dim intOutBufferSize As Long
Dim intInBufferSize As Long
Dim blnShowFlage As Boolean
Dim intColorSet() As Long
Dim intArrayCount As Long
然后在主窗体的Form_Load里编写了如下代码
Private Sub Form_Load()
cmdShow.Caption = "<<隐藏"
blnShowFlag = Ture
frmMain.Height = 6400
Call SetComm("9600,N,8,1", 2, 4096)
intInBufferSize = 4096
intOutBufferSize = 2048
intCommFlag = 0
frmMain.ctrCommonDialog.Flags = &H200000 Or &H2
frmMain.ctrCommonDialog.CancelError = Ture
blnFileTransFlag = FalseprgFileTransfer.Max = 100
prgFileTransfer.Main = 0
prgFileTransfer.Value = 0rtfReceive.Text = ""intArrayCount = 0
End Sub
结果编译的时候 出错了
它说我子程序或函数未定义
那个黄的出错的提示在Private Sub Form_Load()这句话上了
我不知道怎样该错了 还望那位大哥能够帮帮忙啊 急急急啊!!!
这个也不行
很多控件的属性赋值,要写在窗体激活事件里,不能写进load 里,这时候,控件还没有画好
你要rtfReceive.Text = ""可以直接在rtfReceive的text属性栏上清空
如果你仔细观察过,就知道这时候在该事件内部肯定有一行代码(或者一个词)是深蓝色的,错误就是它。