¹ØÓÚ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()ÀïÃæ
×ÓÏ̹߳һú£¬Ö÷´°¿Ú»¹ÊÇÕý³£ÄܽÓÊÕÏûÏ¢µÄ
¾Í»áÕý³£¡£¡£¡£¡£
ÓôÃÆÄÅ¡£¡£¡£ ²ðÁËÒ»¸öÉÏÎç¡£¡£¡£
×ÜÒÔΪÊÇÆäËüÀàÀïÃæµ÷ÓÃÁËɶÔì³ÉÖ÷´°¿Ú¿¨ËÀ¡£¡£¡£ ûÏëµ½»áÊÇÕâÑù¡£¡£ £º£¨
¼ÌÐøÕÛÌÚ¡£¡£¡£¡£¡£¡£
Ïà¹ØÎĵµ£º
ÊÔ×ÅÓÃÁËÒ»ÏÂMindManager,ʹÓúÜÈÝÒ×,ÏÂÃæÊÇÎÒÁ·Ï°×Å×öµÄÒ»¸öͼÐÎ,Ï£ÍûÒÔºó»áÔ½ÓÃÔ½ÊìÁ·,×öµÃ¸üºÃ!
& ......
len£¨string£©£º¼ÆËã×Ö·û´®³¤¶Èº¯Êý¡£·µ»Ø×Ö·û´®stringÖÐ×Ö·ûµÄ¸öÊý¡£Ò»¸öºº×ÖΪһ¸ö×Ö·û£¬¿Õ¸ñҲΪһ¸ö×Ö·û£¬¿Õ×Ö·û´®µÄ³¤¶ÈΪ0.
Ltrim£¨string£©¡¢Rtrim£¨string£©¡¢Trim£¨string£©£º
Ltrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®string×ó±ß¿Õ¸ñÖ®ºóÊ£ÓàµÄ²¿·Ö¡£
Rtrim£¨string£©º¯Êý¹¦ÄÜÊÇ·µ»ØÉ¾³ýÁË×Ö·û´®ÖÐstringÓ ......
WindowsÖеÄ×ÀÃæÍ¼±êµÄÅÅÁз½Ê½ÊÇ·ñÈÃÄã¸Ðµ½Ñá¾ë¶øÏë°´ÕÕ×Ô¼ºµÄÏë·¨ÅÅÁÐͼ±ê¡£ÊÇ·ñÏë¸Ä±ä×ÀÃæÍ¼±êÎÄ×ֵı³¾°¶ø²»
ʹÔÚͼ±êÎÄ×ÖϳöÏÖÒ»¸ö¸öÄÑ¿´µÄÉ«¿é¡£ÕâÀïÎÒÒª½éÉÜÈçºÎͨ¹ýVBÀ´¶Ô×ÀÃæµÄͼ±ê½øÐг¹µ×µÄ¸Ä±ä¡£
ÆäʵÔÚWindowsϵÄ×ÀÃæÒÔ¼°ÈÎÎñÀ¸µÈ¶¼ÊÇ´°¿Ú¶ÔÏó£¬ÎÒÃÇ¿ÉÒÔÀûÓÃWindows APIº¯ÊýFindWindow ......
ÉÏһƪÖÐÎÒÒѾ˵ÁËÏÂÈçºÎ²Ù×÷ACCESSÊý¾Ý¿â£¬ÏÂÃæÀ´ËµËµ´æÈ¡Í¼Æ¬£¬ÉùÒôÖ®ÀàµÄÎÊÌâ¡£
ÓÉÓÚͼƬ£¬ÉùÒô²»ÄÜÖ±½Ó´æ´¢£¬ÕâÀï¾ÍÒªÓõ½Êý¾ÝÁ÷·½Ê½ÁË¡£¶ÔÓÚ.NETÖеÄһЩÊõÓï¸ÅÄîÎÒÈÔÈ»ºÜÃÔºý£¬ÔÚѧϰÖС£Ö÷ÒªÎÒ²»ÊÇרҵµÄ£¬
Ö»ÊÇ¿ªÊ¼Ñ§Á˵ãVB6´úÂ룬Ȼºó¾ÍÓÃVB.NETÁË£¬ËùÒÔĿǰֻÊÇ»áдµã´úÂ룬ȴ²»Öªµ ......
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" ......