Question

vb6.0实时错误'424'要求对象

Private Sub Command1_Click()
'过滤显示图片文件
commondialog1.Filter = "图像文件（*.bmp）|*.bmp|图像文件（*.jpg）|*.jpg"
commondialog1.ShowOpen
'显示图片文件
Picture1.Picture = LoadPicture(commondialog1.FileName)
Image1.Picture = Picture1.Picture
End Sub

Private Sub Command2_Click()
'图像文件清空
Picture1.Picture = LoadPicture()
Image1.Picture = LoadPicture()
End Sub

Answer 1

你的代码没有任何问题，请确保你的窗体上包含以下5个控件：

命令按钮：Command1, Command2

图片框：    Pictrue1

图像框：    Image1

文件浏览器：  CommonDialog1   '需要通过 工程 - 部件，引用下图所示的控件，然后在工具箱中进行添加：

Answer 2

在属性窗口看一看label3是不是叫这个名，是不是控件数组中的一个，比如：label3(0).还有一种情况就是它的caption是labele3,但它的名字却不是label3,所以报要求对象。这个错误不是什么大毛病，仔细找一找。