Dim i As Integer Dim pathName As String Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() '点选file1中的文件名，显示图片 pathName = IIf(Right(File1.Path, 1) = "\", File1.Path & File1.FileName, File1.Path & "\" & File1.FileName) Picture1.Picture = LoadPicture(pathName) End Sub

mope
本姑娘聘夫一名 要不花心的好男人！
本姑娘的联系方式 位于本姑娘的头像上