VB.NET加載圖片問(wèn)題

'先建立一個(gè)bitmap對(duì)象，指向圖像文件

創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的沿灘網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定義一個(gè)圖片框的graphics對(duì)象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在圖片框上繪圖

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'釋放bitmap對(duì)象

pic.Dispose()

'現(xiàn)在即可對(duì)文件進(jìn)行操作

求大神指點(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

VB2008讀取文件夾中所有文件JPG

用Microsoft.VisualBasic.FileIO.Filesystem.GetFiles方法。在文件名參數(shù)寫"*.jpg"就行了。返回ReadOnlyCollection。記住：READONLYCOLLECTION的Item屬性最大值為Count-1不是count

然后用for循環(huán)將readonlycollection的項(xiàng)添加到ListBox控件。把郵箱給我，過(guò)兩天把代碼發(fā)給你

代碼

On Error Resume Next'最好使用VB.NET 的Try catch語(yǔ)句塊

dim Loopint1 as integer，tmpstr1,tmpstr3 as string

Dim flist As System.Collections.ObjectModel.ReadOnlyCollection(Of String)

fList=Microsoft.VisualBasic.FileIO.FileSystem.GetFiles(gfPath, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")

x = flist.Count

For LoopInt1 = 0 To x - 1 '循環(huán)控制

tmpstr3 = "" '清空屬性字符串

tmpstr1 = flist.Item(LoopInt1)

IntInStr = InStrRev(tmpstr1, "\")

tmpstr2 = Microsoft.VisualBasic.Strings.Right(tmpstr1, Len(tmpstr1) - IntInStr)'只得到文件名，如果要完整路徑就要循環(huán)里第二行即可

Listbox1.Items.Add(tmpstr2)'添加內(nèi)容

Next

'其實(shí)完全可以制作一個(gè)VB6的文件列表框，加上Listview，資源管理器也是可以做的，只不過(guò)圖標(biāo)控制比較麻煩而已

'照相時(shí)間要獲得EXIF信息，這個(gè)我不知道，你上網(wǎng)找找看

vb.net如何將JPG文件縮放至不大于指定的字節(jié)數(shù)

1.我有個(gè)思路可以嘗試一下：把一張字節(jié)數(shù)在280-300K的圖片用PS打開(kāi)看看像素大?。?/p>

2.定義一個(gè)新的位圖，指定像素大小為上面得到的數(shù)據(jù)；

3.讀取你需要修改大小的JPG文件，然后按指定大小復(fù)制到上面新建的位圖，并保存為JPG格式

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

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

'方法1

Me.PictureBox1.ImageLocation?=?fn

'方法2

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