VBÖе÷ÓÃwordµÄÎÊÌâ
ÈçºÎÔÚwordÀïÉú³ÉÒ»¸ö°Ë½ÇÐÎ ¾ÍÊÇÒ»¸ö¾ØÐΠÿ¸ö½Ç¶¼¾çµô ±ä³É°Ë½Ç ÓÐÕâÑùµÄÓï¾äÂð лл
ÓÃWORDÀïµÄºêÖ±½Ó»²»¾ÍÐÐÁËô? ÄѵÀÊÇÏëÔÚ×Ô¼º±àµÄÒ»¸öEXEÀï²Ù×÷WORD? ûÓÐÕâÑùµÄÓï¾ä¡£ VBÀïÃæÒ»¹²Ò²¾Í¼¸Ê®ÌõÓï¾ä£¬Ê®¼¸¸ö¹Ø¼ü×Ö¡£ ÍêÈ«¿ÉÒÔÔÚ×Ô¼º±àµÄÒ»¸öEXEÀï²Ù×÷WORD ActiveDocument.Shapes.AddShape msoShapeOctagon, 0, 0, 100, 100 ²»´í,Ö§³ÖһϠÒýÓà ActiveDocument.Shapes.AddShape msoShapeOctagon, 0, 0, 100, 100 Â¼ÖÆÒ»ÏÂºê¶øÒÑÂï. wordÂ¼ÖÆºê£¬££¾¸´ÖƵ½VBÖУ¬££¾ÉÔ¼ÓÐ޸ĺÍÓÅ»¯¡£ http://download.csdn.net/source/1627134
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õÊ¼×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )" ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
ÎÒÏë×öÒ»¸ö·ÀÖ¹²¡¶¾ÈëÇÖϵͳµÄС³ÌÐòÀ´±£»¤ÎÒµÄ¿í´øÁ¬½Ó²»±»¶ñÒâ¶Ï¿ª,ÇëÎÊÔõôʵÏÖ.VCµÄÒ²¿ÉÒÔ,×îºÃÓÃVB,ÒòΪÎÒ¸Õ×°ÁËϵͳ,»¹Ã»ÏÂÔØVC,µçÄÔÉÏÖ»ÓÐVBµÄ¾«¼ò°æ.ÎÒÃþË÷ÁËÒ»ÉÏÎ綼û½øÕ¹,°Ù¶ÈÉÏ,GoogleÉÏÒ²ËÑË÷²»µ½Ïà¹ØÎ ......