- Home
·
- Miscellaneous
·
- displaying file path in textbox and send it to picturebox to display pictures user must turn on mic
displaying file path in textbox and send it to picturebox to display pictures user must turn on mic
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
Rate displaying file path in textbox and send it to picturebox to display pictures user must turn on mic
(1(1 Vote))
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
displaying file path in textbox and send it to picturebox to display pictures user must turn on mic Comments
No comments yet — be the first to post one!
Post a Comment