ÇëÎÊÏÂ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
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......