Windows7 + VisualBasic6.0
'选上 工程-部件-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