ÒªÓÃVBдһ¸ö³ÌÐò£¬Óõ½²Ù×÷Êý¾Ý¿âµÄ£¬ÏëÓà dat ¸ñʽµÄÊý¾Ý¿â£¬ÇëÎÊÓ¦¸ÃÔõÑù½¨Á¢£¬²åÈ룬²éÕҵȵIJÙ×÷ÄØ£¿ÓÐûÓÐʵÀý¡£Ð»Ð»£¿
dat ÎļþÊÇÊý¾Ý¿â£¨¿ÉÄÜÊÇ SQL Server£©×Ô¼º´¦ÀíµÄ£¬ÄãÖ»ÒªÁ¬½ÓÊý¾Ý¿â½øÐзÃÎÊ¡£
.dat¸ñʽÊÇÓû§×Ô¶¨Òå¸ñʽ£¬²»ÊDZê×¼¸ñʽÈç.csv,.dbf
......
±ÈÈç´ò¿ªÎҵĵçÄÔ£¬¿í´øÁ¬½Ó£¬ Ãû³ÆÎª¡°Ñ¸À×5¡±µÄ×ÀÃæ¿ì½Ý·½Ê½£¬Ãû³ÆÎª¡°d.exe"µÄ¿ì½Ý·½Ê½£¬»¹ÓÐÒ»¸öÃû×ÖΪ¡°µ½¡±µÄÎļþ¼Ð ¡£ ÕâЩ¶¼ÊÇÔÚ×ÀÃæÉϵģ¬ ´ò¿ªµÄ´úÂëÊÇ shell+ c:\```×ÀÃæ\ÎļþÃûÂð ºÃÏñÓеIJ»ÐÐ
´ò¿ª¿ì½Ý·½Ê½Âð£¿
Shell "Rundll32.exe url.dll, FileProtocolHandler c:\```×ÀÃæ\ÎļþÃû" ......
vbµÄÓï·¨²»ÊǺÜÊì,ÓÐûÓÐʲôapi¿ÉÒÔ¼ì²âÒ»¸ö×Ö·û´®Öаüº¬ÁËÆäËû×Ö·û´®µÄ?
ÎÒÏÂÃæµÄ´úÂ뱨ÁËÔËÐÐʱ´íÎó424
ÎÒÏ붨ÒåÒ»¸ö·½·¨¼ì²âÊÇ·ñ°üº¬Ä³¸öÖ¸¶¨µÄ×Ö·û´®
VB code:
Function isCorrectSender(objMsg)
isCorrectSender = objMsg.SenderName.contains("Richard")
End Function
......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ûÊǻҵģ¬»Øµ½ÉϴεÄnode¡£
ÎÒ¾ÍÊDz»ÏëÔÚclickʼþÀï×ö£¬ÏëÔÚÉú³ÉÊ÷½á¹¹µÄʱºò¾Í×öÅжÏ
Ñ¡Öл¹ÊÇ¿ÉÒÔ ......
ÔÚlistboxÖÐÓÐ3¸öÃû×Ö£º
ÕÅÈý
ÀîËÄ
ÍõÎå
ÆäÖÐÕÅÈýµÄItemDataÊÇ1£¬ÀîËÄÊÇ2£¬ÍõÎåÊÇ3£¬ËûÃÇÔÚÊý¾Ý¿âÖеÄidÒ²ÊǶÔÓ¦µÄ1£¬2£¬3£¬ÎÒµÄÒâ˼¾ÍÊǵã»÷listboxÖеÄÕÅÈý£¬¾ÍÄÜ´ÓÊý¾Ý¿âÖиù¾Ýid=1°ÑÆäËûÐÅÏ¢ËѳöÀ´£¬ÒÔÏÂÎÒ×öÁËÒ»¶Î³ÌÐò£¬ÏµÍ³±¨´íÊDzÎÊý²»¿ÉÑ¡
Private Sub List1_Click()
Dim conn As New ADODB. ......
ÏÖÔÚÓöµ½¸öÎÊÌ⣬Ï뽫´ÓVBÖе¼³öµÄexcelÎļþ×Ô¶¯¼ÓÉÏÖ»¶ÁȨÏÞ£¬·ÀÖ¹Ð޸ġ£²»Öª´ÓÄÇÈëÊÖ
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes = 1
ÔËÐÐSet f = fs.GetFile(fs.GetFileName(filespec)) Õâ¾äÌáʾ³ÌÐòºô½ ......