《VB实例(含代码和窗体)》由会员分享，可在线阅读，更多相关《VB实例(含代码和窗体)（35页珍藏版）》请在金锄头文库上搜索。
1、.VB实例第一天、使用VB收发电子大叔：我说LOLI呀，既然你已经学习过VB的基础知识，也做过一些简单的程序，那么我也就不浪费口水教你认识界面、了解控件和学习语法了。不如我来教教你怎么样制作出一些切实可用的程序，这样既能够加深对VB的认识，还可以让你拥有十足的成就感呢！LOLI：好呀，那做一些什么程序呢？大叔：当然不会像我哥哥当年那样简单至极的程序，而是一些具有实用性的程序，也可以做一个小游戏之类的，你看怎么样？ LOLI：好的，不过今天别教我做游戏，不然明天就没有心思学了。大叔：这个我自然知道，那我们就开始动手制作一个收发电子的程序吧。LOLI：收发电子？这个会不会很难呢？大叔：正所谓会者不
2、难，难者不会，有我这位名师指点，你还怕什么呢？开始动手吧！一、准备工作大叔：在VB中编写电子程序需要通过调用微软公司的MAPIMessaging Application Programming Interface，消息应用程序编程接口，这需要借助两个实现电子收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发消息。此外，Windows系统中必须要有遵从MAPI的系统，比如Exchange、Outlook等软件，而还要进行一番设置，确保系统可以正常使用。LOLI：呵呵，没关系，我用的就是Outl
3、ook，正好符合要求。不过你说的MAPI控件在哪里找呢？ 大叔：在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标，并在弹出菜单中选择“部件命令，这时可以激活部件设置窗口，在其中的“控件列表框中选取“Microsoft MAPI Controls一项如图1所示，接着按下“确定按钮之后可以发现工具箱中将多出了两个图标，这就是MAPI会话控件和MAPI消息控件的图标如图2所示。 图一图二二、发送程序大叔：添加好我们所需要的控件之后，就开始定制的发送程序吧。这个发送程序的基本处理过程是：根据用户输入信息组成，然后使用MA
4、PI消息控件的Send方法将发出。具体的方法按照下述步骤完成：1、新建一个VB项目，并将缺省窗体Form1的Caption属性设置为“发送。 2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。3、在Form1中加入三个TextBox控件，将它们的名称属性分别设置为“txtSendTo、“txtSubject和“txtMessage，另外还要将txtMessage的Multiline属性设置为“True。这三个TextBox控件将分别用于填写的收件人地址、主题和正文。4、在Form1中加入三个Label控件，将它们的Caption
5、属性分别设置为“收件人、“主题和“容，并将它们放在合适的位置用以标注相应的TextBox控件。5、在Form1中加入一个mand Button控件，将其Caption属性和名称属性分别设置为“发送和“Send。所有的控件添加完毕之后应该如图3所示。图三LOLI：还挺像这么回事的呢，接着应该填写代码了吧。大叔：是呀，下面就是代码部分的容：1、将以下代码加入Form1的Form_Load事件：Private Sub Form_Load()MAPISession1.SignOn/运行程序之后进行登录操作End Sub 2、将以下代码加入Form1的Form_Unload事件：Private Sub
6、Form_Unload(Cancel As Integer)MAPISession1.SignOff/退出程序时候进行退出操作End Sub 3、将以下代码加入cmdSend的Click事件：Private Sub cmdSend_Click()With MAPIMessages1.MsgIndex = -1.RecipDisplayName = txtSendTo.Text/收信人地址.MsgSubject = txtSubject.Text/主题.MsgNoteText = txtMessage.Text/正文.SessionID = MAPISession1.SessionID/发送程序
7、和工具之间建立的任务数.SendEnd WithMsgBox 发送完毕！, , 发送/发送成功显示信息框End Sub 这样一个电子发送部分就制作完成了，运行程序之后只要填写好的收件人、主题和容后，按下“发送命令按钮，就已经成功地发往目的地了如图4所示。图4LOLI：真的发送出去了，不过这是不是你的障眼法呢？我要收到这封信才相信！大叔：对我还不相信？好吧，下面再制作一个接收程序来收取这封信件。三、接收程序大叔：接收程序比发送程序要复杂一些，这个程序首先需要使用MAPI消息控件的Fetch方法读取，这个过程将把用户收件箱中所有未读全部装入MAPI消息控件中。接着，检查MAPI消息控件的MsgCo
8、unt属性以确定通过Fetch方法读取的的总数，然后可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封。需要说明的是，MsgIndex属性值的计数是从0开始的，也就是说，第一封的索引号是0，第二封的索引号是1，依次类推。具体步骤如下： 1、新建一个VB项目，将缺省窗体Form1的Caption属性设置为“接收。2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。3、在Form1中加入三个Label控件和一个TextBox控件，将三个标签控件的名称属性分别设置为“lblMsgDateReceived、“lbl
9、MsgOrigDisplayName和“lblMsgSubject，将TextBox控件的名称属性设置为“txtMsgNoteText，并将标签控件的Caption属性和文本框控件的Text属性的容清空。这四个控件将分别用于显示的日期、发件人、主题和容。4、将txtMsgNoteText控件的Locked属性和Multiline属性设置为“True，ScrollBars属性设置为“2-Vertical。5、在Form1中再加入四个Label控件用于标注上述四个控件，将它们的Caption属性分别设置为“日期、“发件人、“主题和“容。6、在Form1中加入一个Label控件，将其名称属性设置为“
10、lblMsgCount，Caption属性设置为“第 0 封，总计 0 封。这个控件用于显示接收的总数以及当前正在处理第几封。7、在Form1中加入三个mand Button控件，将它们的名称属性分别设置为“cmdPrevious、“cmdNext和“cmdClose，Caption属性分别设置为“上一封、“下一封和“关闭。LOLI：那么具体的程序代码呢？大叔：又着急了不是？我还会骗你吗？下面就是具体的程序代码：1、编写一个子程序FetchNewMail：Public Sub FetchNewMail()MAPIMessages1.FetchUnreadOnly = TrueMAPIMessa
11、ges1.Fetch/Fetch命令将信件抓到系统存贮器的inbuffer中End Sub 2、编写一个子程序DisplayMessage：Public Sub DisplayMessage()lblMsgCount.Caption = 第 & Ltrim(Str(MAPIMessages1.MsgIndex + 1) & 封，总计 & Ltrim(Str(MAPIMessages1.MsgCount) & 封/由MsgCount知道信件数量，再用MsgIndex设置要看哪一封信件的容、标题lblMsgDateReceived.Caption = MAPIMessages1.MsgDateRe
12、ceived/收取信件的日期txtMsgNoteText.Text = MAPIMessages1.MsgNoteText/收取信件的容lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName/发送的lblMsgSubject.Caption = MAPIMessages1.MsgSubject/主题End Sub 3、将以下代码加入Form1的Form_Load事件：Private Sub Form_Load()MAPISession1.SignOnMAPIMessages1.SessionID = MAPISessio
13、n1.SessionIDFetchNewMail/调用Fetch子程序DisplayMessage/调用DisPlayMessage子程序End Sub 4、将以下代码加入cmdPrevious的Click事件：Private Sub cmdPrevious()If MAPIMessages1.MsgIndex 0 ThenMAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1/当收取信件超过1封的时候，通过“上一封按钮查看前面的信件DisplayMessageElseBeepEnd IfEnd Sub5、将以下代码加入cmdNext的Click
14、事件：Private Sub cmdNext_Click()If MAPIMessages1.MsgIndex MAPIMessages1.MsgCount - 1 ThenMAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1/当收取信件超过1封的时候，通过“下一封按钮查看后面的信件DisplayMessageElseBeepEnd IfEnd Sub6、将以下代码加入cmdClose的Click事件：Private Sub cmdClose_Click()Unload MeEnd Sub 程序运行后，在窗体加载过程中，窗体Load事件中的代码会读取新，如果有新，就显示第一个新，如果有多个新，那么可以使用“上一封和“下一封命令按钮前后翻阅。你再看看，这封收取下来的是不是我们刚才发送出去的？LOLI：呵呵，真厉害！其实刚才我知道你肯定可以收到这封的，只不过是说着玩的，嘿嘿。我来试着给别人发送一些。大叔：那你就用它给好朋友发送几封，告诉他们是用你自己编写的程序发送的，他们保证大吃一惊呢。第二天、自制媒体播放器LOLI：大叔来看我刚刚下载的?黑衣人2?
