vb activex.exeµÄÎÊÌâ - VB / »ù´¡Àà
Ò»¸öÖ÷³ÌÐò£¬ÁíÒ»¸ö³ÌÐò£¨wait.exe)ÊÇ»ñÈ¡´ý°ìÊÂÏÈç¹û½«»ñÈ¡´ý°ìÊÂÏî³ÌÐò×öµ½Ö÷³ÌÐòÖУ¬ÔòÔÚÖ÷³ÌÐòÆô¶¯Ê±ËٶȺÜÂý£¬ËùÒÔ×ö³Éactivex.exe£¬ÔÚ´°ÌåÖл¹ÓÐÒ»¸ömshflexgrid¿Ø¼þÓÃÀ´Êä³ö´ý°ìÊÂÏÏÖÔÚ³ÌÐòÄÜÕý³£ÔËÐУ¬µ«ÊÇÖ»Òªµã»÷mshflexgridÖеÄÊý¾Ýʱϵͳ¾Í±¨´í"ÔËÐÐʱ´íÎó13,ÀàÐͲ»Æ¥Åä",µã»÷´úÂëÈçÏÂ:
Private Sub mshflexgrid_Click()
Set frmWaitPass.mshflexgrid.DataSource = MJ_ZhiMoApply.ShowZhiMoApplyDwg
frmWait.Show
End Sub
Èç¹ûÊDZê×¼exeÔòûÎÊÌâ¡£
ÒÔÉÏÎÊÌâÇë¸÷λ¸ßÊÖ¾ÈÃü
activeÀïµÄMJ_ZhiMoApply.ShowZhiMoApplyDwg£¬ÊÇdatasouce¶ÔÏóÂð£¿
ÊÇRecordset¶ÔÏó,ÔÚ³ÌÐòÖÐÒ²ÒýÓÃÁËmicrosoft activex data object2.8library,ÒòΪ½«³ÌÐò¸ÄΪ±ê×¼exeÊÇûÎÊÌ⣬ÄÜÕý³£ÏÔʾÊý¾Ý£¬µ«ÉèΪactivex.exeʱ¾Í»á³ö´ËÎÊÌâ
ÎÊÌâ×Ô¼º½â¾öÁË£¬ÓÃaduseclient,лл¸÷λ½â´ð£¬É¢·Ö
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØַʱºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......