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,лл¸÷λ½â´ð£¬É¢·Ö
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......