作者dj5115 (阿文)
看板Visual_Basic
标题[VB6 ] 编译错误：没有定义这个Sub或Function"
时间Mon Aug 16 13:41:34 2010
各位高手们!!
我设定了一个Command1~4程式内容是一样的
但是无法制程.EXE
不知道问题错再哪里
Private Sub Command1_Click()
Tex1.Text = "连线中" (这里有改过所以不打t没问题)
MSComm1.Output = "1"
delayms 100 (错在这里)
buf = MSComm1.Input
If buf = "0" Then
LOAD1.FillColor = RGB(0, 255, 0)
ElseIf buf = "1" Then
LOAD1.FillColor = RGB(255, 0, 0)
Else
Tex1.Text = "连线失败"
End If
End Sub
它只出现"编译错误：没有定义这个Sub或Function"
请各位帮帮忙!!谢谢
--
◆ From: 140.130.18.237
1F：→ x000032001:名称打错 我"猜"是Tex1.Text = "连线中" 少t 08/16 14:05
2F：→ MOONRAKER:错在几行也讲一下吧。 08/16 14:18
※ 编辑: dj5115 来自: 140.130.18.237 (08/16 14:26)
※ 编辑: dj5115 来自: 140.130.18.237 (08/16 14:27)
※ 编辑: dj5115 来自: 140.130.18.237 (08/16 14:31)
3F：→ x000032001:看你delayms从哪里抓进来的阿 API? 我记得VB6没这功能 08/16 14:34
4F：→ dj5115:有人说用Sleep但是也不行... 说还要加一个模组但是我不会 08/16 14:39
5F：→ MOONRAKER:学一学timer怎麽用啦 08/16 15:03