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

VBͼÏñ´¦Àí¶à´ÎundoÈçºÎʵÏÖ

×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îԭʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
 
 
²Î¿¼·½°¸£º
 
Èç¹ûÏë×öµ½¶à´ÎUNDOµÄ»°, ÎÞÒÉÊÇÐèÒª¼Ç¼²Ù×÷µÄÿ´Î²½Öè. ¾ßÌåÓÐÁ½ÖÖÐÎʽ:
¡¡¡¡
¡¡¡¡1, ÔÚ³ÌÐòÄÚ´æÖдæÖü:
¡¡¡¡ ÔÚ³ÌÐòÖн¨Á¢Õ»(²»ÖªµÀÄãѧ¹ýûѧ¹ýÕ», Èç¹ûûÓеϰ¿ÉÖ±½ÓÀí½âΪÊý×é), Õ»Âú×ãÁ˺ó½øÏȳö(LIFO)µÄµÄ¹æÔò.
¡¡¡¡ ÔÚÿ´Î½øÐжÔͼÏñµÄ²Ù×÷ʱ, ¶¼½«ÉÏÒ»·ùͼÏñ±¸·Ý(×¢ÒâÊÇÉî²ã±¸·Ý, Èç¹ûÊÇdz±íÒýÓõϰÊÇÆð²»µ½Ð§¹ûµÄ)µ½µ½Õâ¸öÕ»ÖÐ. ÕâÑù, µ±Ö´ÐÐUNDOʱ, ¾Í¿ÉÒÔ´ÓÕ»ÀïÃæÌáȡһ¸öÉÏÒ»´Î±£´æµÄͼÏñ, Ìæ´úµ±Ç°Í¼Ïñ(²¢É¾³ýÕâ¸ö±¸·Ý), ÖªµÀÕâ¸öջΪ¿Õ. ʵÏÖÁ˶à´ÎUNDO.
¡¡¡¡ ÕâÖÖ·½·¨µÄÌØµãÊÇ´¦ÀíÊý¶È±È½Ï¿ì, µ«ÊÇÒ²·Ç³£ÏûºÄÄÚ´æ.
¡¡¡¡
¡¡¡¡2. ÔÚÎļþÖд洢:
¡¡¡¡ ͬÑùÊDZ¸·Ýÿ¸ö²Ù×÷ǰµÄͼÏñ,µ«Õâ´ÎÊÇ´æ´¢µ½Ó²ÅÌÉÏ, ÕâÐèÒªÄãÒÔÒ»¶¨µÄÎļþÃû¹æ·¶(xxx_temp_1.jpg, xxx_temp_2.jpgÒÀ´ÎµÈµÈ)È¥·ÀÖ¹ÖØÃûµÄÇé¿ö. ͬÑùÔÚUNDOµÄʱºò, È¥¼ÓÔØÉÏÒ»¸ö±àºÅµÄÎļþ, ²¢É¾³ýÖ®, ÕâÑùҲʵÏÖÁ˶à´ÎUNDO.
¡¡¡¡
¡¡¡¡ ÕâÖÖ·½·¨µÄÌØµã×ÔÈ»ÊÇÏûºÄÄÚ´æÉÙ, µ«ÊÇundoµÄ´¦ÀíËÙ¶ÈûÓÐǰÕß¿ì.
¡¡¡¡
¡¡¡¡3. Á½ÖÖ·½·¨½áºÏ.
¡¡¡¡ ÂÔ...
¡¡¡¡
¡¡


Ïà¹ØÎĵµ£º

SQLDMOÔÚVBÖеÄÓ¦ÓÃ

¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......

ÌÖÂÛVBÖеĽṹÌå

ÌÖÂÛVBÖеĽṹÌå[×ªÔØ]
2009Äê10ÔÂ20ÈÕ ÐÇÆÚ¶þ 11:30
VBÀïÃæµÄ½á¹¹ÌåÊÇÒ»ÖÖWORD/DWORD¶ÔÆëµÄ½á¹¹Ì壬ÕâÒ»µãÔÚ±à³ÌÖÐÓÈÆäҪעÒ⣬Èç¹ûÊÇ´¿VB±à³Ì£¬Ôò½á¹¹ÌåµÄ¸÷¸öÓòÈçºÎÅÅÁпÉÒÔ»ù±¾²»ÓùØÐÄ£¬
¶øÈç¹ûÊǵ÷ÓÃAPI»òÕßÊǵ÷ÓÃÆäËûµÄ¶¯Ì¬Á´½Ó¿â£¬ÔòºÜÈÝÒ׳öÎÊÌ⣬ԭÒò¾ÍÔÚÓÚ£ºÕâЩ¶¯Ì¬Á´½Ó¿âÊÇÓÃC/C++дµÄ£¬¶ø´ó²¿·ÖC/C++»·¾³ ......

VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)


VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔ­À´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......

VBдע²á±íÆô¶¯Ïî


    Private Sub Form_Load()
        Set w = CreateObject("wscript.shell")
        w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ