错误424,要求对象
请教:在VB中分别添加了Picture,drive,dir,file控件,代码如下Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err.Number > 0 Then
MsgBox "设备没有准备好!", vbCritical
End If
End Sub
Private Sub File1_Click()
Dim filename1 As String
If Right(File1.Path, 1) = "\" Then
filename1 = File1.Path & File1.FileName
Else
filename1 = File1.Path & "\" & File1.FileName
End If
image1.Picture = LoadPicture(filename1) '这名出现"错误424,要求对象"
End Sub
Private Sub Form_Load()
File1.Pattern = "*.gif;*.jpg;*.jpeg;*.ico"
End Sub
Private Sub Picture1_Click()
End Sub
这是在网上找到的视频例子,在视频中人家的就能通过,而我这个就出现错误了,由于是初学,找不到原因,特在此问问,不胜感激,谢谢了
--------------------编程问答-------------------- 出现过这方面错误的不吝赐教,多谢了! --------------------编程问答-------------------- 是问题太简单了还是大家都没遇到过类似问题,为什么都不愿回答呢 --------------------编程问答-------------------- 我也出现Err.number=424的情况,搞不懂也 --------------------编程问答-------------------- set image1.Picture = LoadPicture(filename1)
试试看 --------------------编程问答-------------------- 楼主啊,你添加的是picturebox,而不是Image啊……当然报错了。。。 --------------------编程问答-------------------- 蛋贴……
楼主木有小jj
--------------------编程问答-------------------- 不懂..................
补充:VB , 控件