Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

¹ØÓÚVB.NETºÍMS ACCESSµÄÎÊÌâ

ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ