vb.net切割圖片 vba 切片
vb.net picturebox 圖片編輯問題
這不是參數 picture1 是picturebox控件的名稱 ，你從工具箱里拖一個picturebox控件 默認的名稱就是picture1 不過看代碼應該是vb6的代碼 而非vb.net
創(chuàng)新互聯是由多位在大型網絡公司、廣告設計公司的優(yōu)秀設計人員和策劃人員組成的一個具有豐富經驗的團隊，其中包括網站策劃、網頁美工、網站程序員、網頁設計師、平面廣告設計師、網絡營銷人員及形象策劃。承接：成都網站設計、做網站、成都外貿網站建設公司、網站改版、網頁設計制作、網站建設與維護、網絡推廣、數據庫開發(fā),以高性價比制作企業(yè)網站、行業(yè)門戶平臺等全方位的服務。
求大神指點vb.net 怎么以指定方式打開圖片呢?
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
'建立新的系統進程????
Dim?process?As?New?System.Diagnostics.Process()
If?RadioButton1.Checked?Then
'設置文件名，此處為圖片的真實路徑+文件名????
process.StartInfo.FileName?=?"c:\a.bmp"
'設置進程運行參數????
process.StartInfo.Arguments?=?"rundll32.exe?shimgvw.dll"
Else
process.StartInfo.FileName?=?"mspaint.exe"
process.StartInfo.Arguments?=?"c:\a.bmp"
End?If
'此項為是否使用Shell執(zhí)行程序，因系統默認為true，此項也可不設，但若設置必須為true????
'process.StartInfo.UseShellExecute?=?True
'此處可以更改進程所打開窗體的顯示樣式，可以不設????
'process.StartInfo.WindowStyle?=?System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End?Sub
VB.net加載圖片某一位置
你要確定每個狀態(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
這個函數就可以用于裁剪圖像，返回裁剪后的圖像，start是開始裁剪的位置，end是結束裁剪的位置，b是要裁剪的圖像，假如你的這些按鈕每個寬30，高20，你就可以用
PictureBox1.Image = CutImage(New Point(第n - 1個按鈕 * 30, 0), New Point(第n個按鈕 * 30, 20), 按鈕存在的位圖)
VB.Net 如何用代碼為picturebox 打開一張圖片
Dim?fn?As?String?=?"D:\test.jpg"
'方法1
Me.PictureBox1.ImageLocation?=?fn
'方法2
Me.PictureBox1.Image?=?Image.FromFile(fn)
標題名稱：vb.net切割圖片 vba 切片
鏈接地址：http://www.jiaotiyi.com/article/dohshoc.html