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

ÈçºÎÓÅ»¯VB³ÌÐò

ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú 
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËٶȣ¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ßÌåÀàÐÍ£¬ËùÒÔËü»á¸ø¸ÃÀàÐͱäÁ¿·ÖÅä16¸ö×ֽڵĿռ䣬¶øÇÒÔÚÓñäÁ¿½øÐÐÔËËãʱ»¹Òª¿¼Âǵ½Êý¾ÝÀàÐ͵Äת»»¡£Õâ¼ÈÕ¼ÓÃÄڴ棬ÓÖÓ°ÏìÁËËٶȣ¬»áʹÉæ¼°µ½¸´ÔÓÔËËãµÄ³ÌÐòÂý¡£×¢Ò⣬һ¸ö±äÁ¿µÄȱʡÀàÐ;ÍÊÇ Variant£¬ÆäËüÀàÐ͵ıäÁ¿ÒªÓÃDimÓï¾äµ¥¶ÀÉùÃ÷¡£
2.ÔÚÓöµ½ÕûÐÍÊý¾Ýʱ¾¡Á¿Ê¹ÓÃLong±äÁ¿¡£ÒòΪLong±äÁ¿ÊÇ32λCPUµÄ±¾»úÊý¾ÝÀàÐÍ£¬ËùÒÔ´¦ÀíËٶȻáºÜ¿ì£¬ÓÈÆäÊÇÔÚÑ­»·ÌåÖС£
3.½«¿Ø¼þµÄ³£ÓÃÊôÐÔ±£´æÔÚ±äÁ¿ÖС£Ò»°ã¿Ø¼þ´æÔÚÓÚDLL»òOCXÕâÀàµÄÍⲿ³ÌÐòÖС£ÖÚËùÖÜÖª£¬µ÷ÓÃDLLÔ¶±È·ÃÎÊÄÚ´æÂý¡£ËùÒÔ¶ÔÓÚÄÇЩ·ÅÔÚÑ­»·ÌåÖеij£ÓÃÊôÐÔ£¬Èç¹û½«ËüÃDZ£´æÔÚ±äÁ¿ÖУ¬ÄÇôËٶȽ«»áÓгɰÙÉÏǧ±¶ÌáÉý¡£
ÎÒÃÇÔÚ±àд³ÌÐòʱӦעÒâµ½£¬ÔÚ½øÐг¤Ê±¼äµÈ´ý²Ù×÷ʱ£¬¿ÉÒÔ×öһЩ¶¯»­Ö®ÀàµÄЧ¹û£¬ºÃÈÃÓû§ÖªµÀ³ÌÐòÔËÐÐÕý³£¡£ÏÂÃæÊǼ¸¸ö³£ÓÃÓÅ»¯·½·¨£º
£¨1£©Ê¹Óà Splash ÆÁÄ»¡£Ò²¾ÍÊÇÎÒÃdz£¼ûµÄ»¶Ó­´°¿Ú¡£´óµÄÓ¦ÓóÌÐòÔÚÆô¶¯Ê±£¬ÍùÍù»áÖ÷¶¯»ò±»¶¯µØÔØÈëÒ»´ó¶ÑDLL£¬ÕâÒª»¨·ÑºÜ³¤Ê±¼ä¡£ËùÒÔÎÒÃÇÔÚÆô¶¯Ê±¿ÉÒÔÏÈÏÔʾһ¸ö¼òµ¥µÄ´°¿Ú£¬ÉÏÃæÖ»·ÅһЩ×÷Õß¡¢°æȨ֮ÀàµÄÐÅÏ¢£¬ÔÚÕâ¸ö´°¿ÚµÄForm_LoadʼþÖÐÓÃLoad·½·¨¶ÁÈëÄÇЩ×î³£ÓõĴ°ÌåÄ£¿é¡£ÕâÑù£¬ËäȻʵ¼ÊµÈ´ýµÄʱ¼äÑÓ³¤ÁË£¬µ«Óû§Ëù¿´µ½µÄÆÁÄ»×ÜÊDZ仯µÄ£¬ËùÒԸоõϳÌÐòÆô¶¯¼Ó¿ìÁË¡£¶øÇÒÓÉÓÚ³£Óô°ÌåÄ£¿éÊÂÏÈÒÑÔØÈëÄڴ棬ÒÔºóÖ»ÐèÓÃShow·½·¨À´ÏÔʾËü£¬Ìø¹ýÁËÔØÈë¹ý³Ì£¬ÔÚ³ÌÐòÔËÐйý³ÌÖÐÒ²»áºÜ¿ìµÄ¡£
£¨2£©Ê¹ÓÃTimer¿Ø¼þ¡£ÓÉÓÚTimer¿Ø¼þµÄ³öÏÖ£¬Ê¹µÃºǫ́×÷ÒµÓÐÁË¿ÉÄÜ¡£ÎÒÃÇ¿ÉÒÔÔÚÿ´ÎTimerʼþÖÐÍê³ÉһС²¿·ÖÈÎÎñ¡£ÕâÑù£¬ÓÉÓÚTimerÖеÄʼþÄܹ»Ôں̵ܶÄʱ¼äÄÚÍê³É£¬Óû§Ò»°ã²é¾õ²»µ½Ëٶȵı仯¡£Èç¹ûÒ»¶¨ÒªÔÚÒ»¸öÑ­»·ÄÚÍê³Éij¸öÈÎÎñ£¬ÄÇô²»ÒªÍüÁËÓÃDoEventsÀ´ÊÍ·ÅÓû§¡£
£¨3£©Ê¹Óýø¶ÈÌõ¡£ÒªÊ¹Óýø¶ÈÌõ£¬ÐèÒªÊÂÏÈÖªµÀÊý¾ÝÁ¿£¬ËùÒÔËüºÜÊʺÏÓÃÓÚ¶ÔÒÑÖªÊý¾ÝµÄ²Ù×÷£¬ÈçÊý¾Ý¿âµÄÅÅÐò¡£
×ÜÖ®£¬ÓÅ»¯³ÌÐòÒª´Ó×Ô¼º¡¢´ÓÓû§µÈ¶à·½Ã濼ÂÇ£¬Ê¹³ÌÐò¿ª·¢ÖÜÆڶ̣¬ÇÒ¸ßЧÒ×Óá£
2¡¢ÔÚVBÖÐÈçºÎ´´½¨ÉÁ˸(±êÓï)ÆÁ
´óÐÍÓ¦ÓÃϵͳÆô¶¯ÔËÐеÄʱ¼äÐèÒªºÜ³¤Ê±¼ä,Æäʱ¼ä»á¸ù¾ÝÐèÒª³õʼ»¯µÄÊýÁ¿ºÍÓû§ÏµÍ³µÄËٶȱ仯,Òò´ËÔÚÖ÷´°¿ÚÏÔʾǰ,Ó¦ÏÔÊ


Ïà¹ØÎĵµ£º

VB: Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ

'ÒýÓãºMicrofoft VBScript Regular Expressions 5.5 'Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As Ma ......

VB,C#ʹÓÃVCµÄ.libºÍ.hÎļþ

——————————————————————————————————
ÔÚc#ÖÐÈçºÎʹÓÃÒÔÇ°c++µÄ.lib¿âºÍ.hÍ·Îļþ
zhujiang_1977£¨Öì½­ ......

[vb]ʹÓÃvbͳ¼Æ.javaµÄÐÐÊý

 ¹¤×÷ÐèÒª£¬Õë¶ÔjavaÎļþ£¬×÷ÁËÒ»¸öÐÐÊýͳ¼ÆµÄ¹¤¾ß¡£Í³¼ÆµÄÖ÷Òª´úÂëÈçÏ£º
    Set srcIn = fso.OpenTextFile(fileNm, ForReading)
    
    Do While Not srcIn.AtEndOfStream
        buf = srcIn.ReadLine
 &nbs ......

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ