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

ʹVB±àдµÄ²¥·ÅÆ÷Ö§³ÖÍâ¹Ò×ÖÄ»SRT¡¢ASS¸ñʽµÄÎļþ

±¾ÈË»¨Á˺ܳ¤Ê±¼äÑо¿Íâ¹Ò×ÖÄ»SRT¡¢ASS¡¢SSA¸ñʽµÄÎļþ£¬Æä±àÂëÖ®¸´ÔÓ£¬»ù±¾ÉÏÄܹ»ÓÃVB½âÎöÕâЩ±àÂëÁË¡£ÆäÄ¿µÄ£¬ÊÇÏëÓÃVB±àдµÄ²¥·ÅÆ÷Ö±½ÓÖ§³ÖSRT¡¢ASS¡¢SSAÍâ¹Ò×ÖÄ»µÄ×Ô¶¯ºÍÊÖ¹¤¼ÓÔØ¡£ËäÈ»µÚÈý·½Íâ¹Ò×ÖÄ»²å¼þVSFilterºÍAviSynth²»´í£¬µ«¾­³£»áÓöµ½¼ÓÔØ²»ÉϵÄÎÊÌ⣬¾ö¶¨·ÅÆú£¬×ª¶ø×Ô¼ºÅª¡£Sub¡¢IDX×ÖÄ»ÎÒŪ²»À´£¬µ«¸ãÕâЩ×ÖÄ»»¹ÊÇ¿ÉÒԵġ£ÏÖÔÚÓÐÒ»¸öÎÊÌâ¾ÍÊÇ×öµÄ×ÖĻ̫µ¥µ÷£¬Ã»ÓÐÁ¢Ìå¸Ð£¬¾ÍÎÊһϴó¼ÒÏñÏÂÃæÕâ¸öͼÏÔʾµÄ×ÖÌåÿ¸ö±Ê»®µÄÖÜΧµÄºÚÉ«±Ê»®ÊÇÈçºÎ»æÖƳöÀ´µÄ£¨×¢Òâ²»ÊÇ×ÖÌåÒõÓ°£¬ÊÇÿ¸ö±Ê»®ÖÜΧµÄºÚÉ«£©£¬ÕâÖÖ×ÖÌåºÜƯÁÁ£¬ÏëÃþ·Â£º

ռɳ·¢............



ÒýÓÃ
°åµÊ........Ö§³Ö!!

ÐÂÄêºÃ!!


ºÙºÙ£¬ÀÏÂíµÚÒ»¸öÀ´£¬Ìáǰף´ó¼Ò´º½Ú¿ìÀÖ!

ÒýÓÃ
VB codeOptionExplicitPrivateSub PrintText(ByVal xAsLong, ByVal yAsLong, ByVal TextAsString)Dim iAsLongDim jAsLong

Me.ForeColor= vbBlackFor i=-1To1For j=-1To1If (i<>0)Or (j<>0)Then
?-


ÀÏÄñµÄ²»´í£¬Ì«ºÃÁË£¡ÎҼǵ㬼¸Äêǰ½¯ÀÏ´ó½¯êÉ£¨jiangsheng£©¸øÁËÒ»¸öÍøÓѰ취£¬ÒòΪµ±Ê±Ã»ÓÐÊղأ¬¾ÍÊÇÕÒ²»µ½£¡×Ô¼ºÓÖ²»ºÃÒâ˼ÏòËûÌáÎÊ£¡ÄãµÄ·½·¨£¬Ã»Ïëµ½²»ÓÃAPI£¬Õâô¼òµ¥£¡¹ýÁË´º½Úºó¾Í½áÕÊ£¡

¼òµ¥¾ÍÊÇÃÀ£¡



ÒýÓÃ
¼òµ¥¾ÍÊÇÃÀ£¡



ллÀÏÄñ£¡²»¹ýÓÐÒ»¸öÍ»³öµÄÎÊÌ⣺ÓÃÏñËØ×ù±êµÄ»°£¬µ±×ÖÌå½ÏСʱ£¬Ìî³äµÄ×ÖÌå¾Í»á±ä³ÉµãÕó×´£¬ÕâÊDz»Ï£ÍûµÄ½á¹û£¬Ó¦¸Ã»¹ÊÇÁ¬ÐøµÄ¡£ÒòΪµþ¼ÓÔÚÊÓÆµÉϵÄ×ÖÄ»ÊÇÒªËæÊÓÆµ´°¿ÚµÄËõ·Å¶øËõ·ÅµÄ¡£ËùÒÔÎҸijÉÁËç¾×ù±ê£¬²¢ÇÒ×÷Á˸Ľø£¬ÕâÑù¾Í¶ÔÁË£º
V


Ïà¹ØÎÊ´ð£º

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb - VB / »ù´¡Àà

ÎÒÏë°Ñ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
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ