by sumankota(vivekanandhacollege,karimnagar) (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 1st August 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
displaying file path in textbox and send it to picturebox to display pictures user must turn on microsoft scripting runtime that is shown
API Declarations
option explicit
dim msfo as new filesystemobject
dim thefile as file
on error goto errorhandler
dir1.path = drive1.drive
errorhandler:
dim i as integer, j as integer
i = msgbox("INVALID DRIVE",vbokonly)
if j = vbokonly then
resume next
end if
end sub
private dir1.change()
file1.path = dir1.path
end sub
private file1.click()
on error goto errorhandler
set thefile = msfo(getfile(file1.path),file1.list(file1.listindex))
picture1.picture = loadpicture(thefile.path)
text1.text = thefile.path
errorhandler:
dim i as integer
i = msgbox("CHOOSE PICTURE FILE FARMAT ONLY")
resume next
end sub
No comments have been posted about displaying file path in textbox and send it to picturebox to display pictures user must turn on mic. Why not be the first to post a comment about displaying file path in textbox and send it to picturebox to display pictures user must turn on mic.