初识VB（一）——浏览文件并载入外部…

载入外部文本文件
Dim strfilename As String
Dim nfilenum As Long
Dim strall As String
Dim strline As String
strfilename = "载入外部图片.txt" '同路径下可用app.path
nfilenum = FreeFile()
Open strfilename For Input As nfilenum
Do While Not EOF(nfilenum)
Line Input #nfilenum, strline
strall = strall & strline & vbCrLf '换行
Loop
Text1.Text = strall 'Picture1.Print strall
'清除文本框内容
Text1.Text = "" 'Picture1.Cls
'目录列表框改变时
File1.Path = Dir1.Path
'驱动器列表框改变时
Dir1.Path = Drive1.Drive
'文件列表框改变时
Dim filename1 As String
If Right(File1.Path, 1) = "\" Then
filename1 = File1.Path & File1.FileName
Else
filename1 = File1.Path & "\" & File1.FileName
End If
Picture1.Picture = LoadPicture(filename1)
'窗体载入时
File1.Pattern = "*.jpg;*.gif"

[文件]
浏览文件并载入外部图片.rar(4.6 KB)

初识VB（一）——浏览文件并载入外部…相关推荐

Unity3d载入外部图片文件
unity里的图片在生成时会压缩成资源文件,有时客户想自己放一些图片用unity显示,就必须载入外部图片. 大体思路:用Application.streamingAssetsPath或Applicat ...
初识AS3（十）——加载外部文件进度…
=================外部图片或swf加载进度=================== CODE: //加载外部图片jpg(gif)或影片swf var url:String = " ...
如何用VB制作DLL文件
1.新建一个ActiveX Dll,工程名字为vbmytestdll,类模块名字为mytestdll 2.类模块内容只有一个函数,主要返回DLL的HELLO WORLD Public Functi ...
excel 外部链接乱码_在Excel文件中查找外部链接
excel 外部链接乱码 Last week, I opened an Excel file, and was surprised to see a Security Warning. Appare ...
Keras学习笔记---保存model文件和载入model文件
Keras学习笔记---保存model文件和载入model文件保存keras的model文件和载入keras文件的方法有很多.现在分别列出,以便后面查询. keras中的模型主要包括model和we ...
VB 实现大文件的分割与恢复,引用 ADODB.Stream 提供一个过程代码
'VB 实现大文件的分割与恢复,引用 ADODB.Stream 提供一个过程: '要引用 Microsoft ActiveX Data Objects 2.5 Libary '或 Microsoft ...
VC++打开、保存文件对话框和浏览文件夹对话框
一.打开文件夹: 1.CFileDialog实现 CFileDialog hFileDlg(true,NULL , NULL, OFN_FILEMUSTEXIST | OFN_READON ...
能否用痰盂盛饭——谈谈在头文件中定义外部变量
能否用痰盂盛饭--谈谈在头文件中定义外部变量 - garbageMan - 博客园能否用痰盂盛饭--谈谈在头文件中定义外部变量 "能否用痰盂盛饭"并非是一个技术问题,而是一个哲学 ...
java配置文件放置到jar外_java相关：Spring Boot 把配置文件和日志文件放到jar外部...
java相关:Spring Boot 把配置文件和日志文件放到jar外部发布于 2020-3-6| 复制链接如果不想使用默认的application.properties,而想将属性文件放到jar ...

初识VB（一）——浏览文件并载入外部…

初识VB（一）——浏览文件并载入外部…相关推荐

最新文章

热门文章