VB中Image1.picture的问题

Posted 2023-05-03

（如图）我把一个图片的地址写入文本文档1.txt中,怎么才能让Image1.picture=1.txt中的地址（希望有具体的代码和方法，谢谢）

无须代码，操作步骤如以下截图所示：

 

参考技术A 1) 保存 D:\1.Txt 文件程序如下:
Dim FileNum As Long
Dim fileName As String

fileName = "D:\1.Txt"
FileNum = FreeFile()

Open fileName For Output As FileNum
Print #FileNum, "C:\Document and Setting\Administrator\桌面\psb.pjg"
Close FileNum

2) Image 装载图片文件
Dim FileNum As Long
Dim fileName As String

Dim tmpStr As String
fileName = "D:\Txt\1.Txt"

FileNum = FreeFile()
Open fileName For Input As FileNum
Line Input #FileNum, tmpStr
Close FileNum

If Len(Dir$(tmpStr))=0 Then
MsgBox "文件:"+tmpStr +" 不存在!"
Exit Sub
End If

Image.Picture=LoadPicture(tmpStr)本回答被提问者和网友采纳 参考技术B Open App.Path & "\1.txt" For Binary As #1
Image1.Picture = LoadPicture(Input(LOF(1), #1))
Close #1

vb各个控件的意思

参考技术A 这个不好说...太多了....每个控件都有其独特的用法与用处..写几个常用的
label
用来显信息的
textbox
显示与输入信息
commandbutton
确定按钮
option
单选按钮
checkbox
多选按钮
image/picture
图片控件
timer
时间(周期时间做什么事) 参考技术B picturebox~~图片框~~用于显示图片或文本
label~~标签~~用于放置不可编辑文本
text~~文本框~~用于放置可编辑文本
frame~~框架~~用于修饰窗体及控件分组
commandbutton~~命令按钮~~用于激发事件过程
checkbox~~复选框~~提供多个选项，可选多个
optionbutton~~单选钮~~提供多个选项，可选一个
combox~~组合框~~组合对象
listbox~~列表框~~列表对象
hscrollbar~~水平滚动条
vscrollbar~~垂直滚动条
timer~~计时器
drivelistbox~~驱动器列表框
dirlistbox~~目录列表框
filelistbox~~文件列表框
shape~~形状
line~~线条
image~~图像框
data~~数据
ole
container~~OLE容器