Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ¡£



Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ