ÇëÎÊÏÂVBÀïÔõÑùÁí´æÎªÒ»¸öÒѾ´ò¿ªµÄÎļþ
ÎÒÃÇÀÏʦ½Ð×öÒ»¸ö¼òµ¥µÄͼƬä¯ÀÀÆ÷£¬Òª¾ß±¸Ò»Ð©´ò¿ª£¬Áí´æÎªµÈ¹¦ÄÜ¡£ÆäÓà¶¼×öÍêÁË£¬¾ÍÊÇÔõôÁí´æÎªÒ»Ö±¸ã²»Ã÷°×£¬ÊéÉÏÒ²Ö»ÓÐÁí´æÎªÎı¾ÎĵµµÄ£¬ËƺõͼƬ¸úÎı¾Îĵµ²»Ò»Ñù¡£
´ò¿ªµÄͼƬ»áÏÔʾµ½picturebox£¬Äܹ»¸´ÖÆ£¬Õ³Ìù£¬¼ôÇеȲÙ×÷£¬¾ÍÊDz»ÄÜÁí´æÎª£¡
ÏÂÃæÎÒ°Ñ´úÂëÌù³öÀ´£¬´ó¼Ò°ïÎÒ¿´¿´¸ÃÔõôŪ°É£¬Ð»Ð»À²£¡
Dim mstrFileName As String
'¡°¸´ÖÆ¡±²Ëµ¥ÏîµÄʼþ¹ý³Ì
Private Sub Copy_Click()
Clipboard.Clear
Clipboard.SetData imgPicture.Picture
End Sub
'¡°¼ôÇС±²Ëµ¥ÏîµÄʼþ¹ý³Ì
Private Sub Cut_Click()
Clipboard.Clear
Clipboard.SetData imgPicture.Picture
imgPicture.Visible = False 'ͨ¹ý²»¿É¼û´ïµ½¼ôÇÐЧ¹û
End Sub
Private Sub dirselect_Change()
filselect.Path = dirselect.Path
End Sub
Private Sub drvselect_Change()
dirselect.Path = drvselect.Drive
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub filselect_Click()
mstrFileName = filselect.Path & "\" & filselect.FileName
imgPicture.Picture = LoadPicture(mstrFileName)
End Sub
Private Sub Form_Resize()
Dim i As String
Dim m As String
Dim picWidth As Integer
Dim picHeight As Integer
Dim imgWidth As
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......