Private Sub Command1_Click()EndEnd SubPrivate Sub Dir1_Change()ChDir Dir1.PathFile1.Path = Dir1.PathFile1.Pattern = "*.*"End SubPrivate Sub Drive1_Change()ChDrive Drive1.DriveDir1.Path = Drive1.DriveFile1.Pattern = "*.*"End SubPrivate Sub File1_Click()Image1.Picture = LoadPicture(File1.FileName)End SubPrivate Sub Form_Load()File1.Pattern = "*.*"End Sub

......看不懂

我也看不懂。

祄笩部际舒NcZR●☆●aipkOCEF6123

沿裙觷隔挽茋_[lm〓↑●rjotNXVH8265

没事用啥VB呢？