如图所示，vb6.0中如何打开本地图像

Question

我制作了一个菜单栏，其中我制作了一个打开文件（图片）的选项，请问如何做到点击打开然后有一个像图二一样的本地文件浏览器，选中文件后加载到图三中的picture里，求方法（最好有代码）

Windows7 + VisualBasic6.0

Answer 1

'选上 工程-部件-Microsoft CommonDialog Contral 6.0

Private Sub Command1_Click()
Dim file As String
    With comDlg
        .Filter = "All Files(*.*)|*.*|JPEG Images(*.jpg;*.jpeg)|*.jpg;*.jpeg|"
        .ShowOpen
    End With
    file = comDlg.FileName
   
    Picture1.Picture = LoadPicture(file)
End Sub