窗体1:
Dim vb As EC
Private Sub Timer1_Timer()
If Label3.Left + Label3.Width > 0 Then
Label3.Move Label3.Left - 60
Else
Label3.Left = frmYH.ScaleWidth
End If
End Sub
Private Sub cmdAdd_Click()
Dim w() As EC
Dim i%
Dim j%
Dim n%
Dim p%
i = 1
txtWord.Text = " "
txtmean.Text = " "
Open "c:\cc5.txt" For Random As #1 Len = Len(vb)
While Not EOF(1)
Get #1, i, vb
i = 1 + i
Wend
p = i - 1
n = InputBox("请输入要添加的单词个数")
ReDim w(n)
For j = 1 To n
w(j).Word = InputBox("请输入单词")
w(j).Explon = InputBox("请输入解释")
vb = w(j)
Put #1, p, vb
p = p + 1
Next j
MsgBox "添加成功"
Close #1
End Sub
Private Sub cmdDel_Click()
Dim s As String * 10
Dim fn As String
Dim t1%
Dim t2%
Dim i%
Dim b%
Dim j%
Dim g%
Dim m%
Text1.Text = " "
Text2.Text = " "
s = InputBox("请输入要删除的单词")
Open "c:\cc5.txt" For Random As #1 Len = Len(vb)
i = 1
Do Until EOF(1)
Get #1, i, vb
If Trim(s) = Trim(vb.Word) Then
b = i
Exit Do
End If
i = i + 1