邮件检查程序(一)
按下表所示设置各控件的属性。
控件 名称 描述
Textbox txtHost 用于输入邮件服务器的名称或地址
Textbox txtUserName 输入用户名
Textbox txtPassword 输入密码
Textbox txtBody 显示邮件内容
Listview lvMessages 显示邮件清单
Command Button cmdCheckMail 用于启动接收并显示邮件的子程序
Command Button cmdExit 退出程序
将名为txtBody的文本框的Multiline属性设为True,Scrollbars属性设为3-Both。选择ListView控件,打开其属性对话框,在“列首”标签页中插入四个列,文本分别为: "From", "Subject", "Date", "Size",然后将该控件的View属性设为3-lvwReport。
直观的界面显示你是如何使用本程序的。首先输入邮件服务器的名称或地址,然后是你的用户名和密码。最报按检查邮件按钮。接下来,我们就会看到在ListView中显示的邮件列表了。点选其中的一项,邮件的内容就会显示在下面的文本框中。
从程序的外观及VB由事件驱动的本质,我们可以猜出我们只需要处理两个事件:cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必说了。先别急,让我们一步步来看看本程序的代码是怎样的。首先看看“检查邮件”按钮。当你按下这个按钮后,程序会首先检查文本框中的内容,然后调用Winsock的Connect方法连上远程服务器。下面是程序代码:
Private Sub cmdCheckMail_Click()
'检查除txtBody之外所有文本框的内容是否为空
For Each c In Controls
If TypeOf c Is TextBox And c.Name <> "txtBody" Then
If Len(c.Text) = 0 Then
MsgBox c.Name & " can't be empty", vbCritical
Exit Sub
End If
End If
Next
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载