vbÔõÑùÖÆ×÷×ÊÔ´¹ÜÀíÆ÷£¿
rt
ʹÓÃtoolbar shelltreeview shelllistview splitter statusbar¿Ø¼þ¡£ ÍøÉÏÃâ·ÑµÄ³ÌÐò´ó°Ñ£¬Â¥Ö÷Ïë×Ô¼º×ö¸ö£¿ °ïÂ¥Ö÷¶¥Ò»Ï¡£¡£¡£¡£ ÎÒ֮ǰ×öÁ˸öexcel vba°æµÄ£¬Ö»ÊDz»»á×Ô¶¯Ë¢Ð£¬ÒªÊÖ¶¯Ë¢Ð¡£ÒòΪ¾Ý˵vbaÀïÃætimerºÍthread¶¼²»´óºÃ¸ã¡£ VBÖÆ×÷µÄ×ÊÔ´¹ÜÀíÆ÷: http://code.ddvip.com/code.php?id=2040&url=http://codedown.ddvip.com:81/down/ddvip_com_0623366f090fd3.rarÒýÓà VBÖÆ×÷µÄ×ÊÔ´¹ÜÀíÆ÷: http://code.ddvip.com/code.php?id=2040&url=http://codedown.ddvip.com:81/down/ddvip_com_0623366f090fd3.rar ÄãÌṩµÄÎÒÒѾÓÐÁË£¬²»¹ý»¹ÊÇлл£¡ÒýÓÃ ÍøÉÏÃâ·ÑµÄ³ÌÐò´ó°Ñ£¬Â¥Ö÷Ïë×Ô¼º×ö¸ö£¿ ¶÷£¬±ðÈ˵ͼ²»Ì«ÍêÃÀ£¡ÔÚwidows×ÊÔ´¹ÜÀíÆ÷ÊÇ¿ÉÒÔ½øÐкܶà²Ù×÷µÄ£¬ºÍÔÚÎļþ¼ÐÖвÙ×÷ûÓÐÇø±ð£¬ÎÒÏëÒªµÄ¾ÍÊÇÕâ¸öЧ¹û£¡ÒýÓà ÒýÓà 2 Â¥ patrickkong µÄ»Ø¸´:ÍøÉÏÃâ·ÑµÄ³ÌÐò´ó°Ñ£¬Â¥Ö÷Ïë×Ô¼º×ö¸ö£¿ ¶÷£¬±ðÈ˵ͼ²»Ì«ÍêÃÀ£¡ÔÚwidows×ÊÔ´¹ÜÀíÆ÷ÊÇ¿ÉÒÔ½øÐкܶà²Ù×÷µÄ£¬ºÍÔÚÎļþ¼ÐÖвÙ×÷ûÓÐÇø±ð£¬ÎÒÏëÒªµÄ¾ÍÊÇÕâ¸öЧ¹û£¡ Ò»°ãÀ´Ëµ»¹²»Èçshell programming£¬Ò²¾ÍÊÇΪ×ÊÔ´¹ÜÀíÆ÷×ö¶þ´Î¿ª·¢¡£ ×Ô¼ºÐ´ÊÇûÓбØÒªµÄ¡£ ¿´¿´shell extensionÏà¹ØµÄ¼¼ÊõÎÄÕÂÒýÓà ÒýÓà 7 Â¥ zgklem µÄ»Ø¸´:ÒýÓà 2 Â¥ patrickkong µÄ»Ø¸´:ÍøÉÏÃâ·ÑµÄ³ÌÐò´ó°Ñ£¬Â¥Ö÷Ïë×Ô¼º×ö¸ö£¿¶÷£¬±ðÈ˵ͼ²»Ì«ÍêÃÀ£¡ÔÚwidows×ÊÔ´¹ÜÀíÆ÷ÊÇ¿ÉÒÔ½øÐкܶà²Ù×÷µÄ£¬ºÍÔÚÎļþ¼ÐÖвÙ×÷ûÓÐÇø±ð£¬ÎÒÏëÒªµÄ¾ÍÊÇÕâ¸öЧ¹û£¡ Ò»°ãÀ´Ëµ»¹²»Èçshell programming£¬Ò²¾ÍÊÇÎ
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ Do While Not TDBG_Dept.EOF If A> ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......