vbÒì²½ÎÊÌâ - VB / »ù´¡Àà
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄʵÏÖ£¬Ï£Íû¸ßÊÖ¸ø³öÏà¹Ø´úÂ룡
¸Ðл»Ø¸´£¬ÎÒ¿´¿´ºó¸øÄã»Ø¸´£¡
¸Ð¾õ»¹ÊDz»Ôõô¶®¡£
¸Ð¾õÓÐЩÀ§ÄÑ£¬¶àÏ߳̿϶¨²»¿ÉÈ¡¡£
ºÜÏëÖªµÀÔõôÒì²½ Ò²¾ÍÊÇͬʱִÐÐ2¸öº¯Êý
½«ÐèÒªÒì²½Íê³ÉµÄ¹¦Äܵ¥¶Àд³ÉÒ»¸ö¹¤³Ì²¢Éú³Éexe
Ö÷³ÌÐò½«Òì²½ÈÎÎñÓÃshellÆô¶¯£¬²¢ÓÃÃüÁîÐвÎÊý´«µÝÈë²Î£¬¸Ã½ø³ÌµÃµ½½á¹ûºó½«Æä·ÅÔÚÁÙʱÎļþÀïÃæ¹©Æô¶¯ËüµÄÖ÷³ÌÐò¶ÁÈ¡¡£Ö÷³ÌÐòÈç¹û·¢ÏÖÒì²½ÈÎÎñ³¬Ê±£¬¿ÉÓÃÀàËÆshell("taskkill ½ø³ÌPID")µÄ·½·¨Ç¿ÖƽáÊøËü¡£
²Î¿¼¡¶Unix±à³ÌÒÕÊõ¡·
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......