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

ÈçºÎÓÃVB´ò¿ªwordÎĵµ

CÅÌÀïÓÐÒ»¸ötest.docÎļþ


ÎÒҪʵÏÖ°´ÏÂÒ»¸ö°´Å¦¾ÍÄÜ´ò¿ªÕâ¸öÎĵµ

ÇëÎÊ´úÂë¸ÃÔõôд лл
SHELL

³ýÁËshellÄØ?

ѧϰÖÐ~

COM

dim wApp as new wordapplication
wapp.open ...
²»¹ý£¬Ò²ÐèÒªÒª±¾»ú°²×°wordµÄ¡£

wapp.open ºÃÏóûÓÐÕâ¸ö·½·¨

Â¥ÉÏÊDz»ÊÇд´íÁË

Private Sub Command1_Click()
    Dim OWork As Object
    Dim oDoc As Object
   
    Set OWork = CreateObject("Word.Application")
    Set oDoc = OWork.Documents
    oDoc.Open ("g:\erp.doc")
    OWork.Visible = True
    Set OWork = Nothing
End Sub
²»¹ýµçÄÔÉÏҪװOfficeÈÎÒ»°æ±¾WordÈí¼þ¡£

VB code:
Option Explicit

Public Sub Main()

Dim strFile$, objShell As Object
strFile = "X:\Temp\ÎĵµA.doc"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run strFile

End Sub

µ÷ÓÃϵͳÖÐĬÈϵĹØÁª³ÌÐò´ò¿ªÎĵµ X:\Temp\ÎĵµA.doc ¡£



Ïà¹ØÎÊ´ð£º

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

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

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

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

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

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

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


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

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

ÉèÖ ......

ÇóÒ»¸övbµÄÕýÔò±í´ïʽ

×Ö·û´®Ô­À´¸ñʽÈçÏ£º
<a href="/bbbbbbbbbbbbbbbbbbb" class="fchvmqf1hgs8o0-1" target="_self"> <span class="fchvmqf1hgs8o0-1">Manage&nbsp;Acti ......

²ËÄñѧVB£¬

²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail.  huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾­³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.

¶¯ÊÖʵ¼ùд´úÂë,¾­³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......

vb»ù´¡Óï·¨ÎÊÌâ

ÔÚVB.NetÀï,
!=null
=nullÔõôд

++x
--x
x++
x--
ÕâЩÓÖÔõôд?
<>Nothing
=Nothing

x += 1
x -= 1

Á½¸öÓïÑÔ²»½ö½öÊÇÓï·¨Éϲ»Í¬£¬±ÈÈçVB.Net¾ÍûÓÐ++ --ǰ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ