Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÎÞËù²»ÄÜÖ®ËÄ£ºÖÆ×÷͸Ã÷ºÍ°ë͸Ã÷´°Ìå

VBÎÞËù²»ÄÜÖ®ËÄ£ºÖÆ×÷͸Ã÷ºÍ°ë͸Ã÷´°Ìå
 
——×÷ÕߣºÖÓÉù 
 
ÎÒÃǾ­³£¿ÉÒÔ¿´µ½ÕâÑùµÄ´°Ì壬¾õµÃºÜìÅ£¬ÈçͼËùʾ£º
 
 
        Í¬Ñù£¬¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËƺõÊ×ÏÈÏëµ½µÄ¾ø¶Ô²»ÊÇVB£¬¶ø´ó²¿·Ö³ÌÐòÔ±Ïëµ½µÄÒ»¶¨ÊÇVC¡£
  & ......

vb³£ÓÃÄÚ²¿º¯Êý£¨Î壩£ºÎļþ´¦Àíº¯Êý


LOFº¯Êý£ºLOF£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ³¤¶È£¬³¤¶ÈÒÔ×Ö½ÚΪµ¥Î»¡£
LOCº¯Êý£ºLOC£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ¶ÁдλÖã¬LOCº¯ÊýµÄ·µ»ØֵΪlongÊý¾ÝÀàÐÍ¡£¶ÔÓÚËæ»úÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶ÔÎļþ½øÐжÁ³ö»òдÈëµÄ¼Ç¼ºÅ£»¶ÔÓÚ¶þ½øÖÆÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶Á³ö»òдÈëµÄ×Ö½ÚλÖ㻶ÔÓÚ˳ÐòÎļþ£¬·µ»ØµÄÊÇÎļþµÄµ ......

VB ÊÓƵ´ó¸Ù

1.ÓïÑÔ/»·¾³»ù´¡
--ÏîÄ¿µÄ×é³É
--ÓïÑÔ»ù´¡
  ----±äÁ¿µÄ×÷ÓÃÓòºÍÉú´æÆÚ
  ----»ù±¾Óï¾ä(forÑ­»·,¸³ÖµÓï¾älet(ÆÕͨ±äÁ¿¸³Öµ),set(¶ÔÏóµÄ¸³Öµ,Ö»ÓÃset),·ÖÖ§Óï¾ä)
  ----¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é(Êý×éµÄÉùÃ÷,ÉÏϽçÈ·¶¨,¶¯Ì¬Êý×éµÄʹÓÃ,¶¨ÒåеÄÖ®ºó,Ôõô±£ÁôÒÔÇ°µÄÊý¾Ý)
  ----Ö÷ÒªµÄϵͳº¯ÊýºÍ¹ý³Ì(By ......

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

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

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

ÕâһƪÎÒÔÙ˵˵ˮ¾§±¨±íµÄÇé¿ö¡£ACCESSÖжÔӦˮ¾§±¨±í·½Ã棬´ó¼Ò¿ÉÄÜ»áÓöµ½µÄ×î¶àµÄÎÊÌâÓ¦¸Ã¾ÍÊÇ´ò¿ª±¨±íºó
»á³öÏÖÐèÒªµÇ¼µÄÎÊÌâ¡£
Õâ¸öÊÇΪʲôÄØ£¿Ã÷Ã÷ÎÒûÓÐÉèÖÃÃÜÂ룬Ôõô»áÓÐÒªÊäÈëÃÜÂëÄØ£¿Èç¹ûÄã¹»³Á×Å£¬Èç¹ûÄãµÄdebug¾­Ñ鲻ȱ·¦µÄ»°£¬
Äã»á·¢ÏÖÔÚË®¾§±¨±íÌø³öÊäÈëÃÜÂëµÄµÇ¼¿òÖУ¬accessµÄ·¾¶²»ÊÇÎÒÏÖÔÚÊý¾Ý¿â· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ