裁剪圖片的問題

littlescott

載入1張圖,擷取這張圖1部份出來,就類似小畫家讓使用者有個伸縮的框框能選擇剪裁的大小
我自己先寫一下,載入圖片做標和繪製一個能縮放的框框
但我不知道怎麼合併這2個程式碼並複製擷取的那張圖
2個程式碼合併後框框會被載入的圖片覆蓋住......不知道是不是我一開思考方向就錯了
希望高手們指教一下
...

瀏覽完整內容，請先 註冊 或 登入會員

bauann

Hi, 你要去處理picturebox的paint事件，在paint事件中，『e』這個參數可以取得一個Graphics物件，就是picturebox的畫布，原則上就是先畫上底圖，之後畫上方框。

步驟一樣是在picturebox的mousedown先抓到起始位置，然後mousemove事件取得變動量，之後在mousemove裡面呼叫picturebox的Invalidate方法，去強制讓picturebox重新繪製

littlescott

那關於複製擷取後那塊圖片有甚麼語法或方法可以參考?
有沒有辦法直接剪下後部用存檔來將那張擷取的圖來計算他的二進位

補充內容 (2013-4-11 10:49 PM):
因為我看圖轉2進位的方法大多需要有路徑才可以轉

bauann

littlescott 發表於 2013-4-11 10:48 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

那關於複製擷取後那塊圖片有甚麼語法或方法可以參考?
有沒有辦法直接剪下後部用存檔來將那張擷取的圖來計算 ...

...

瀏覽完整內容，請先 註冊 或 登入會員

littlescott

1. Public Class Form1
   
2.     Dim X As Integer, Y As Integer
   
3.     Dim pen As Pen = New Pen(Color.Black, 1)
   
4.     Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
   
5. 
   
6.         Dim g As Graphics = e.Graphics
   
7.         g.Clear(Color.Blue)
   
8.     End Sub
   
9.     Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown
   
10.         X = e.X
    
11.         Y = e.Y
    
12.         Label1.Text = "X = " & X & "  Y = " & Y
    
13. 
    
14.     End Sub
    
15.     Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseMove
    
16. 
    
17.         PictureBox1.Invalidate()
    
18.         If e.Button = Windows.Forms.MouseButtons.Left Then
    
19.             Dim g As Graphics = Me.CreateGraphics
    
20.             g.DrawRectangle(pen, X, Y, e.X - X, e.Y - Y)
    
21. 
    
22.         End If
    
23. 
    
24.     End Sub
    
25. 
    
26.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
27.         Dim Picture = New Bitmap("C:\1.bmp")
    
28.         PictureBox1.Image = Picture
    
29.     End Sub
    
30. 
    
31. End Class

複製代碼

不好意思.....哪裡有做錯嗎...

瀏覽完整內容，請先 註冊 或 登入會員

bauann

應該會是像下面這樣

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我code貼不上來，一直說我有敏感內容，要我改成附件 Orz

littlescott

謝謝bauann指教
我把完成的po出來~哪裡有需要改進麻煩您在指點一下
也給需要的人參考參考
需要 PictureBox1, PictureBox2,Button1,Label1,Label2

我也ORZ了......也說有敏感內容.....但我不會用網路張貼程式碼.....
改用圖片代替.......

darkjack

我跟你們說...敏感的字 是哪個 ...就是   I~M~A~G~E
那個單字

littlescott

darkjack 發表於 2013-4-14 08:27 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我跟你們說...敏感的字 是哪個 ...就是   I~M~A~G~E
那個單字

image!?   為甚麼?
這是很平常的單字啊..........

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

這個我就不清楚了..論壇這樣的設定
好像大小寫有差別 ，之前我用 Image 就被擋了
我打出來之後好像又可以了....

littlescott

不好意思
這有點急，續這標題的問題我再問一下
我一直以為只要有顯示在 PictureBox2的圖就可以用 PictureBox2.Image叫出來....
但被註解的程式碼好像不行
那被裁剪出來的圖片我想做運算，但要去哪找?

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2. 
   
3.         Dim g As Graphics = PictureBox2.CreateGraphics
   
4.         Dim oRect As Rectangle = New Rectangle(0, 0, PictureBox2.Width, PictureBox2.Height)
   
5.         Dim cRect As Rectangle = New Rectangle(StartPoint.X, StartPoint.Y, MovePoint.X - StartPoint.X, MovePoint.Y - StartPoint.Y)
   
6.         g.DrawImage(bImage, oRect, cRect, GraphicsUnit.Pixel)
   
7. 
   
8.         'Dim bImage2 As Image
   
9.         'bImage2 = PictureBox2.Image
   
10. 
    
11.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

littlescott

我今天把我問的做出來了
但是碰到一個問題
我把讀出來的圖拿去轉2進位
1張還可以  很多張就不行
錯誤訊息是"如果您使用了 GetHdc 方法之後又使用 Graphics 物件，請呼叫 ReleaseHdc 方法。"
那我有去看官網的寫法也試過了
但還是不行

1.   Dim biff As Bitmap = New Bitmap(MovePoint.X - StartPoint.X, MovePoint.Y - StartPoint.Y)
   
2.         Dim g As Graphics = Graphics.FromImage(biff)
   
3.         Dim oRect As Rectangle = New Rectangle(0, 0, MovePoint.X - StartPoint.X, MovePoint.Y - StartPoint.Y)
   
4.         Dim cRect As Rectangle = New Rectangle(StartPoint.X, StartPoint.Y, MovePoint.X - StartPoint.X, MovePoint.Y - StartPoint.Y)
   
5.         g.DrawImage(bImage, oRect, cRect, GraphicsUnit.Pixel)
   
6. 
   
7.         PictureBox2.Image = biff

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

bauann

Hi, 上面看到的就是你轉2進位的相關程式碼？你有用到Graphics.GetHdc的功能嗎？

littlescott

謝謝bauann大大特地來相助!!
以下是我轉二進位的程式碼
因為我是多張相片下去跑所以用到迴圈
Graphics.GetHdc我用過了也不行
還有g.Dipose()也是...
但是我已經發現問題了  呵呵
PictureBox2.Image = biff
改成PictureBox2.Image = New Bitmap(biff)
P.S)12樓的程式只有跑一張而已

1.   Dim ms As New System.IO.MemoryStream
   
2.         img.Save(ms, Imaging.ImageFormat.Bmp)
   
3.         Dim outBytes(CInt(ms.Length - 1)) As Byte
   
4.         ms.Seek(0, System.IO.SeekOrigin.Begin)
   
5.         ms.Read(outBytes, 0, CInt(ms.Length))
   
6.         Return outBytes

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員