= 3400
    Else
        txtobject(i).Left = 1200
        lblObject(i).Left = 200
    End If
    If i > 1 Then
        txtobject(i).Top = txtobject(i - 1).Top + 400
        lblObject(i).Top = txtobject(i - 1).Top + 400
    Else
        txtobject(i).Top = 300
        lblObject(i).Top = 300
    End If
    If i Mod 2 = 0 Then
    txtobject(i).Top = txtobject(i - 1).Top
    lblObject(i).Top = txtobject(i - 1).Top
    End If
Next
txtobject(i - 1).Width = Form1.Width - 1500
If i Mod 2 = 1 Then
lblObject(i - 1).Left = 200
lblObject(i - 1).Top = lblObject(i - 1).Top + 400
txtobject(i - 1).Left = 1200
txtobject(i - 1).Top = txtobject(i - 1).Top + 400
End If
End Sub

Public Function GetLabelName()
For i = 1 To Data1.Recordset.Fields.Count
  txtobject(i).Text = Data1.Recordset.Fields(i - 1)
  lblObject(i).Caption = Data1.Recordset.Fields(i - 1).SourceField
Next
End Function

Public Function GetTxtName()
For i = 1 To Data1.Recordset.Fields.Count
  txtobject(i).Text = Data1.Recordset.Fields(i - 1)
Next
End Function

Private Sub Form_Activate()
Data1.Recordset.MoveFirst
GetFieldNum
GetLabelName
End Sub
四、几点说明
1、      本程序在WIN98、IE5.0、拨号上网下调 试通过。
2、      本程序具有许多自动功能，自动读取数据库中对应的字段，自动生成文本框、自动生成标签。程序实现了电子邮件的自动群发功能，与某些网站的群发不同，它又相对独立，因为每一个收信的对象并不知道发了多少封E-mail。如果将此功能扩充，可以应用到许多领域或部门，完全脱离一些网站为防止垃圾邮件的限制条件。
3、      与数据库中字段个数的多少无关，使程序的通用性增强。
4、      真正做到了班主任工作电子化（无纸化）管理。
5、      程序的功能还有待进一步完善和扩充。

参考文献：
1. 刘友生.VB实现Email的自动回复.北京.计算机世界报，2002.08.第29期
2.谭浩强，薛淑斌，袁玫编著.Visual BASIC程序设计.北京：清华大学出版社，2001.1
3. 刘友生.活用文本框.哈尔滨工业大学：电脑学习，2002.10

上一页  [1] [2]