6.4.frm

来自「VB6.0应用例题」· FRM 代码 · 共 38 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type TeacherRec             '定义记录类型
  Name As String * 30
  Wage As Single
  Level As String * 16
End Type
Private Sub Form_Click()
  Dim varTeacherRec As TeacherRec  '定义记录类型变量
  Open "C:\teacher.txt" For Random As #1 '建立或打开一个随机文件用于读写
  With varTeacherRec              '给记录类型变量的各字段赋值
   .Name = "丁进"
   .Wage = 1560.5
   .Level = "讲师"
  End With
  Put #1, , varTeacherRec             '将记录类型变量的值写入文件
  Get #1, 1, varTeacherRec            '将文件中的第一个记录的内容读取到变量中
  Print varTeacherRec.Name           '输出各字段的值
  Print varTeacherRec.Wage
  Print varTeacherRec.Level
  Close #1
End Sub