Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VB iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

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

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

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

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

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

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()
  Dim ClearTempTabelSQL As String
  'If Not ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ