VB实例(含代码和窗体).docx

VB实例(含代码和窗体).docxVB实例
第一天、使用 VB收发电子邮件
大叔：我说 LOLI呀，既然你已经学习过 VB的基础知识，也做过一些简单的
程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。不如我来教 教你怎么样制作出一些切实可用的程序，这样既能够加深对 VB的认识，还可以让
你拥有十足的成就感呢！
LOLI :好呀，那做一些什么程序呢？
大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程
序，也可以做一个小游戏之类的，你看怎么样？
LOLI :好的，不过今天别教我做游戏，不然明天就没有心思学了。
大叔：这个我自然知道，那我们就开始动手制作一个收发电子邮件的程序吧。
LOLI :收发电子邮件？这个会不会很难呢？
大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始
动手吧！
一、准备工作
大叔：在VB中编写电子邮件程序需要通过调用微软公司的 MAPI（ Messaging
Applicatio n Programmi ng In terface，消息应用程序编程接口），这需要借助两个实 现电子邮件收发功能的核心控件： MAPI会话控件和 MAPI消息控件。MAPI会话控
件用于建立和控制一个 Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消
息。此外， Windows系统中必须要有遵从 MAPI的邮件系统，比如 Exchange、Outl
ook等软件，而还要进行一番设置，确保邮件系统可以正常使用。
LOLI :呵呵，没关系，我用的就是 Outlook，正好符合要求。不过你说的 MAP
I控件在哪里找呢？
大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自 己将MAPI控件加入VB工具箱。首先直接在 VB左边的控件栏中右击鼠标，并在
弹出菜单中选择 部件”命令，这时可以激活部件设置窗口，在其中的 控件”列表框
中选取“Microsoft MAPI Controls '一项（如图1所示），接着按下 确定"按钮之后
可以发现工具箱中将多出了两个图标，这就是 MAPI会话控件和MAPI消息控件的
图标（如图2所示）。
控牌|许计KT1&A对靈|
Mi ersisft Dirtcl Spctch Rtc«$nili*j Microsoft Dirtet TtKi^to^Spetch Qfflicr&soft Dir^ctAninikti&n Medliib Ccmtr^ 匸 Micr&saft FltxGrid Control 6. 0 (SP3)
Microieft Fortts 2. 0 Obj tel Libruy
C^icr&ssft Mitrurchic<l FltscGrid C&n^ro
MicroHft KIL Objtcl Librury
[Z Microsoft Int*rn«t Controls
Vli cr iMarui Try Err Comtral B
溯£僵】…]
厂只登示选定現③）
目1皿号
◎ □口
圍③、
岛曲|
确逗 | 取漕 | 应用®
图一
It) S'lpft MAPI Controls &
Edit 6 0 (SP3
Micr&s&ft . Ccrntr^L 6 0 t£F3) *j
2]
Ml crosoFt 粘研I Controlx &-0
定位 匚 \WimfT^yitrt3eSmMATI32 QCI
、邮件发送程序
大叔：添加好我们所需要的控件之后，就开始定制邮件的发送程序吧。这个邮 件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用 MAPI消息
控件的Send方法将邮件发出。具体的方法按照下述步骤完成：
1、 新建一个 VB项目，并将缺省窗体 Forml的Caption属性设置为 发送邮件”。
2、 在Forml中加入一个 MAPI会话控件 MAPISession1和一个 MAPI消息控件 MAPIMessagesI。
3、 在Form1中加入三个 TextBox控件，将它们的名称属性分别设置为 “
txtSend To"、“txtSubject和 ”txtMessage,另外还要将 txtMessage 的 Multiline 属性设置为 “T rue "这三个TextBox控件将分别用于填写邮件的收件人地址、邮件主题和邮件正
文。
4、 在Form1中加入三个 Label控件，将它们的Caption属性分别设置为 收件人”、
主题”和 内容”，并将它们放在合适的位置用以标注相应的 TextBox控件。
5、 在Form1中加入一个 Comma nd Butt