读取文本文件内容并打印输出
Private Sub Command1_Click()
Dim TextLine As String
Open "c:\\testfile.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Print TextLine
Loop
Close #1
End Sub
新建文件并写入文件内容
Private Sub Form_Load()
Const ForReading = 1, ForWriting = 2
Dim fso, f
Dim SkipLineInFile As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True) f.Write "Hello world!" & vbCrLf & "VB Script is fun!"
Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading) SkipLineInFile = f.readall
Debug.Print SkipLineInFile
End Sub
冒泡上浮
Private Sub Command1_Click()
Dim d(1 To 4) As Integer
d(1) = Val(Text1.Text)
d(2) = Val(Text2.Text)
d(3) = Val(Text3.Text)
d(4) = Val(Text4.Text)
For i = 1 To 3
For j = 4 To i + 1 Step -1
If d(j) < d(j - 1) Then
t = d(j)
d(j) = d(j - 1)
d(j - 1) = t
End If
Next j
Next i
For i = 1 To 4
List1.AddItem d(i)
Next i
End Sub
冒泡下沉
Dim d(1 To 4) As Integer
Private Sub Command1_Click() List1.Clear
Randomize
For i = 1 To 4
d(i) = Int(Rnd * 10) + 10
List1.AddItem d(i)
Next i
End Sub
Private Sub Command2_Click() '下沉算法，从小到大排序List2.Clear
For i = 1 To 3
For j = 1 To 4 - i
If d(j) > d(j + 1) Then
k = d(j)
d(j) = d(j + 1)
d(j + 1) = k
End If
Next j
Next i
For i = 1 To 4
List2.AddItem d(i)
Next i
End Sub
选择排序
Dim d(1 To 120) As Integer Dim ct As Integer
'选择排序
Private Sub Command1_Click() ct = 120
For i = 1 To ct - 1
k = i
For j = i + 1 To ct
If d(j) < d(k) Then k = j
Next j
If i <> k Then
kt = d(i): d(i) = d(k): d(k) = kt
End If
Next i
For i = 1 To ct
List2.AddItem Str(d(i))
Next i
ct = 0
List1.AddItem ""
List2.AddItem ""
End Sub
'产生递增数
Private Sub Command2_Click()
Dim dv As Integer
List1.Clear
For i = 1 To 120
dv = dv + Fix((Timer() Mod 67 + 13) * Rnd()) + 1
d(i) = dv
List1.AddItem d(i)
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ct = ct + 1
d(ct) = Val(Text1.Text)
List1.AddItem Str(d(ct))
Text1.Text = ""
Text1.SetFocus
End If
End Sub
'对分查找对数列有要求，必须是有序，对分查找一般只能确定数列是否存在该数
'顺序查找不但能确定数列是否存在该数，而且能找出数列存在数的个数，对数列无殊要求，查找效率比对分查找低
Private Sub Command5_Click() '过程5：对分查找，必须掌握当前以由小到大数列进行查找
Dim key, i, j, m, n As Integer
Dim bz As String
bz = "不存在该数"
key = Val(Text1.Text)
n = 0
i = 1
j = 100
Do While i <= j
n = n + 1 '计数器n用来计数总共查找了多少次
m = Fix((i + j) / 2)
If d(m) = key Then
bz = "存在该数，在第" + Str(m) + "位" '***
Exit Do
ElseIf d(m) < key Then
i = m + 1
Else
j = m - 1
End If
Loop
bz = bz + ",共查找" + Str(n) + "次" '想想看为什么变量bz在此处连接str(n),而不在***处Label1.Caption = bz
End Sub
Private Sub Command6_Click() '过程6：顺序查找
Dim key, m As Integer
Dim bz As String
m = 0
bz = "不存在该数"
key = Val(Text1.Text)
For i = 1 To 100
If d(i) = key Then
m = m + 1
End If
Next i
If m > 0 Then
bz = "存在该数，总共有" + Str(m) + "个"
End If
Label1.Caption = bz
End Sub
VB读写ini文件（1） 2007-06-20 11:32 自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。 Dim Ret As Long Dim Start As Long Public FileName As String Const BufSize = 10240 Dim buf As String * BufSize Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String) Ret = WritePrivateProfileString(clsName, key, V, FileName) End Sub Public Function GetValue(ByVal clsName As String, ByVal key As String) As String Ret = GetPrivateProfileString(clsName, key, "", buf, BufSize, FileName) Start = 1 GetValue = RetStr() End Function Private Function RetStr() As String Dim i As Long i = InStr(Start, buf, Chr(0)) If i > Start Then RetStr = Mid(buf, Start, i - Start) End If Start = i + 1 End Function 至此已经完成了对一个完整的独立模块的封装，接下来就来看看怎么引用（其实看完上面程序就明了了） VB读写INI文件（2） 2007-06-20 11:32 INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下： [Section1] Key1=Value1
VB获得Windows各类系统目录的方法 现在有很多关于如何用VB获得Windows目录的文章,但大都只讲到如何获得Windows目录和System目录，有时候我们却需要获得像"我的文档"这样的目录（"我的文档"的路径并不是固定的，可以由自己设定，也有可能因为系统的安装路径不同而不同），那又该如何处理呢？下面我们来具体谈谈如何用VB获得这种路径。 先向大家介绍两个ＡＰＩ函数，这两个函数分别是SHGetSpecialFolderLocation和SHGetPathFromIDList，这就是我们用来获得各种路径的武器。 函数声明: Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long 函数功能及参数说明： SHGetSpecialFolderLocation：获得某个特殊目录在特殊目录列表中的位置；它有三个参数，第一个参数是用来指定所有者窗口的，在应用中一般我们写上"0"就可以了；第二个参数是一个整数id，它决定要查找的目录是哪一个目录，它的取值可能如下： &H0& '桌面 &H2& '程序集 &H5& '我的文档 &H6& '收藏夹 &H7& '启动 &H8& '最近打开的文件 &H9& '发送 &HB& '开始菜单 &H13& '网上邻居 &H14& '字体 &H15& 'ShellNew &H1A& 'Application Data &H1B& 'PrintHood &H20& '网页临时文件 &H21& 'Cookies目录 &H22& '历史 第三个参数是获得的特殊目录在特殊目录列表中的地址。 SHGetPathFromIDList：根据某特殊目录在特殊目录列表中的地址获取该目录的准确路径。它有两个参数，第一个参数是特殊目录在特殊目录列表中的地址，也即上一个函数所获得的地址；第二个参数是一个字符串型数据，用来保存返回的特殊目录的准确路径。 比如：为了获得DeskTop的路径，首先需调用SHGetSpecialFolderLocation获得DeskTop在特殊目录列表中的位置Pid，然后调用SHGetPathFromIDList函数获得Pid指向的列表内容，即DeskTop的准确路径。 下面是我编写的一个用来获取Windows各种目录路径的例子，供大家参考。如果您有什么问题或建议，欢迎给我来信(xuhaoliang@https://www.doczj.com/doc/3d8446174.html,)。
vb读取txt文件到textbox vb读取txt文件到textbox 1.怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For Random As gfilenum len=3 \'以随即方式打开一文件如果文件不存在就新建 用get #gfilenum ,记录在文件中位置,要放取得的数据的变量\'读取操作 用put #gfilenum ,记录在文件中位置,要放着要写入数据的变量\'写操作 close #filenum\'关闭文件 以下为顺序方式打开的文件 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For output As gfilenum \'以写入方式打开文本 print #gfilenum,要写入的文本 write #filenumber,要写入的文本 dim gfilenum as integer gfilenum = FreeFile Open "文件路径及文件名" For input As gfilenum \'以读出方式打开文本 input #gfilenum ,用来放读取的内容的内存变量名 还可用line input#,input()等读取更详细的查msdn 2.VB读取文本文件时，调用TextStream 对象中使用OpenTextFile报错了。 如果是 Set f = fs.OpenTextFile("E:\\table\\trace.txt", forreading, True, TristateUseDefault)
原文地址：vb2008 文件目录相关作者：esonbest 以下摘自《vb2008开发经验与实战宝典》源码位置c01 '将指定URI数据下载到本地文件Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim MyUri As String = "https://www.doczj.com/doc/3d8446174.html,/mspress/images/banner.gif" Dim MyFileName As String = "banner.gif" Dim MyClient As New https://www.doczj.com/doc/3d8446174.html,.WebClient() MyClient.DownloadFile(MyUri, MyFileName) System.Diagnostics.Process.Start(MyFileName) End Sub Public Class Form1 '判断指定目录是否已经存在 System.IO.Directory.Exists(MyDir1) '获取指定目录的上级目录 Dim MyParentDir = System.IO.Directory.GetParent(MyDir).FullName '获取全路径名的目录信息 Dim MyDirectoryName = System.IO.Path.GetDirectoryName(MyPathName) '获取全路径名的根目录信息 Dim MyPathName = "C:WindowsNotepad.exe" Dim MyRootDirectoryName = System.IO.Path.GetPathRoot(MyPathName) '获取当前工作目录 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
做二次开发过程中的一些代码搜集和个人的试错及注释： Dim str_File_1 As String = https://www.doczj.com/doc/3d8446174.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件 Dim str_File_2 As String = https://www.doczj.com/doc/3d8446174.html,puter.FileSystem.ReadAllText("E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件 FileOpen(1, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\1.tcl", OpenMode.Input, OpenAccess.Default, OpenShare.Shared) '以读方式打开文件 FileOpen(2, "E:\Visual Studio\Visual Basic\GUI\WindowsApplication2\Resources\2.tcl", OpenMode.Output, OpenAccess.Default, OpenShare.Shared) '以写方式打开文件 Print(2, str_File_1) '将1文件写入2中 FileClose(1) FileClose(2) Imports System.IO Public Class TXTClass '为了能够操作txt文本文档，需要在类的前面加入“System.IO”空间的引用； '然后定义3个变量sw（用于write操作，变量类型StreamWriter）、 'sr（用于read操作，变量类型StreamReader）、 'strRead()（用于保存从文本文档中读入的数据，变量类型String数组）； '然后写一个空的sub New()过程（类必须有的）。 Private swAsStreamWriter Private srAsStreamReader Public strRead() As String Public Sub New() End Sub '写操作 '写入一行数据到文本文件 '以追加的形式写入一行数据 Public Sub ZhuiJiaSingle(ByValParth As String, ByValstrline As String) sw = New StreamWriter(Parth, True, System.Text.Encoding.Default) sw.WriteLine(strline) sw.Flush() sw.Close() sw = Nothing
实验1 环境和文件 实验目的： 1．熟悉VB的集成开发环境 2．掌握常用控件的属性、方法 3．熟悉常用对象事件的使用 4．熟悉文件系统控件的使用 5．掌握文件的打开、关闭和读写操作 实验1.1认识Visual Basic 实验任务： 认识Visual Basic的集成开发环境，熟悉各个窗口的功能，熟悉控件的属性、方法，熟悉事件的使用。实验结果界面如图1-1所示。 图 1-1 实验1.1运行界面 实验步骤： 1．启动VB6.0，创建一个“标准EXE”类型的应用程序。 2．将窗体的Font属性设为宋体、小二、粗体，Caption属性设置为“我的第一个程序”。 3．在窗体上添加两个命令按钮Command1(Caption属性设置为“欢迎”)和Command2(Caption属性设置为“再见”) 。 4．双击“欢迎”按钮，涉及如下代码： Print “欢迎使用Visual Basic” 5．双击“再见”按钮，添加如下代码： End 6．将窗体和工程分别以文件名vb1.frm和vb1.vbp保存在自己的文件夹中。 7．单击F5，试验运行本程序，直至满意为止。
说明：这里，“自己的文件夹”指任意磁盘获U盘如D盘根目录下以自己的名字和学号命名的子目录(例如姓名为“赵阳”，学号为09080126；则自己的文件夹就是“D:\赵阳09080126”)，以后所有的实验若无特殊说明均保存在该目录下。 思考：除了上述方法，还可以怎样实现上述题目要求？试一试。 实验1.2 对象移动动画 实验任务： 熟悉Move方法实现对象移动，进一步熟悉控件事件的使用。实验结果界面如图1-2所示。 图1-2 实验1.2运行界面 实验步骤： 1．将窗体的Caption属性设为“欢迎新同学”；为窗体设置Picture属性（图片可以从C:\Windows\Web\Wallpaper中取,也可放自己喜欢的照片），设置窗体不可改变大小。 2．在窗体上添加两个标签，Caption属性为“欢迎新同学”，并将其设置为浮雕效果（提示：浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
读取文本文件内容并打印输出 Private Sub Command1_Click() Dim TextLine As String Open "c:\\testfile.txt" For Input As #1 Do While Not EOF(1) Line Input #1, TextLine Print TextLine Loop Close #1 End Sub 新建文件并写入文件内容 Private Sub Form_Load() Const ForReading = 1, ForWriting = 2 Dim fso, f Dim SkipLineInFile As String Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\\testfile.txt", ForWriting, True) f.Write "Hello world!" & vbCrLf & "VB Script is fun!" Set f = fso.OpenTextFile("c:\\testfile.txt", ForReading) SkipLineInFile = f.readall Debug.Print SkipLineInFile End Sub 冒泡上浮 Private Sub Command1_Click() Dim d(1 To 4) As Integer d(1) = Val(Text1.Text) d(2) = Val(Text2.Text) d(3) = Val(Text3.Text) d(4) = Val(Text4.Text) For i = 1 To 3 For j = 4 To i + 1 Step -1 If d(j) < d(j - 1) Then t = d(j) d(j) = d(j - 1) d(j - 1) = t End If Next j Next i For i = 1 To 4
总结一下VB6的文件操作，省得要用的时候又到处查找。 一、文件类型 1、顺序文件（文本文件）：以ASCII码形式存放的文件。似乎还有Unicode码存放的，有没有BCD码的呢？ 2、随机访问文件：这种文件格式很有特点：文件中存放若干条等长的单元（也可以说是记录）；每个单元包含同类型、等数量、等长度的数据项；文件中，除了字符串以ASCII码存放之外，其它都以二进制形式直接存放，节省存储空间。这种文件类型非常适合存储需要和软件交互的数据，如结构体数据、类数据等。这也是VB特有的文件访问方式。 3、二进制文件：以二进制形式存放，PE程序文件一般都是这个类型。 二、操作方法 1、顺序文件 打开：Open 文件名For Input | Output | Append As [#]文件号 Input打开读入，文件不存在报错。Output打开覆盖写入，文件不存在则创建。Append打开追加写入，文件不存在则创建。 读：Line Input #文件号, 字符串变量
读一行数据存入字符串变量，数据包括空格、Tab、等，不包括回车符和换行符，所以要显示文件的换行效果，要手动添加回车符和换行符（vbCrLf） Input #文件号, 变量1[, | ;] [变量2]... 这种方式可以存入多个变量，而且变量类型不限于字符串型。写：Print #文件号, 参数1[, | ;] [参数2]... 将各参数逐个写入文件。参数间用逗号隔开时，文件中相应插入多个空格；用分号隔开时，插入一个空格。可以用Spc(n)、Tab(n)等进行排版。 Write #文件号, 参数1[, | ;] [参数2]... 这种写入方式将自动添加界定符，对不同参数的类型加以界定。 2、随机访问文件 打开：Open 文件名[For Random] As [#]文件号Len = 记录长度 For Random可以省略，文件不存在则创建，读写都是这种打开方式。Len是文件中记录的一条长度，用以识别记录的开始与结束，经常用Len(记录名)来获取长度。 读：Get [#]文件号, [记录号], 变量
ACCESS数据库和 VB 的连接 Edited by Ryan 2013 1、建立 Access 数据库 2、启动 VB，建立标准EXE 图 1 3、添加 ActiveX 控件 鼠标指向任意VB 控件，单击右键，选择“部件（O）”，出现图 3 所示界面图2
图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ”，出现如图 4 所示控件图4
4、添加控件Adodc 图5 4、在控件 Adodc 上添加数据源 鼠标指向控件Adodc1 ，单击右键，选择“ADODC 属性”，弹出如图7 所示界面图6
图7 单击“生成(U). . .”，弹出如图8 所示界面 图8 选择“ Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图 9 所示界面
图9 单击“ . . .”，添加数据源（第一步所建Access 数据库），如图 10 所示 图10 单击“测试连接（T）”，出现提示框，如图11 所示 图11 之后点击“确定” ，退回到如图12 所示界面
图12 单击“记录源” ，弹出如图13 所示界面 图13 在“命令类型”下，选择“ 1 - adCmdText”，在“命令文本（ SQL）”下，输入“ Select * from test1 ”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click()‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open‘打开数据库 rs.Open "select * from test1", mydb, 3, 3‘打开数据库中的表test1
★ 用VB在硬盘上创建一个文件夹：Mkdir语句。格式： Mkdir "路径及文件夹名" mkdir "c:\windows\desktop\李新宁" 在桌面上创建个名为"李新宁"的文件夹 又如： Private Sub Command2_Click() MkDir "c:\windows\desktop\mydir" End Sub 如果缺省路径，则为本VB程序的当前路径，如：mkdir "mydir",在当前目录下创建一个文件夹，名为mydir. 用VB删除一个文件夹（空文件夹）：RmDir语句，格式： rmdir "路径及文件夹名" 用法与上面类似，此不再说明.如果一个文件夹内有文件，那么，要先用KILL语句删除文件，再用rmdir删除文件夹。格式： kill "路径及文件名" 在路径及文件名中，省略路径则指当前路径，并可用通配符"*"和"？"来删除多个文件，如：kill "*.txt" ，将当前目录下的所有文本文件全部删除。注意：KILL语句删除的文件不会放入回收站。 在调用函数或过程时，该函数或过程如果作为表达式，则其实参要括号，如果调用时是作为语句，实参则不要括号。下面两句是等价的。 SetWindowTextA Form1.hwnd, "API函数修改标题栏文字" --函数语句 Call SetWindowTextA(Form1.hwnd, "API函数修改标题栏文字") --函数为表达式 API调用格式中的 lib"库名" 有一点要注意，如果不是调用Windows\system文件夹下的DLL 库，则要指明路径名，如： public declare function lxnsdll lib "d:\student\mydll.dll"(byval a as integer,byval b as integer) as long 在程序中窗体的运行位置是用一个叫做"窗体布局"的窗口来调整的，可否用另外的替代法，而不用这个不精确的"窗体布局"窗口呢？ 当然可以，那就是在代码中，例如要使窗体居于显示器中央，有两个新属性变量，screen.width和screen.height，分别表示本显示器的屏幕宽度（screen.width)和显示器高度（screen.height).用屏幕宽度减去窗体FORM1宽度再除以2，就可得到FORM的left 左边距了（也就是横坐标吧），用屏幕高度减FORM1高度再除以2。就可得到FORM的top 上边距了（纵坐标），这样便可居中，如下： Form1.Left = (Screen.Width - Form1.Width) / 2 Form1.Top = (Screen.Height - Form1.Height) / 2 VB基本概念：对象--对象是具有某些特性的具体事物的抽象。 我在使用VB时遇到一个问题，我想用一个组框（frame1)将几个按纽括在一起，可是当组框画上去后却会把按纽都覆盖掉。按纽不见了（在frame1图层下面），怎么办？什么办法可以决定几个对象重合时，哪个在上，哪个在下？办法如下：1，选中要改变图层前后的对象；2，在"格式"菜单中"顺序"菜单项中选"置前"（在上面）或"置后"（在下面）即可。另外，在代码中也可以，用zorder方法，格式： 对象名.zorder 0或1（0为置前，1为置后） frame1.zorder 1 重点笔记：事件
vb操作txt（VB operation TXT） 细胞（1,1）代表A1细胞（2，C）代表C2 = COUNTIF（“”）+ COUNTIF（“”）+ COUNTIF（“”） 1。怎么通过代码创建一个文本文件，并读取，更新内容 以上为随即方式打开的文本文件 昏暗的gfilenum为整数 gfilenum = FreeFile 随机gfilenum len = 3打开“文件路径及文件名” “以随即方式打开一文件如果文件不存在就新建 用得到# gfilenum，记录在文件中位置，要放取得的数据的变量”读取操作 用把# gfilenum，记录在文件中位置，要放着要写入数据的变量”写操作 近# filenum”关闭文件 以下为顺序方式打开的文件 昏暗的gfilenum为整数 gfilenum = FreeFile 打开输出”文件路径及文件名”gfilenum”以写入方式打开文本
打印# gfilenum，要写入的文本 写#文件号，要写入的文本 昏暗的gfilenum为整数 gfilenum = FreeFile 打开“文件路径及文件名“输入”以读出方式打开文本gfilenum 输入# gfilenum，用来放读取的内容的内存变量名 还可用线路输入#，等读取更详细的查MSDN（） 2。VB读取文本文件时，调用对象中使用报错了文本中去。 如果是 集F = fs。中去（“E：\表格\痕迹。txt”，读书，真的，TristateUseDefault） 出现错误： 运行时错误格”： 无效的过程调用或参数 如果是 集F = fs。中去（“E：\表格\痕迹。txt）”
则不会报错。 用文件对象啊filesystemcontrol操作就好了啊 再加上一个文本读取文件第一行就好了啊。 3。VB通过FileSystemObject，可以读取文本文件（.txt）。对于。蝙蝠文件，VB可否直接读取？ 蝙蝠也属于文本类文件 可以读取 不用FSO也行： 把文本文件内容读取文本框： 朦胧的TempFile As Long 昏暗的loadbytes()字节 tempfile = FreeFile 二开文件名作为# tempfile Redim LoadBytes（1～LOF（TempFile））为字节 得到# tempfile，，LoadBytes 关闭tempfile
Imports System.IO Public Class TxtFileDemo Private Sub btnwrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnwrite.Click '写入按钮的事件触发程序 '创建一个filestream类的实例 Dim fsrw As New FileStream(txtfilename.Text, FileMode.Create) '创建streamwriter类的实例 Dim sw As New StreamWriter(fsrw) '调用writeline方法，将文本框中的内容和一个换行符写入文件 sw.WriteLine(txtfile.Text) '关闭打开的文件（流） sw.Close() MessageBox.Show("成功写入") End Sub Private Sub btnread_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnread.Click '读出按钮的事件触发程序 '创建streamreader类的实例 Dim sr As New StreamReader(txtfilename.Text) txtfile.Clear() '从文件的当前位置读到文件的结尾，并显示到文本框 txtfile.Text = sr.ReadToEnd() sr.Close() End Sub End Class
vb操作word详解 Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格中的选定内容。在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。要在Word中自动执行任务，可以使用这些对象的方法和属性。 关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。在Microsoft Office 97中的对象模型相当丰富，其中包含了大约180个对象。要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。 怎样显示Word Visual Basic帮助 要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线帮助”复选框。否则，安装程序不会安装Visual Basic帮助。如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引”一项。在“帮助主题”对话框的“目录”一表中，双击“Microsoft Word Visual Basic 参考”，然后再双击“Visual Basic 参考”。“帮助主题”对话框会重新出现，显示出Microsoft Word Visual Basic的目录和索引。 运用Application 对象 在用户启动一个Word 时段的同时，也创建了一个Application 对象。用户可以使用Application 对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观或者调整Word 对象模型的其他方面。可以使用Application属性来返回Word Application 对象。以下的示例从视图状态切换到打印预览状态。 Application. PrintPreview = True Application对象的一些属性控制着应用程序的外观。例如，如果DisplayStatusBar属性为True(真)，那么状态栏是可见的，如果WindowState属性值为wdWindowStateMaximize，那么应用程序窗口处于最大化状态。以下的示例设置了屏幕上应用程序窗口的大小。 With Application .WindowState = wdWindowStateNormal .Height = 450 .Width = 600 End With
VB文件操作(一) 2009年12月01日星期二 12:28 在程序设计中，文件是十分有用和不可缺少的。由应用程序产生或处理过的数据，往往在应用程序结束以前仍需保留，或者为了存取方便，提高上机效率，需要将由输入设备输入的数据保存在存储介质上（如磁盘，磁带等）。这些数据是以文件的方式保存在存储介质上的，需要读取数据时可以从外存储器调出，需要保存时可以由内存写到外存。在程序中可直接对文件进行处理，可以保存、访问它所处理的数据，也可以使其它程序共享这些数据。 VB具有强大的文件处理能力，可以处理顺序文件、随即文件和二进制文件，同时提供了与文件处理有关的控件，也提供了大量与文件管理有关的语句、函数。本章介绍文件的结构、三种文件类型、VB对文件和目录维护的主要语句和函数、VB程序对文件的操作方法（文件系统对象）。 6.1 文件 在VB程序中，需要输入少量数据，可通过程序中直接赋值来完成，或通过输入函数以获取数据（如使用函数InputBox），但输入大量的数据时，这些方法易造成数据输入和数据存储不方便，在重复输入相同的数据时，易造成数据不一致。鉴于这种情况，可以将这些大量的数据存储在一个或多个文件中，使用时再从相应的文件中读取。 通常情况下，计算机处理的大量数据都是以文件的形式存放在外部介质（如磁盘）上，操作系统也是以文件为单位对数据进行管理。当访问外部介质上存储的数据时，先按文件名找到所需要的文件，再从该文件中读取相关数据；在外部介质中存入数据时，也必须先建立一个文件，才能向它写入数据。 在介绍文件结构和类型之前，简单介绍对文件命名的基本规则。在Visual Basic 中，文件说明的一般格式为： 设备名：文件引用名 例如： D：myfile.abc 这里的“D：”是设备名，而"myfile.abc”是文件引用名。 设备名是存放文件的设备的名称，如磁盘、磁带、打印机等。在微机中，存放文件的主要设备是磁盘，其名称通常为A：，B：，C：，D：等，分别代表A，B，C，D等驱动器。 在DOS环境下，文件引用名由两部分组成，即文件基本名和扩展名。其中文件基本名常以字母开头，最多不超过8个字符；扩展名是可选的，最多不超过3个字符；在文件基名和扩展名之间有一个圆点。通常把这种文件名称为“8.3”格式。如上例中的“myfile.abc” 在Windows中可以使用长文件名，其长度最多不超过255个字符，并能自动维护传统的“8.3”格式的文件名。 下列字符可用做文件基本名和扩展名： (1)英文字母：a～z、A~Z (2)数字：0～9 (3)特殊字符：$ # & @ ! ％ ( ) _ - | ，^ ~ ／ Visual Basic窗体文件的扩展名为.frm，工程文件的扩展名为.vbp，标准模块文件的扩展名为.bas，可执行文件的扩展名为.exe，等等。用户可使用自己的扩展名，但不要与系统使用的扩展名相矛盾。 完整的文件说明由设备名和文件引用名构成。对于磁盘文件来说，还可以含有
有2个txt文件 txt1:123 txt2：456 一个按钮一个text 怎么点击按钮读取txt1+txt2在text（123456） 恩，这样 Private Sub Command1_Click() Dim intTxt1 as double Dim intTxt2 as double intTxt1=Cdbl(text1.text) intTxt2=Cdbl(text2.text) lblCaption.caption = intTxt1 & intTxt2 End Sub 你提的问题不清楚，是2个txt文件还是2个文本框，如果是2个txt文件就要用到读取文件的操作了。如：open 文件名as # 1 2011-10-31 08:51 killserver007|一级 '读取 Private Sub Command1_Click() Dim fn As Long, StrRead As String Dim aStr As String fn = FreeFile() aStr = "" '路径可以用App.Path & "\aa.txt" 表示程序所在目录的aa.txt文件 Open "d:\aa.txt" For Input As #fn Do While Not EOF(fn) Line Input #fn, StrRead aStr = aStr & StrRead & vbCrLf Loop Close #fn '解密方法解密aStr '... Text1.Text = aStr '解密后的aStr End Sub
'保存 Private Sub Command2_Click() Dim fn As Long, aStr As String aStr = Text1.Text '用自己的加密方法加密aStr '... fn = FreeFile() Open "d:\aa.txt" For Output As #fn 'Print语句会覆盖文件中原有数据 Print #fn, aStr '加密后的aStr Close #fn End Sub 三门县海游镇平海路99号紫云山庄61幢1单元202室 三门县海游镇平海路97号紫云山庄61幢2单元204室 三门县海游镇平海路98号紫云山庄61幢2单元24室 三门县海游镇平海路99号紫云山庄61幢三单元2053室 2011-10-31 09:02 pdprf|四级 Private Sub Command1_Click() Open "txt1路径" For Input As #1 '读取路径到文本 While Not EOF(1) Line Input #1, S txt1= txt1 & S & vbCrLf Wend Open "txt2路径" For Input As #1 '读取路径到文本 While Not EOF(1) Line Input #1, S txt2= txt2 & S & vbCrLf Wend Text1.Text = txt1 & vbcrlf & txt2 '将读取内容放入文本框' Close #1 '关闭#1号文件 End Sub
VBA文件操作及目录操作 VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。 （一）文件处理 https://www.doczj.com/doc/3d8446174.html, 语句 语法：Name oldpathname As newpathname 功能：重命名一个文件、目录、或文件夹，移动一个文件。 说明：在一个已打开的文件上使用Name，将会产生错误。进行文件操作时，一定要注意错误处理。 示例： On Error Resume Next '错误处理 Name "f:/TEST.xls" As "f:/TEST123.xls" '重命名 Name "f:/TEST.xls" As "f:/dll/TEST.xls" '移动文件 Name "f:/TEST.xls" As "d:/TEST123.xls" '跨驱动器移动并重命名文件 注意：Name不能移动一个目录或文件夹。 2、FileCopy 语句 语法：FileCopy source, destination 功能：复制一个文件。 说明：如果对一个已打开的文件使用FileCopy 语句，则会产生错误。 示例： FileCopy "f:/TEST.xls", "e:/TEST.xls" '从F盘复制TEST.xls到E盘 3、Kill 语句 语法：Kill pathname 功能：从磁盘中删除文件。 说明：Kill 支持多字符(*) 和单字符(?) 的统配符来指定多重文件。如果使用Kill 来删除一个已打开的文件，则会产生错误。 示例： Kill "f:/TEST.xls" ’删除F盘的TEST.xls文件 Kill "f:/*.xls" ' 删除F盘所有xls文件 4、GetAttr 函数