ÇëÎÊÏÂ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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......