用下面的程序来读取图片,出现错误"424",是那里出问题了:
Dim num1 As String
With dlgcommondialog
.DialogTitle = "打开图片文件"
.Filter = "图片文件（*.jpg)|*.jpg"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
num1 = .FileName
End With
Picture1.Picture = LoadPicture(num1)