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

《VB实例(含代码和窗体).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、.VB实例第一天、使用VB收发电子　　大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB的认识，还可以让你拥有十足的成就感呢！　　LOLI：好呀，那做一些什么程序呢？　　大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？　　LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。　　大叔：这个我自然知道，那我们就开始动手制

2、作一个收发电子的程序吧。　　LOLI：收发电子？这个会不会很难呢？　　大叔：正所谓会者不难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！　　一、准备工作　　大叔：在VB中编写电子程序需要通过调用微软公司的MAPI（MessagingApplicationProgrammingInterface，消息应用程序编程接口），这需要借助两个实现电子收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个MicrosoftMail会话，MAPI消息控件用于创建和收发消息。此外，Windows系统中必

3、须要有遵从MAPI的系统，比如Exchange、Outlook等软件，而还要进行一番设置，确保系统可以正常使用。　　LOLI：呵呵，没关系，我用的就是Outlook，正好符合要求。不过你说的MAPI控件在哪里找呢？　　大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“MicrosoftMAPIControls”一项（如图1所示），接着按下“确定”按钮之后可以发

4、现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标（如图2所示）。..图一图二　　二、发送程序　　大叔：添加好我们所需要的控件之后，就开始定制的发送程序吧。这个发送程序的基本处理过程是：根据用户输入信息组成，然后使用MAPI消息控件的Send方法将发出。具体的方法按照下述步骤完成：　　1、新建一个VB项目，并将缺省窗体Form1的Caption属性设置为“发送”。　2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。　　3、在Form1中加入三个

5、TextBox控件，将它们的名称属性分别设置为“txtSendTo”、“txtSubject”和“txtMessage”，另外还要将txtMessage的Multiline属性设置为“True”。这三个TextBox控件将分别用于填写的收件人地址、主题和正文。　　4、在Form1中加入三个Label控件，将它们的Caption属性分别设置为“收件人”、“主题”和“容”，并将它们放在合适的位置用以标注相应的TextBox控件。　　5、在Form1中加入一个CommandButton控件，将其Caption属性和名称属性分别设置为“发送

6、”和“Send”。　　所有的控件添加完毕之后应该如图3所示。..图三　　LOLI：还挺像这么回事的呢，接着应该填写代码了吧。　　大叔：是呀，下面就是代码部分的容：　　1、将下列代码加入Form1的Form_Load事件：　　PrivateSubForm_Load()　　MAPISession1.SignOn　　/运行程序之后进行登录操作　　EndSub　　2、将下列代码加入Form1的Form_Unload事件：　　PrivateSubForm_Unload(CancelAsInteger)　　MAPISession1.SignOf

7、f　　/退出程序时候进行退出操作　　EndSub　　3、将下列代码加入cmdSend的Click事件：　　PrivateSubcmdSend_Click()　　WithMAPIMessages1　　.MsgIndex=-1　　.RecipDisplayName=txtSendTo.Text　　/收信人地址　　.MsgSubject=txtSubject.Text　　　　/主题　　.MsgNoteText=txtMessage.Text　　　　/正文　　.SessionID=MAPISession1.SessionID　　/发送程序和

8、工具之间建立的任务数　　.Send　　EndWith　　MsgBox"发送完毕！",,.."发送"　　/发送成功显示信息框　　EndSub　　这样一个电子发送部分就制作完成了，运行程序之后只要填写好的收件人、主题和容后，按下“发送”命