Question

VB程序调试时出现 实时错误'424'要求对象？

源代码：
Const Pi = 3.1415926
Private Sub Label2_Click()

End Sub

Private Sub Cmd_Cir_Click()

Pic.Circle (0, 0), 3
Pic.Circle (2, 0), 2, QBColor(12)
Pic.FillStyle = 4
Pic.Circle (-2, -2), 1, QBColor(3), -2 * Pi, -Pi
Pic.FillStyle = 1
Pic.Circle (2, 2), 1, , , , 0.5
End Sub

Private Sub Cmd_Cls_Click()
Pic.Cls
End Sub

Private Sub Cmd_Exit_Click()
End
End Sub

Private Sub Cmd_Line_Click()
Pic.Line (-4, 0)-(-3, 2), QBColor(12), BF
Pic.Line (-2, 0)-(-1, -4), QBColor(5), BF
Pic.Line (1, 0)-(2, 4), , BF
Pic.Line (3, 0)-(4, 3), , B

End Sub

Private Sub Cmd_Ref_Click()
Pic.Scale (-5, 4)-(5, -4)
Pic.Line (-5, 0)-(5, 0)
Pic.Line (0, 5)-(0, -5)
Pic.CurrentX = 4.5
Pic.CurrentY = 0.5
Pic.Print "X"
Pic.CurrentX = 0.2
Pic.CurrentY = 3.5
Pic.Print "Y"
End Sub

Private Sub Cmd_Sin_Click()
Dim i As Single
For i = -5 To 5 Step 0.01
Pic.PSet (i, Sin(i))
Next i
End Sub

Private Sub Lab_Backcolor_Click()
CMD.ShowColor '该显示错误
Lab_Backcolor.BackColor = CMD.Color
Pic.BackColor = CMD.Color
End Sub

Private Sub Lab_ForeColor_Click()
CMD.ShowColor
Lab_ForeColor.BackColor = CMD.Color
Pic.ForeColor = CMD.Color
End Sub

求正解

Answer 1

CMD.ShowColor '戚前该显示错误

说明这段代码中用到了一个Name=CMD的通用对话框控件（Common Diaglog Contror）
你只需要添加一个这个控件并将其碧仔纯名称改悔咐成CMD就可以了