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. Á½ÖÖ·½·¨½áºÏ.
¡¡¡¡ ÂÔ...
¡¡¡¡
¡¡
Ïà¹ØÎĵµ£º
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
¡¡¡¡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 µÄÓ ......
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
½«³¤Â·¾¶×ªÎª¶Ì·¾¶
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
On Error GoTo Handler
Dim varAddress As Variant, n As Long, lCount As Long
varAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(varAd ......