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 µÄÉ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......