¹ØÓÚvbÖÆ×÷°²×°°üµÄÎÊÌâ - VB / »ù´¡Àà
ÎÒÓÃvb×Ô´øµÄÍâ½Ó³ÌÐòÖÆ×÷°²×°°ü£¬½á¹û×ÜÊÇÌáʾ·¾¶²»°üº¬ÎļþÃû£¬ÖÆ×÷²»Á˲»ÖªµÀʲôÔÒò£¿
ÏñÎÒµÄvbÖÐÓÐ×Ô¼ºÌí¼ÓµÄ¿Ø¼þ£¨ÓдøÆƽⲹ¶¡µÄ£©£¬ÊÓƵ£¬Êý¾Ý¿â£¬Í¼Æ¬µÈ¡£Æ½Ê±Ò»±ä·¾¶¶¼»á³ö´í£¬ÄÇÑùµÄ»°ÖÆ×÷°²×°°üÐèҪעÒâÄÄЩÎÊÌâÄØ£¿Ò²ÓÐÅóÓÑÍƼöSetupFactory£¬²»ÖªµÀÁ½ÕßÓÐʲô²»Í¬ÄØ£¿ÄÄ¿îÊʺÏÎÒÕâÖÖÇé¿öÄØ£¿
Ï£ÍûÅóÓÑÃǸøÓèÖ¸µã£¬»á¾¡¿ì½áÌù¸ø·Ö¡£Ð»Ð»!
vb×Ô´øµÄ´ò°ü¹¤¾ßÓÃÀ´×÷רҵµÄ³ÌÐòÏÔµÃÌ«²»×¨Òµ£¬ÓõÚÈý·½µÄ£¬±ÈÈçÇáÁ¿¼¶µÄSetupFactory£¬InnoSetupµÈ£¬ÖØÁ¿¼¶µÄInstallShield
ÓÃinnosetup°É£¬ÎÒ´ò°ü¿©500MµÄÎļþ¶¼²»³ÉÎÊÌ⣬¶øÇÒѹËõ±ÈÒ²ºÜÀíÏë
ʹÓÃSetupFactory×ã¹»ÁË
¶÷ µ«ÊDZÈÈçÎÒµÄvbÖеÄÊÓƵ·¾¶¡¢flash·¾¶ÔÚдÈí¼þʱдºÃÁË£¬¼ÙÈçÓû§ÓÃSetupFactoryËæ±ã°²×°µ½±ðµÄ·¾¶µÄ»°£¬ÄÇôflash¡¢ÊÓƵµÈ¾ÍÎÞ·¨ÏÔʾÁË ²»ÖªµÀÓ¦¸ÃÈçºÎ½â¾öÄØ£¿
vbÖеÄÊÓƵ·¾¶¡¢flash·¾¶£¬ÕâЩ·¾¶Ó¦¸ÃÓõÄÊÇÏà¶Ô·¾¶£¬Äã²»»áдËÀΪc:\video\a.avi°É£¿Ð´³É±ÈÈç,app.path & "\video\a.avi" µÈ£¬Ö»Òª°²×°ÒÔºó¾ÍÈ¡µÄÊÇÄãµÄ°²×°Ä¿Â¼
Ö§³Ö app.path
лл ÎÒÊÔһϠÎÒ·¢ÏÖÎÒÿ´ÎÖÆ×÷µÄÈí¼þ¶¼°ÑÎÒµÄÔ´³ÌÐò¼Ó½øÈ¥ÁË£¬ÎÒÖ»ÏëÖÆ×÷Ò»¸ö°²×°Îļþ£¬Ô´´úÂë»òÕßÆäËûµÄһЩ¶«Î÷Äܲ»ÒªµÄ¶¼²»Òª³öÏÖ£¬²»ÖªµÀÄÄЩ¶«Î÷¶ÔÓÚ°²×°°üÊDZØÒªµÄ£¬ÄÄЩ¿ÉÒÔÊ¡È¥ÄØ£¿
ʹÓÃSetupFactory²»ÓüÓÔ´³ÌÐò£¬¹¤³ÌÏòµ¼×îºóÒ»²½ÓÐÒ»¸öΪ´ÓÊôɨÃèËùÐ蹤³ÌÎļþÄÇÒ»¸öÑ¡ÏѡÔñºó×Ô¶¯¾Í°ÑÄãÐèÒªµÄÎļþ¼ÓÔؽøÀ´ÁË£¬ÔÙ°ÑÉú³ÉµÄ¡£exeÎļþÌí¼Ó½øÀ´¾ÍÐС£
¶÷ SetupFactory´ó¼Ò¶¼ÓµÄĸö°æ±¾ÄØ£¿ ÓÐÆƽâ°æÂ𣿠ÎÒÏÂÁ˼¸¿î½á¹û¶¼ÓÐÏÞÆÚ
²Î¿¼£ºhttp://download.csdn.net/source/1909734
ÄÚ¸½½Ì³Ì¡£
VB´ò°üÀûÆ÷£¬¼òµ¥£¬ºÃÓã¬Ç
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°Ñ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
......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æȨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÓÃ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. ......