# Re: VB开档

Posted by coka on July 14, 1998 at 11:25:57:

In Reply to: Re: VB开档 posted by 小吴 on July 14, 1998 at 07:27:03:

: 你只拿一行程式来问，谁知道那里错了？

sorry.....(以下的程式未完成....get还没加.)

Private Type Data
Name As String
Nick As String
Bir As String
Tel1 As String
Tel2 As String
Add As String
BBC As String
Eml As String
Other As String
End Type

Private Sub Form_Load()
Open "D:\Mine\程式\Coka的好友名单\Tel" For Random As #1 Len = Len(Data)
Dim Person As Data
Person.Name = Data.Caption
Person.Nick = txtNick.Text
Person.Bir = txtBir.Text
Person.Tel1 = txtTel1.Text
Person.Tel2 = txtTel2.Text
Person.Add = txtAdd.Text
Person.Eml = txtEmail.Text
Person.Other = txtOther.Text
End Sub

Follow Ups:

- 当然不行 小吴 07:32:17 7/15/98 (1)
  - Re: 当然不行 Coka 16:14:12 7/15/98 (0)