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

VB ¸²¸Ç±£´æexcel ²»ÏìÓ¦

²é¿´Ö¸¶¨excelÎļþÊÇ·ñ´ò¿ª Èç¹û´ò¿ª ±£´æ²¢¹Ø±Õ

³öÏÖµÄÎÊÌâÊÇ£º
Èç¹û´ò¿ªÎļþºóûÓÐÈκÎÐÞ¸Ä ¿ÉÒÔÕý³£²Ù×÷
Ò»µ©ÓÐÐÞ¸Ä ¾Í»á³öÏÖ²»ÏìÓ¦ µ«ÊÇÔÚexcelÀïÈÎÒâµØ·½µãÁ½ÏÂÊó±ê ¾ÍÓÖ»áÏìÓ¦
Õâ¸öÊǿ細ÌåµÄ²Ù×÷
Èç¹ûÊÇÒ»¸ö´°Ìå ͬÑùûÓÐÈκÎÎÊÌâ Çë½Ì
numÊǸö×Ö·û´® ÎļþÃû×ÖµÄÒ»²¿·Ö
If IsFileOpened(App.Path & "\²Ù×÷Ìâ\" & num & "±í¸ñ.xls") Then
  Form6.excel.workbooks("" & num & "±í¸ñ.xls").Save
  Form6.excel.workbooks("" & num & "±í¸ñ.xls").Close
  Application.DisplayAlerts = False
      Form6.excel.Quit
      Set Form6.workbooks = Nothing
      Set Form6.excel = Nothing
    End If
ÏÂÃæÊÇÅжÏÎļþ¹Ø±ÕµÄº¯Êý
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
    Dim objWordApp As Object
    Dim objWordDoc As Object
   
    On Error Resume Next '´Ë¾ä²»ÄÜÉÙ
   
    strDocName = UCase(strDocName)
    Set objWordApp = GetObject(, "Word.Application")
    For Each objWordDoc In objWordApp.documents
        If UCase(objWordDoc.FullName) = strDocName Then
            WordDocIsOpen = True
   


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ