VBÖйØÓÚÃÜÂëÈÏÖ¤
ÔÚÎҵijÌÐòÀ½øÈ롰ɾ³ýÓû§¡±£¬"Ìí¼ÓÓû§"´°Ìå֮ǰ¾ùÏȵ¯³öÒ»¸ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó²ÅÄܽøÈëÏàÓ¦½çÃæ£¬ÈçºÎÉè¼Æ´úÂ룿
¶ÁÊý¾Ý¿âÀïÃæ¹ÜÀíÔ±µÄÃÜÂë È»ºó¸úÊäÈëµÄÄÚÈÝ±È½Ï ºÜ¼òµ¥µÄ¶«Î÷ÔõôҲҪ´úÂë ²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿ ÔÚͨÓÃÀﶨÒåÒ»¸ö±äÁ¿,µã¡°É¾³ýÓû§¡±µÄʱºò ÓÃÕâ¸ö±äÁ¿¼Ç¼һÏÂÄã²Ù×÷µÄÊÇɾ³ýÓû§»¹ÊÇÌí¼ÓÓû§ È»ºóÔÚÅжÏÕýÈ·Óë·ñºóÔÙÇø·Ö ʹÓÃAccessÊý¾Ý¿â¼´¿É£¬Êý¾Ý¿âÖÐÉè¼ÆÒ»¸ö±í£¬±íÖк¬ÓУºÓû§ÃûºÍÓû§ÃÜÂëÁ½¸ö×ֶΣ¬´ò¿ªÊ±½øÐÐÌõ¼þ²éѯ¼´¿É£¬Èç¹ûÂ¥Ö÷ÊdzõѧÕߵϰ£¬½¨ÒéÄãÏÈ¿´Ò»Ð©¹ØÓÚÊý¾Ý¿â±à³Ì·½ÃæµÄ»ù´¡Êé¼®¡£ 1.Êý¾Ý¿âÖмǼÕ˺ÅÃÜÂë; 2.Èç¹û½öÐèÑéÖ¤¹ÜÀíÔ±ÃÜÂë,¶ø²»ÓÃÊäÈëÕ˺Å,Ö±½ÓÓøöinputbox¾Í¿ÉÒÔÁË;·ñÔò,ÐèŪһ¸öСµÄµ¯³ö´°¿ÚÑéÖ¤; 3.¸ù¾Ý²»Í¬µÄÐèÒª(ɾ³ýÓû§orÌí¼ÓÓû§)½øÈ벻ͬµÄ²Ù×÷½çÃæ;ÒýÓà ²»ÊÇ£¬ÎÒÊÇÒªÊäÈëÕýÈ·Ö®ºóµ¯³ö²»Í¬µÄ´°Ì壬±ÈÈ磬ÎÒµãµÄÊÇ¡°É¾³ýÓû§¡±Õâ¸öʱºòµ¯³ö´°ÌåÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºó¾Í½øÈëɾ³ýÓû§µÄ½çÃæ£¬µ«ÊÇÈç¹ûÎÒµãµÄÊÇ¡°Ìí¼ÓÓû§¡±£¬Õâ¸öʱºòµ¯³öÒªÇóÊäÈë¹ÜÀíÔ±ÃÜÂ룬ÊäÈëÕýÈ·Ö®ºóÊǽøÈëÌí¼ÓÓû§½çÃæ£¬ÈçºÎÔÚÊäÈë¹ÜÀíÔ±ÃÜÂëÕýÈ·Ö®ºó¸ù¾Ý²»Í¬µÄ²Ù×÷½øÈ벻ͬµÄ½çÃæ£¿ Äã¿ÉÒÔÔÚµãµÄÊÇ¡°É¾³ýÓû§¡±°´Å¥µÄʼþÀïÉèÖÃתµ½ÄǸö´°Ì壬µ«ÔÚÕâ֮ǰҪ¼ÓÉÏÑéÖ¤Óû
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓÃVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷Óà BLL²ã VB code: Private Dal As New moonPotato_DAL Public Sub inSertUser(Model As moonPotato_Model) Dal.InSertCls (Model) End Sub ASPÖе÷Óà VB c ......
ÎÒÓÃVBµ÷ÓÃWord ǶÈëVB´°ÌåÖÐ(ÕâЩ¶¼ÊÇÕý³£) È»ºóÔÚ×ÀÃæ´ò¿ªÁíÒ»¸öword a.doc ÏÖÔÚÎÊÌâ³öÀ´ÁË.....ÎҹرÕVB´°Ìå,֮ǰµÄÄǸöwordÒ²Õý³£¹Ø±ÕÁË ½ÓÏÂÀ´±Õ¹Øa.doc »á³öÏÖÎÊÌâ ÎÒµ÷ÓõÄw ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
¸÷룬ÇëÎʹ³×ÓÊÇÔõôÔËÐеİ¡£¿ÇëÏÈ¿´¿´ÎÒдµÄ´úÂ룺 Public hhook Private Sub Command1_Click() hhook = SetWindowsHookEx(2, AddressOf testhook, 0, App.ThreadID) End Sub ÒÔϵ ......