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

1）文件的打开 Open 文件名 for 模式 #文件号 文件号是1255的整数三种模式：1）Output (输出) 2）Input（输入） 3）Append （添加）Eg: Open D:date.txt For Input as #1 绝对路径 Open App.Path & date.txt For Input as #1 相对路径2）从txt文件中读取数据(1) 将内容全部读取在文本框中 一行行的读入：Dim InputDate as string Text1.text=“”Open d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相对路径) Do while not EOF(1) EOF相当于end of file line Input #1,inputDate Text1.Text = Text1.Text + InputDate + vbCrLf（换行） LoopClose #1 一个字符一个字符的读入 Dim InputDate as sting*1 Text1.text=“”Open d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相对路径) Do while not EOF(1) InputDate=Input$(1,#1)Text1.Text = Text1.Text + InputDate LoopClose #1 一次性的将内容读入 Text1.text=“”Open d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相对路径)Text1.Text =Input$(LOF(1),1)Close #1（2） 只读取某些字符 Open d:1.txt For Input As #1 (Open app.path &1.txt For Input As #1)(相对路径) Input #1, s1 : input #1, s2：Input #1, s3 对每个字符定义 Text1.Text =s1+s2+s3+s4+ 想要读取得的字符 Close #13） 图片的调用（LoadPicture函数） LoadPicture（路径名）基本用法： Picture1.Picture = LoadPicture (C:文件名) 一般用法： Picture1.Picture = LoadPicture (App.Path & 文件名) 一般用法解释： 一般程序跟一个文件夹，里面放置程序所需的图片，用app.path 表示是当前的相对路径， 这样即使程序的文件夹移位，也可以正常显示。 上面的回答再提醒一点，第二个例子的app.path 需要判断一下右边的字符是不是，比如：图片在C:dd.bmp的话应该是App.Path & dd.bmp而 图片在C:aadd.bmp的话应该是App.Path & dd.bmp 4）读取、写入EXCEL数据 vb调用Excel单元格的内容第一步：更改设置 （必须更改，否则所编程序不能运行）在vb界面 点击 “工程引用”EXCEL类型库，勾选下面的选项 点击 确定 如下图： 第二步：编写代码 （红色代码可省去）Private Sub Command1_Click()Dim VBExcel As Excel.Application 定义application对象Dim VBExcelbook As Excel.Workbook 定义workbook对象Dim VBExcelsheet As Excel.Worksheet 定义sheet对象Set VBExcel = Excel.Application 设置EXCEL对象，打开文件并显示Set VBExcelbook = VBExcel.Workbooks.Open(文件名) 打开Excel文件VBExcelbook.Worksheets （1）. ActivateText2.Text = VBExcelbook.ActiveSheet.Cells(1, 1).Value 调用第一个单元格的内容以下是关闭Excel的代码VBExcelbook.Close (True)VBExcel.QuitSet VBExcelbook = NothingSet VBExcel = Nothing VBExcelbook.RunAutoMacros (xlAutoClose) 执行EXCEL关闭宏 VBExcelbook.Close (True) 关闭EXCEL工作簿 VBExcel.Quit 关闭EXCELEnd Sub5）相对路径App.Path中文件名是变量 App.Path & & 变量 &.文件名后缀如果文件名是某文本框里的内容，但文本框的内容又是变化的 Eg：一文件名为 心想飞.jpg 而且“心想飞”是文本档Text1里的内容Pic1.Picture = LoadPicture(App.Path & & Text1.Text & .jpg) （Text1.Text 是变量）（其他控件也是这样）6） 对多个同类型的控件赋值Eg：有Text1Text12 十二个文本框对其赋同一值For j=1 to 12Set TT = Controls(Text & j) 定义TT控件TT.Text=“” 对TT控件赋值赋值Next j7）vb中插入Flash动画 (1)工具箱里添加【ShockWave Flash】控件 （勾选） （2）详细代码：1.播放： ShockwaveFlash1.Movie = App.Path & 文件名 读取同一目录下的Flash动画文件 ShockwaveFlash1.Play2.暂停： ShockwaveFlash1.Playing = False（0）3.继续： ShockwaveFlash1.Playing = True （1） 特别注意：VB shockwaveflash保存可能会出现 系统错误&H80004005(-2147467259).未指定的错误 解决方法：方法一：安装使用低版本的Flash软件 方法二：不使用shockwaveflash控件，编写代码插入Flash模块 代码： Private Sub Form_Load()Dim tmpCtl As Object 定义控件 Set tmpCtl = Controls.Add(ShockwaveFlash.ShockwaveFlash, Flash) 自动添加控件tmpCtl.Width = Me.Width 设置控件宽度tmpCtl.Height = Me.Height 设置控件高度tmpCtl.Visible = True 控件窗体可见tmpCtl.object.LoadMovie 0, app.Path & 文件名 读取同一目录下的Flash动画End Sub8） 登陆密码错误三次 自动退出 Private Sub Command1_Click()Dim a%If Text1.Text = ThenForm1.Hide