vb的一点知识总结适合初学者.docxVIP

1） 文件的打开 Open文件名for模式［#］文件号 ’文件号是1-255的整数 三种模式：1） Output （输出）2） Input （输入） Eg: Open D:\date.txt For Input as #1 Open App.Path \date.txt 2） 从txt文件中读取数据 （1）将内容全部读取在文本框中 ①一行行的读入： Dim InputDate as string Textl.text=” Open d:\l.txt” For Input As #1 Do while not EOF（l） line Input #l,inputDate Text 1.Text = Text 1.Text + InputDate + vbCrLf （换行） Loop Close #1 一个字符一个字符的读入 Dim InputDate as sting* 1 Textl.text= ” Open ud:\l.txtH For Input As #1 （Open app.path \1 .txt For Do while not EOF（ 1） InputDate=Input$（ 1 ,# 1） Text 1.Text = Text 1.Text + InputDate Loop Close #1 一次性的将内容读入 Text 1.text二” Open d:\l.txt For Input As #1 （Open app.path \l.txt For Text 1.Text =Input$（LOF（l）,l） Close #1 （2） 只读取某些字符 Open d:\l.txt For Input As #1 （Open app.path \l.txt For For Input 3） Append （添加） 绝对路径 as #1 相对路径 （Open app.path H\l.txtn For EOF 相当于 end of file Input Input Input Input As #1）（相对路径） As #1）（相对路径） As #1）（相对路径） As #1）（相对路径） Input #1, si : input #l,s2： Input #l,s3 对每个字符定义 Text 1.Text =sl+s2+s3+s4+ 想要读取得的字符 Close #1 3） 图片的调用（LoadPicture函数） LoadPicture （路径名） 基本用法： Picture 1.Picture = LoadPicture （C:\文件名） 一般用法： Picture 1.Picture = LoadPicture （App.Path \文件名） 一般用法解释： -?般程序跟一个文件夹，里而放置程序所需的图片，用app.path衣示是当前的相对路径, 这样即使程序的文件夹移位，也可以正常显示。 上而的冋答再提醒一点，第二个例子的app.path需要判断一下右边的字符是不是“\”， 比如：图片在”C:\dd.bmp”的话应该是App.Path ”dd.bmp 而 图片在”C:\aa\dd.bmp的话应该是 App.Path ”\dd.bmp 4）读取、写入EXCEL数据vb调用Excel单元格的内容 第一步：更改设置（必须更改，否则所编程序不能运行） 在vb界面点击“工程一一引用” EXCEL类型库，勾选下面的选项点击确定如下图: 引用-用VB 引用-用VB读取EXCEL数据.p 可用的引用@)： 可用的引用@)： 确定 MicrosoftMicrosoft [3 MicrosoftMicrosoft □ MicrosoftMicroDDS Layout ManagerDHTML Page Runtime Library 1.0Dialog Automation ObjectsDirectX Transforms Core Type Lib: DirectX Transforms Image Transfo:浏范?)…| Microsoft Microsoft [3 Microsoft Microsoft □ Microsoft Micro DDS Layout Manager DHTML Page Runtime Library 1.0 Dialog Automation Objects DirectX Transforms Core Type Lib: DirectX Transforms Image Transfo: 浏范?)…| Microsoft Graph 11.0 Object Library Microsoft H323 Service Provider 1.0 Type L Mi