Dim bmp As New Bitmap("打開(kāi)圖片的路徑")
創(chuàng)新互聯(lián)主營(yíng)肅南裕固族自治網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都App制作,肅南裕固族自治h5成都微信小程序搭建,肅南裕固族自治網(wǎng)站營(yíng)銷推廣歡迎肅南裕固族自治等地區(qū)企業(yè)咨詢
bmp.Save("保存圖片的路徑")
Dim t As New TextBox()
Dim p As New PictureBox
p.Image = bmp 'picture等支持image的控件。
t.CreateGraphics.DrawImage(bmp, New Point) '文本控件。
Me.BackgroundImage = bmp '窗體
很簡(jiǎn)單的方法,貌似沒(méi)有。這個(gè)需要自己寫很多代碼:
用一個(gè)ListView控件。
判斷滾動(dòng)條當(dāng)前所顯示的圖片集合,獲取它們的物理路徑。
用Bitmap.FromImage方法把這些圖片讀出來(lái),
然后獲取縮略圖,
把縮略圖用Graphics.DrawImage()繪制出來(lái)。
我可以提供Bitmap如何獲取縮略圖的方法:
'''?summary必須創(chuàng)建一個(gè)委托并將對(duì)此委托的引用作為獲取縮略圖?callback?參數(shù)傳遞,但不使用此委托。/summary
Public?Function?ThumbnailCallback()?As?Boolean
Return?False
End?Function
'''?summary返回Image,表示圖像指定?寬?和?高?的縮略圖。/summary
Public?Function?獲取縮略圖(位圖?As?Bitmap,?寬?As?Integer,?高?As?Integer)?As?Image
Dim?myCallback?As?New?Image.GetThumbnailImageAbort(ThumbnailCallback)
Return?位圖.GetThumbnailImage(寬,?高,?myCallback,?IntPtr.Zero)
End?Function
這樣了:
CType(Me.Controls("PictureBox11"), PictureBox).Image = My.Resources.image1
Find 返回?cái)?shù)組,元素類型為Object。
Item() 可以把控件名作關(guān)鍵字,但也返回Object。這個(gè)方法是默認(rèn)的,可以省略。
CType 轉(zhuǎn)換引用類型。
大概如此,我是2008,沒(méi)vb6那般的控件數(shù)組。
分享標(biāo)題:vb.net創(chuàng)建圖片,vb編程圖片
URL地址:http://sd-ha.com/article28/hdhicp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號(hào)、網(wǎng)站設(shè)計(jì)公司、、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站營(yíng)銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)