vb.net切割圖片 vba 切片

vb.net picturebox 圖片編輯問(wèn)題

這不是參數(shù) picture1 是picturebox控件的名稱 ，你從工具箱里拖一個(gè)picturebox控件 默認(rèn)的名稱就是picture1 不過(guò)看代碼應(yīng)該是vb6的代碼 而非vb.net

創(chuàng)新互聯(lián)是由多位在大型網(wǎng)絡(luò)公司、廣告設(shè)計(jì)公司的優(yōu)秀設(shè)計(jì)人員和策劃人員組成的一個(gè)具有豐富經(jīng)驗(yàn)的團(tuán)隊(duì)，其中包括網(wǎng)站策劃、網(wǎng)頁(yè)美工、網(wǎng)站程序員、網(wǎng)頁(yè)設(shè)計(jì)師、平面廣告設(shè)計(jì)師、網(wǎng)絡(luò)營(yíng)銷人員及形象策劃。承接：成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都外貿(mào)網(wǎng)站建設(shè)公司、網(wǎng)站改版、網(wǎng)頁(yè)設(shè)計(jì)制作、網(wǎng)站建設(shè)與維護(hù)、網(wǎng)絡(luò)推廣、數(shù)據(jù)庫(kù)開(kāi)發(fā),以高性價(jià)比制作企業(yè)網(wǎng)站、行業(yè)門戶平臺(tái)等全方位的服務(wù)。

求大神指點(diǎn)vb.net 怎么以指定方式打開(kāi)圖片呢?

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

'建立新的系統(tǒng)進(jìn)程????

Dim?process?As?New?System.Diagnostics.Process()

If?RadioButton1.Checked?Then

'設(shè)置文件名，此處為圖片的真實(shí)路徑+文件名????

process.StartInfo.FileName?=?"c:\a.bmp"

'設(shè)置進(jìn)程運(yùn)行參數(shù)????

process.StartInfo.Arguments?=?"rundll32.exe?shimgvw.dll"

Else

process.StartInfo.FileName?=?"mspaint.exe"

process.StartInfo.Arguments?=?"c:\a.bmp"

End?If

'此項(xiàng)為是否使用Shell執(zhí)行程序，因系統(tǒng)默認(rèn)為true，此項(xiàng)也可不設(shè)，但若設(shè)置必須為true????

'process.StartInfo.UseShellExecute?=?True

'此處可以更改進(jìn)程所打開(kāi)窗體的顯示樣式，可以不設(shè)????

'process.StartInfo.WindowStyle?=?System.Diagnostics.ProcessWindowStyle.Hidden

process.Start()

process.Close()

End?Sub

VB.net加載圖片某一位置

你要確定每個(gè)狀態(tài)的大小是一樣的才可以：

Public Bitmap CutImage(ByVal start As Point, ByVal end As Point, ByVal b As Bitmap)

Dim f As New Bitmap(end.X - start.X + 1, end.Y - start.Y + 1)

For i As Integer = start.X To end.X + 1

For j As Integer = start.Y To end.Y + 1

Dim c As Color = b.GetPixel(i, j)

f.SetPixel(i - start.X, j - start.Y, c)

Next

Next

Return f

End Sub

這個(gè)函數(shù)就可以用于裁剪圖像，返回裁剪后的圖像，start是開(kāi)始裁剪的位置，end是結(jié)束裁剪的位置，b是要裁剪的圖像，假如你的這些按鈕每個(gè)寬30，高20，你就可以用

PictureBox1.Image = CutImage(New Point(第n - 1個(gè)按鈕 * 30, 0), New Point(第n個(gè)按鈕 * 30, 20), 按鈕存在的位圖)

VB.Net 如何用代碼為picturebox 打開(kāi)一張圖片

Dim?fn?As?String?=?"D:\test.jpg"

'方法1

Me.PictureBox1.ImageLocation?=?fn

'方法2

Me.PictureBox1.Image?=?Image.FromFile(fn)

分享標(biāo)題：vb.net切割圖片 vba 切片
本文網(wǎng)址：http://muchs.cn/article2/dohshoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、App設(shè)計(jì)、動(dòng)態(tài)網(wǎng)站、網(wǎng)站設(shè)計(jì)、定制開(kāi)發(fā)、手機(jī)網(wǎng)站建設(shè)

廣告

聲明：本網(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)