Рет қаралды 3,721
Visual Basic 6.0 : oceanofexe.com/...
Program :
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub File1_Click()
On Error GoTo l
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
rtb1.Visible = False
Image1.Visible = True
Exit Sub
l: rtb1.FileName = File1.Path & "\" & File1.FileName
Image1.Visible = False
rtb1.Visible = True
End Sub
Private Sub Form_Load()
rtb1.Visible = False
Image1.Visible = False
End Sub