ÓÃVB¿´ËÆÈÝÒ×È´²»¿ÉÄÜʵÏֵģ¿ - VB / »ù´¡Àà
×òÌì¾ÍÔÚÕâÎÊÌâÉÏÑо¿ÁËÒ»ÕûÌ죬¶øÇÒ»¹½ÐÉÏÁËÓÃDELPHIµÄͬÊÂÒ»ÆðÑо¿£¬µ«ÊÇËÆºõ»¹ÊÇûʵÏÖ¡£ÓиßÊÖÄܽâ¾ö·ñ£¿ ÎÊÌâºÜ¼òµ¥£¬¾ÍÊÇÈ¥µô±êÌâÀ¸µÄͼ±ê£¬²»ÊǺÜɵµÄɾ³ý»òÕßʹͼ±ê͸Ã÷£¬ºÃÁË·Ï»°²»¶à˵£¬¿´Í¼¾ÍÖªµÀÁË¡£ Ôͼ£º ²»ÊÇÕâ¸öЧ¹û1£º ²»ÊÇÕâ¸öЧ¹û1£º ×îÖÕÓ¦¸ÃµÄЧ¹û£º
VBGOODͬÌâÌÖÂÛÁ´½Ó£º http://www.vbgood.com/viewthread.php?tid=92886&extra= VB6Àﳬ¼¶¼òµ¥°¡£¬ÉèÖÃһϼ´¿É£ºWhatsThisButtion--true ;WhatsThisHelp -- True ; BoderStyle -- 3 ÒýÓà VB6Àﳬ¼¶¼òµ¥°¡£¬ÉèÖÃһϼ´¿É£ºWhatsThisButtion--true ;WhatsThisHelp -- True ; BoderStyle -- 3 ¡°ÎÊÌâºÜ¼òµ¥£¬¾ÍÊÇÈ¥µô±êÌâÀ¸µÄͼ±ê¡±£¬²»ÊÇÒª¼Ó¡°£¿¡±°´Å¥¡£ CreateWindowEx¿ÉÒÔ´´½¨³öÀ´ÕâÖÖÑùʽµÄ£¬¶÷£¬ÄÇÓ¦¸Ã¿ÉÒÔʹÓÃSetWindowLong¸ü¸ÄÑùʽ¡£ ·¢Ò»ÏÂÎÒ×òÌìÑо¿µÄ³É¹û£¬»ù±¾ÉÏÄÜÏëµ½µÄ·½·¨ÓÐһϡ£ 1.ÓÃSPY++ÕÒÒ»¸ö¡°ÔËÐпò¡±µÄGWL_STYLEºÍGWL_EXSTYLEµÄÖµ£¬Ö±½Óд½ø³ÌÐòÀʧ°Ü¡£ 2.ÓÃSPY++°ÑËùÓÐGWL_STYLEÀïËùÓÐÊôÐÔÒ»¸öÒ»¸öµÄÌí¼Óµ½´°ÌåÄÚ——ʧ°Ü¡£ 3.SendMessage ¸ø´°¿ÚÈ¥µôͼ±ê£¬·¢ÏÖͼ±ê͸Ã÷ÁË£¬µ«ÊDZêÌâÀ¸ÎÄ×Ö»¹ÊÇÒ»Ñù²»»á×ó¶ÔÆë£¬¿´ÆðÀ´ºÜ¹Ö——ʧ°Ü¡£ 4.»ñÈ¡´°¿Ú±¾ÉíGWL_STYLE½øÐÐXorÒì»ò²Ù×÷——ʧ°Ü¡£ VB code: Private Const WS_POPUP = &H80000000 Private Declare Function SetWindowLong Lib "u
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´ ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðһϠhÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£ hÊÇxml¸ñʽµÄ×Ö·û´® ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿ ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢ ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......