国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

VB郵件檢查程序(一)

2019-11-18 17:27:34
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
按下表所示設(shè)置各控件的屬性。

控件名稱描述
TextboxtxtHost用于輸入郵件服務(wù)器的名稱或地址
TextboxtxtUserName輸入用戶名
TextboxtxtPassWord輸入密碼
TextboxtxtBody顯示郵件內(nèi)容
ListviewlvMessages顯示郵件清單
CommandButtoncmdCheckMail用于啟動(dòng)接收并顯示郵件的子程序
CommandButtoncmdExit退出程序

將名為txtBody的文本框的Multiline屬性設(shè)為True,Scrollbars屬性設(shè)為3-Both。選擇ListView控件,打開其屬性對(duì)話框,在“列首”標(biāo)簽頁(yè)中插入四個(gè)列,文本分別為:"From","Subject","Date","Size",然后將該控件的View屬性設(shè)為3-lvwReport。

直觀的界面顯示你是如何使用本程序的。首先輸入郵件服務(wù)器的名稱或地址,然后是你的用戶名和密碼。最報(bào)按檢查郵件按鈕。接下來(lái),我們就會(huì)看到在ListView中顯示的郵件列表了。點(diǎn)選其中的一項(xiàng),郵件的內(nèi)容就會(huì)顯示在下面的文本框中。

從程序的外觀及VB由事件驅(qū)動(dòng)的本質(zhì),我們可以猜出我們只需要處理兩個(gè)事件:cmdCheckMail_Click和lvMessages_ItemClick.至于cmdExit中的事件我想就不必說(shuō)了。先別急,讓我們一步步來(lái)看看本程序的代碼是怎樣的。首先看看“檢查郵件”按鈕。當(dāng)你按下這個(gè)按鈕后,程序會(huì)首先檢查文本框中的內(nèi)容,然后調(diào)用Winsock的Connect方法連上遠(yuǎn)程服務(wù)器。下面是程序代碼:

Winsock1.ConnecttxtHost,110

EndSub

除了下面這個(gè)語(yǔ)句之外,其它都一目了然。

m_State=POP3_Connect

現(xiàn)在就讓我來(lái)解釋一下這個(gè)語(yǔ)句。當(dāng)觸發(fā)了cmdCheckMail_Click事件后,所運(yùn)行的程序代碼的目的是要連上遠(yuǎn)程郵件服務(wù)器。下面要進(jìn)行的操作就轉(zhuǎn)由在Winsock控件的DataArrival事件中的代碼來(lái)控制了。

每次當(dāng)Winsock收到數(shù)據(jù)時(shí),都會(huì)觸發(fā)DataArrival事件。根據(jù)已收到的數(shù)據(jù)和你所發(fā)出的命令,程序才知道應(yīng)執(zhí)行在該事件中的哪一部分代碼,以真正完成數(shù)據(jù)的接收。

為了讓程序記住你上次發(fā)出的命令,或者說(shuō)當(dāng)前進(jìn)程的狀態(tài),我們使用了m_State變量。該變量存放你事先定義好的一個(gè)特殊的數(shù)據(jù)類型:POP3States的值。

PrivateEnumPOP3States
POP3_Connect
POP3_USER
POP3_PASS
POP3_STAT
POP3_RETR
POP3_DELE
POP3_QUIT
EndEnum->


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 宁乡县| 泰宁县| 利辛县| 镇安县| 大连市| 高碑店市| 铁岭县| 内丘县| 东平县| 河北区| 江山市| 大悟县| 屏山县| 亚东县| 玉龙| 阿荣旗| 左云县| 陇川县| 龙山县| 巴林右旗| 巫山县| 天长市| 黄浦区| 韶关市| 梅河口市| 舞阳县| 乌拉特后旗| 雅安市| 增城市| 罗山县| 陵川县| 阿合奇县| 理塘县| 兴城市| 扎兰屯市| 安丘市| 新邵县| 类乌齐县| 肃宁县| 鞍山市| 平顶山市|