UC知道vb 6.0编程基础
来源：百度知道 编辑：UC知道 时间：2024/05/18 09:30:06
刚刚开始学习编程，遇到了个问题希望大家帮忙解决 谢谢~
Private Sub Command1_Click()
forml.Circle (2400, 1000), 800
textl.Text = "在窗体上画圆“"
End Sub
Private Sub Command2_Click()
forml.Cls
textl.Text = "圆消失了”"
End Sub
按照书本说的做出现了 实时错误‘424’ 要求对象 的窗口
（forml.Circle (2400, 1000), 800）一项变成黄色
改完后圆是画出来了，但是还是出现错误
Private Sub Command1_Click()
Form1.Circle (2400, 1000), 800
text1.Text = "在窗体上画圆”"（这一项变黄色）
End
Private Sub Command2_Click()
Form1.Cls
text1.Text = "圆消失了“"（这一项也变黄色）
End Sub
Private Sub Command1_Click()
forml.Circle (2400, 1000), 800
textl.Text = "在窗体上画圆“"
End Sub
Private Sub Command2_Click()
forml.Cls
textl.Text = "圆消失了”"
End Sub
按照书本说的做出现了 实时错误‘424’ 要求对象 的窗口
（forml.Circle (2400, 1000), 800）一项变成黄色
改完后圆是画出来了，但是还是出现错误
Private Sub Command1_Click()
Form1.Circle (2400, 1000), 800
text1.Text = "在窗体上画圆”"（这一项变黄色）
End
Private Sub Command2_Click()
Form1.Cls
text1.Text = "圆消失了“"（这一项也变黄色）
End Sub
是 Form1 而不是 FormL
Text 也一样.
代码中的forml.Circle (2400, 1000), 800
应该为 form1.Circle (2400, 1000), 800
还有就是 textl.Text = "在窗体上画圆“"
应为 text1.Text = "在窗体上画圆"
forml.Cls 应为 form1.Cls
textl.Text = "圆消失了" 应为 text1.Text = "圆消失了”"