Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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,лл¸÷λ½â´ð£¬É¢·Ö


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ