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ÖеĽṹÌå[×ªÔØ]
2009Äê10ÔÂ20ÈÕ ÐÇÆÚ¶þ 11:30
VBÀïÃæµÄ½á¹¹ÌåÊÇÒ»ÖÖWORD/DWORD¶ÔÆëµÄ½á¹¹Ì壬ÕâÒ»µãÔÚ±à³ÌÖÐÓÈÆäҪעÒ⣬Èç¹ûÊÇ´¿VB±à³Ì£¬Ôò½á¹¹ÌåµÄ¸÷¸öÓòÈçºÎÅÅÁпÉÒÔ»ù±¾²»ÓùØÐÄ£¬
¶øÈç¹ûÊǵ÷ÓÃAPI»òÕßÊǵ÷ÓÃÆäËûµÄ¶¯Ì¬Á´½Ó¿â£¬ÔòºÜÈÝÒ׳öÎÊÌ⣬ÔÒò¾ÍÔÚÓÚ£ºÕâЩ¶¯Ì¬Á´½Ó¿âÊÇÓÃC/C++дµÄ£¬¶ø´ó²¿·ÖC/C++»·¾³ ......
×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
°üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
Dim cmSl As N ......
½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......
App ¶ÔÏóÊÇVBÓ¦ÓóÌÐòµÄÈ«¾ÖÐÅÏ¢£¬ÈçÓ¦ÓóÌÐòµÄ±êÌâ¡¢°æ±¾ÐÅÏ¢¡¢¿ÉÖ´ÐÐÎļþºÍ°ïÖúÎļþµÄ·¾¶¼°Ãû³ÆÒÔ¼°ÊÇ·ñÔËÐÐǰһ¸öÓ¦ÓóÌÐòµÄʾÀý¡£
ÊôÐÔ
£££££££ ÆäËûÊôÐÔ£££££££££££££££££
EXEName ÊôÐÔ ·µ»Øµ±Ç°ÕýÔËÐеĿÉÖ´ÐÐÎļþ ......
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 ......