貼代碼啊,貼上加載兩個圖片框的代碼,有代碼才知道你加載圖片時錯在那里.下回提問要詳細周全,碰到了就回一下,但問題資料提供不全面會浪費時間也會浪費一個別人回答的機會,因為等你再提供更多資料時能回答的人就不一定在線了.下回再看到你這問題不知道等到什么時候了...
成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設、高性價比臨汾網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式臨汾網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設找我們,業(yè)務覆蓋臨汾地區(qū)。費用合理售后完善,10多年實體公司更值得信賴。
這問題有點籠統(tǒng),軟糖來說說把:
圖像處理由System.Drawing命名空間負責。
主要是Bitmap類和Graphics類。
Bitmap表示一個位圖,可以是BMP,JPG,PNG等文件。
裝載位圖
Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一張畫紙,能夠進行繪制操作。
它可以被窗體、控件、位圖調(diào)用CreateGraphics()方法來創(chuàng)建。
然后調(diào)用Graphics.Draw開頭的一系列函數(shù)來繪制圖像和圖形,F(xiàn)ill開頭的填充圖形。
創(chuàng)建畫紙并繪制位圖
Dim?畫紙?As?Graphics?=?Me.CreateGraphics()
畫紙.DrawImage(位圖,?100,?100,?256,?256)
可以將上面三行放到Form1_Load中測試,把路徑改一下,
還可以把Me改為能在上面繪圖的控件的名稱。
更多內(nèi)容請看MSDN的System.Drawing命名空間。
如滿意,請采納,謝謝。
用位圖對象的Clone 方法就可以獲取圖片某個區(qū)域成一個新的位圖對象,下面例子:
Private?Sub?Form1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Me.Click
Dim?img?As?New?Bitmap("d:\015.jpg")
Dim?rc?As?Rectangle?=?New?Rectangle(500,?500,?600,?600)???'起點和長寬
Dim?newImg?As?Bitmap?=?img.Clone(rc,?Imaging.PixelFormat.Format32bppArgb)
Me.CreateGraphics.DrawImage(newImg,?0,?0)
End?Sub
Pegasus的ImagXpress 8.0控件,支持各種格式文件的加載。控件封裝了右鍵局部區(qū)域放大的功能,要實現(xiàn)圖片的縮放,把AutoResize屬性設置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage,修改 ZoomFactor的值就可以了。
vb.net 怎么來回切換圖片?1、添加控件Picturebox1和控件Timer1,將Timer1的Interval屬性改為1000(即1秒),Enabled屬性改為True
2、假設你要循環(huán)切換4張圖片,你可以添加如下代碼即可實現(xiàn):
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = 4 Then
a = 0
Else
a = a + 1
End If
If a = 0 Then Me.PictureBox1.Image = Image.FromFile("1.jpg")
If a = 1 Then Me.PictureBox1.Image = Image.FromFile("2.jpg")
If a = 2 Then Me.PictureBox1.Image = Image.FromFile("3.jpg")
If a = 3 Then Me.PictureBox1.Image = Image.FromFile("4.jpg")
End Sub
Sub 圖片縮放()
Dim SngPer As Single = 1 '放大或縮小的比例 放大2倍時SngPer=2,縮小3倍時 SngPer=1/3
Dim PicOld As Image = Image.FromFile("原圖片路徑")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新圖片路徑", Drawing.Imaging.ImageFormat.Jpeg)
End Sub