Question

VB 通用对话框

怎样使对话框（“打开”对话框）只显示扩展名为为gif，jpg的文件，且单击他的确定按钮后，image1的Picture属性变成对话框选中的图片？

Answer 1

Private Sub Picture1_Click()

    With CommonDialog1

        .Filter = "支持的图片格式|*.gif;*.jpg"

        .ShowOpen

        If .FileName <> "" Then Picture1.Picture = LoadPicture(.FileName)

    End With

End Sub

Answer 2

s\system32\comdlg32.ocx,如果没有去别人机子拷一个到c:\windows\system32\下面 ,然后在run里运行regsvr32 c:\windows\system32\comdlg32.ocx注册