VB²Ù×÷excel¼ÓÃܵÄÎÊÌâ
ÓÃVB²Ù×÷Excel¼ÓÃÜ£¬²¿·Ö´úÂëÕâÑùдµÄ£º Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.SheetsInNewWorkbook = 1 Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Item(1) xlApp.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True ²»ÖªµÀΪʲô£¬¸ù±¾¶¼Éú³É²»ÁËexcelÎļþ£¬Èç¹û°Ñ×îºóÒ»¾ä»°È¥µô£¬Éú³ÉÎļþÕý³££¬¸ßÊÖÖ¸µãһϣ¬µ½µ×Ó¦¸ÃÔõô¸øexce¼ÓÃÜÄØ£¿
ÊÔÊÔPassword:="123¡° ÊÔ¹ýÁË£¬ÒÀÈ»²»ºÃÓã¬Ôõô°ìÄØ£¿ ÄãµÄ¡°¼ÓÃÜ¡±Óôʲ»µ±¡£ ²»Ì«Ã÷È·ÄãµÄÄ¿µÄ¡£ ÊÇÏëÈÃÉú³ÉµÄÎĵµ´ò¿ªÊ±ÒªÊäÃÜÂ루´ò¿ªÈ¨ÏÞÃÜÂë¡¢ÐÞ¸ÄȨÏÞÃÜÂ룩£¿ »¹ÊÇ¡°±£»¤¹¤×÷²¾¡±£¿ ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True Ò»Ö§±×Ó£¬¿´Â¥Ö÷µÄ´úÂëÊÇÏë±£»¤¹¤×÷²¾ лл´ó¼Ò£¬°Ñ´úÂëÕâÑù¸Ä¾Í¶ÔÁË xlSheet.Application.ActiveWorkbook.PassWord = "123" ÒýÓà һ֧±×Ó£¬¿´Â¥Ö÷µÄ´úÂëÊÇÏë±£»¤¹¤×÷²¾ ºÙºÙ£¬Äã°Ñ²±×ÓÉìÄÇô³¤£¬ºÃÏó»¹ÊÇû¿´³öÕæÏàÀ´ .............. ѧϰÁËÒýÓà ÒýÓà 5 Â¥ patrickkong µÄ»Ø¸´: Ò»Ö§±×Ó£¬¿´Â¥Ö÷µÄ´úÂëÊÇÏë±£»¤¹¤×÷²¾ ºÙºÙ£¬Äã°Ñ²±×ÓÉìÄÇô³¤£¬ºÃÏó»¹ÊÇû¿´³öÕæÏàÀ´ .............. ÎҵĴúÂëÊÇÄÜÓõġ£ ²±×ÓÉìµÄ³¤ÊÇÒòΪÎŵ½¾ÆÏã£¬ÌæÄãºÈÁË£¬Ê¡µÄÄãÊÖÀÏÊǾÙ×Å¡
Ïà¹ØÎÊ´ð£º
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿ ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿ ´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£ Àà´úÂ룺 Option Expli ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿ c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net. VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£ ±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£ ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£ Çë¿´´úÂë ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
¸÷λ´óϺ£º ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......