Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÄܱȽÏÒ»¸ö×Ö·û´®ÊÇ·ñ°üº¬ÔÚÁíÒ»¸ö×Ö·û´®ÖÐÂð£¿

vbµÄÓï·¨²»ÊǺÜÊì,ÓÐûÓÐʲôapi¿ÉÒÔ¼ì²âÒ»¸ö×Ö·û´®Öаüº¬ÁËÆäËû×Ö·û´®µÄ?
ÎÒÏÂÃæµÄ´úÂ뱨ÁËÔËÐÐʱ´íÎó424
ÎÒÏ붨ÒåÒ»¸ö·½·¨¼ì²âÊÇ·ñ°üº¬Ä³¸öÖ¸¶¨µÄ×Ö·û´®
VB code:

Function isCorrectSender(objMsg)

isCorrectSender = objMsg.SenderName.contains("Richard")
End Function




objMsgÊÇÒ»¸öoutlookµÄmailItem¶ÔÏó¡£senderNameÓ¦¸ÃÊÇÒ»¸östring¡£
ÇëÎÊvbÀïÃæÓÐûÓÐcontainÕâÖÖ·½·¨£¿ËüûÓб¨±àÒë´íÎó¡£ÎÒ²»ÖªµÀ¸ÃÔõôÓÃ

VB code:

Function isCorrectSender(objMsg)
isCorrectSender = instr(objMsg.SenderName,"Richard")
End Function



InStr º¯Êý
     

·µ»Ø Variant (Long)£¬Ö¸¶¨Ò»×Ö·û´®ÔÚÁíÒ»×Ö·û´®ÖÐ×îÏȳöÏÖµÄλÖá£

Óï·¨

InStr([start, ]string1, string2[, compare])

InStr º¯ÊýµÄÓï·¨¾ßÓÐÏÂÃæµÄ²ÎÊý£º

²¿·Ö ˵Ã÷
start ¿ÉÑ¡²ÎÊý¡£ÎªÊýÖµ±í´ïʽ£¬ÉèÖÃÿ´ÎËÑË÷µÄÆðµã¡£Èç¹ûÊ¡ÂÔ£¬½«´ÓµÚÒ»¸ö×Ö·ûµÄλÖÿªÊ¼¡£Èç¹û start °üº¬ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÖ¸¶¨ÁË compare ²ÎÊý£¬ÔòÒ»¶¨ÒªÓÐ start ²ÎÊý¡£
string1 ±ØÒª²ÎÊý¡£½ÓÊÜËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
string2 ±ØÒª²ÎÊý¡£±»ËÑË÷µÄ×Ö·û´®±í´ïʽ¡£
Compare ¿ÉÑ¡²ÎÊý¡£Ö¸¶¨×Ö·û´®±È½Ï¡£Èç¹û compare ÊÇ Null£¬½«·¢Éú´íÎó¡£Èç¹ûÊ¡ÂÔ compare£¬Option Compare µÄÉ


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

¹ØÓÚvbÓïÒô¿ª·¢µÄÎÊÌ⣿ - VB / ¶àýÌå

ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ