Visual Basic程序设计教程第11章.ppt

在Text1的KeyUp事件过程中编写代码，根据返回的KeyCode参数进行判断，如果KeyCode值为13，说明按下了回车键，则从随机文件中读取指定的记录： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) recno = Val(Text1.Text) If KeyCode = 13 Then 求文件的总记录数recCount recCount = LOF(1) / Len(Stud) * If recno recCount Or recno = 0 Then MsgBox 记录号超出范围 Text2.Text = : Text3.Text = Text4.Text = : Text5.Text = Else Get #1, recno, Stud Text2.Text = Stud.studNum Text3.Text = Stud.studName Text4.Text = Stud.Math Text5.Text = Stud.English End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub * 在窗体的UnLoad事件过程中关闭随机文件： Private Sub Form_Unload(Cancel As Integer) Close #1 End Sub * 运行时，在文本框Text1中输入记录号，按下回车键，则显示相应的记录信息： * 11.4 二进制文件 二进制文件是以字节为单位进行访问的文件。由于二进制文件没有特别的结构，整个文件都可以当作一个长的字节序列来处理，所以可以用二进制文件来存放非记录形式的数据或变长记录形式的数据。 * 11.4.1 二进制文件的打开和关闭 1．二进制文件的打开 格式 ： Open 文件名 For Binary As [#]文件号 说明 ：“For Binary”表示打开二进制文件，不能省略。使用Open语句打开二进制文件时，如果文件已经存在则直接打开，否则，建立一个新的文件。 2．二进制文件的关闭 二进制文件的关闭同样使用Close语句 * 11.4.2 二进制文件的读写 1．写文件 格式 ： Put [#]文件号,[位置],变量名 功能 ：将“变量名”包含的数据写入二进制文件中。 * 说明： 位置：表示从文件头开始的字节数，文件中的第一个字节位于位置1，第二个字节位于位置2，依此类推，文件从此位置开始写入数据；如果省略“位置”，则数据从上次读或写的位置数加1字节处开始写入。 变量名：任何类型的变量。每次写入的数据长度为此数据类型所占的字节数。如果是可变长度字符串，写入的将是字符串数据，而不包括结束符，建议最好使用定长字符串读写二进制文件。 * 使用Seek语句来定位读写文件的位置： Seek [#]文件号, 字节数 功能：是将文件的读写位置定位到“字节数”所指的位置处。 例如，在文件的第10个字节处写入“实验”，使用下列语句： Seek #1, 10 Put #1, , 实验 格式： * 2．读文件 格式 ： Get [#]文件号,[位置],变量名 功能 ：从由“文件号”指定的二进制文件读取数据到“变量名”指定的变量中，读取的位置由“位置”参数指定，读取的字节数等于“变量名”指定的变量的长度。 * 【例11-8】编写一个复制文件的程序，将源文件的内容按字节复制到目标文件。 界面设计 : CommonDialog1 Text2 Commamd3 Text1 Commamd1 Commamd2 * 代码设计： 在Command1的Click事件过程中，将通用对话框控件显示为一个打开文件对话框，将在对话框中选择的文件名显示在文本框Text1中： Private Sub Command1_Click() CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName End Sub * 在Command2的Click事件过程中，将通用对话框控件显示为一个保存文件对话框，将在对话框中选择的文件名显示在文本框Text2中： Private Sub Command2_Click() CommonDialog1.ShowSave Text2.Text