VB µ÷ÓÃϵͳ¼ÆËãÆ÷
ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell
¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï
±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆ×ª»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1
×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~~~
¼ÆËãÆ÷¿ÉÒÔ¸´ÖÆÕ³ÌùµÄ¡£¡£¡£
sendkeys
²»Óõ÷ϵͳµÄ¼ÆËãÆ÷£¬²Î¿¼×ÔÒÑ×öµÄ VBдµÄ½øÖÆ×ª»»
http://download.csdn.net/source/1212613
¶ÔÍ·,΢ÈíÓиöÀý×Ó¾ÍÊÇÓÃ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
......
×Ö·û´® m1="E"
×Ö·û´® m2="F"
Èç¹ûtext1.text=m1+m2µÄ»° Ôòtext1ÏÔʾµÄÊÇ EF
µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m ......
ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æÎª¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æÎªÃ»ÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æÎªÊ²Ã´¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬À ......
±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......
ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ
¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿
Ôõô°ì
±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå
²»»á°É£¿
VB code:
Private Su ......