VB µ÷ÓÃϵͳ¼ÆËãÆ÷
ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell ¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï ±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆת»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1
×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~~~ ¼ÆËãÆ÷¿ÉÒÔ¸´ÖÆÕ³ÌùµÄ¡£¡£¡£ sendkeys ²»Óõ÷ϵͳµÄ¼ÆËãÆ÷£¬²Î¿¼×ÔÒÑ×öµÄ VBдµÄ½øÖÆת»» http://download.csdn.net/source/1212613 ¶ÔÍ·,΢ÈíÓиöÀý×Ó¾ÍÊÇÓÃSendKeys ÒýÓà ¼ÆËãÆ÷¿ÉÒÔ¸´ÖÆÕ³ÌùµÄ¡£¡£¡£ sendkeys <DIV> </DIV> <TABLE borderColor=#cd5c5c height=350 width=450 align=center border=3> <TBODY> <TR> <TD background=http://hiphotos.baidu.com/%B5%CE%B5%E3%D6%AE%C3%CE/pic/item/5581ce7b6f8fd2c12f73b360.jpg> <DIV align=center> <MARQUEE scrollAmount=1 scrollDelay=100 behavior=slide loop=1 width=450 height=350> <MARQUEE style="LINE-HEIGHT: 50%; WRITING-MODE: tb-rl" mce_style="LINE-HEIGHT: 50%; WRITING-MODE: tb-rl" scrollAmount=1 scrollDelay=100 direction=up width=450 height=290> <P align=left> <FONT style="FONT-SIZE: 18pt; FILTER: WIDTH: 100%; COLOR: #ea0000; LINE-HEIGHT: 130%; FONT-FAMILY: Ñà¸èÐÐ" mce_style="FONT-
Ïà¹ØÎÊ´ð£º
´úÂëÈçÏ£º Private Sub MSFlexGrid1_SelChange() If MSFlexGrid1.Rows = 1 Then Exit Sub If MSFlexGrid1.Row = 0 Then Exit Sub grid_row = MSFlexGrid1.Row ......
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õʼ×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
¹¦ÄÜ£ºÔÚÊäÈëµãµÄ×ø±êºó£¬»³ö¶ÔÓ¦µÄµã£»ÔÚ»Á˵ãºó£¬¿ÉÒÔÐ޸ĵãµÄ×ø±ê£¬²¢´Óл£»Öظ´Ö±µ½Í¼ÐÎÂÖÀª»Íê¡£²¢¿ÉÒÔ½«µãµÄ×ø±ê×÷ΪÎı¾ÎĵµÊä³ö¡£ ÎÒ²»ÖªµÀÔõôÄÜʵÏÖ£¬Ð»Ð»£¡ ÓÃPictureBoxʵÏÖ°É,ÐèÒª¶Ô×ø±êµ¥Î»» ......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ Ôõô»ñµÃÕýÈ·µÄʱ¼ä Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ ÒýÓà ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä µ«ÊÇÈç¹ûµçÄ ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......