如果耽误了你考试,是我最大的遗憾
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End SubPrivate Sub Form_Load()
Image1.Stretch = True
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End SubPrivate Sub Form_Load()
Image1.Stretch = True
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货