ÈçºÎÓÃ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²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
×Ö·û´®ÔÀ´¸ñʽÈçÏ£º
<a href="/bbbbbbbbbbbbbbbbbbb" class="fchvmqf1hgs8o0-1" target="_self"> <span class="fchvmqf1hgs8o0-1">Manage Acti ......
²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail. huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.
¶¯ÊÖʵ¼ùд´úÂë,¾³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
ÔÚVB.NetÀï,
!=null
=nullÔõôд
++x
--x
x++
x--
ÕâЩÓÖÔõôд?
<>Nothing
=Nothing
x += 1
x -= 1
Á½¸öÓïÑÔ²»½ö½öÊÇÓï·¨Éϲ»Í¬£¬±ÈÈçVB.Net¾ÍûÓÐ++ --ǰ ......