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

¹ØÓÚVBʹÓÃActiveX.Exe´´½¨¶àÏ̳߳ÌÐòµÄÆæ¹ÖÎÊÌâ


'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub

'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT

'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚLoadʼþÖд´½¨µÄ¶ÔÏó(ÕâÀïÓ¦¸Ã²»ÄÜÕâô˵,Õâ¸öLoadÊÇÓÉSub MainÖÐÖ±½Óµ÷ÓõÄ... Ó¦¸ÃÊÇ[ÔÚSub MainÖд´½¨µÄ¶ÔÏó]),
'Õâ¸ö¶ÔÏóÎÞÂÛÈçºÎ,¶¼»¹ÊÇÓëÖ÷Ï̴߳¦ÓÚͬһÏß³ÌËÆ
'ÊÇ·ñ´¦ÓÚͬһÏß³Ìû·¨Ö¤Êµ,µ«ÊÇÕâÀï´´½¨µÄÏß³ÌÖ»Òª¹ÒÆð,Ö÷´°¿Ú¾Í»á¹Ò»ú
End Sub

'µ«ÕâÐдúÂë
      Set cBT=CreateObject("¹¤³ÌÃû.BT")  
·ÅÔÚÆäËüʼþÖС£¡£±ÈÈç form_Active(),Buttom_Click()ÀïÃæ
×ÓÏ̹߳һú£¬Ö÷´°¿Ú»¹ÊÇÕý³£ÄܽÓÊÕÏûÏ¢µÄ
¾Í»áÕý³£¡£¡£¡£¡£
ÓôÃÆÄÅ¡£¡£¡£ ²ðÁËÒ»¸öÉÏÎç¡£¡£¡£
×ÜÒÔΪÊÇÆäËüÀàÀïÃæµ÷ÓÃÁËɶÔì³ÉÖ÷´°¿Ú¿¨ËÀ¡£¡£¡£ ûÏëµ½»áÊÇÕâÑù¡£¡£ £º£¨
¼ÌÐøÕÛÌÚ¡£¡£¡£¡£¡£¡£


Ïà¹ØÎĵµ£º

VBÄÚ²¿¿Ø¼þ

    ÊÔ×ÅÓÃÁËÒ»ÏÂMindManager,ʹÓúÜÈÝÒ×,ÏÂÃæÊÇÎÒÁ·Ï°×Å×öµÄÒ»¸öͼÐÎ,Ï£ÍûÒÔºó»áÔ½ÓÃÔ½ÊìÁ·,×öµÃ¸üºÃ!
                               & ......

vb³£ÓõÄÄÚ²¿º¯Êý£¨¶þ£©£º×Ö·û´®º¯Êý


len£¨string£©£º¼ÆËã×Ö·û´®³¤¶Èº¯Êý¡£·µ»Ø×Ö·û´®stringÖÐ×Ö·ûµÄ¸öÊý¡£Ò»¸öºº×ÖΪһ¸ö×Ö·û£¬¿Õ¸ñҲΪһ¸ö×Ö·û£¬¿Õ×Ö·û´®µÄ³¤¶ÈΪ0.
Ltrim£¨string£©¡¢Rtrim£¨string£©¡¢Trim£¨string£©£º
Ltrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®string×ó±ß¿Õ¸ñÖ®ºóÊ£ÓàµÄ²¿·Ö¡£
Rtrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®ÖÐstringÓ ......

ÀûÓÃVBÍêÈ«¿ØÖÆÄãµÄ×ÀÃæÍ¼±ê

WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
    ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......

vb.net²Ù×÷Êý¾Ý¿âÖ®ACCESS£¨2£©

   ÉÏһƪÖÐÎÒÒѾ­ËµÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æÈ¡Í¼Æ¬£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
   ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔĿǰֻÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......

VB½ø³Ì¼äͨѶ ʹÓÃÄäÃû¹ÜµÀÔ­´úÂë

Option Explicit

Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ