crop image height and width not resize 3-pixel

[kako0000000]

Hello brother,
i read all post and search google and also try many code but i failed.
i thing my problem is very simple but i failed.
i crop an image in picture1 and draw picture2 who height and width are same.

Detail:

i draw two picture box who name picture1 and picture2 also Picture1.ScaleMode = 3-pixel , Picture2.ScaleMode = 3-pixel
draw 4 textbox

when i crop image who selected area crop image is good but not size equal.

i send pic and code

i used
Picture1.ScaleMode = 3-pixel , Picture2.ScaleMode = 3-pixel

i not using
Picture1.ScaleMode = 1-Twip , Picture2.ScaleMode = 1-Twipwidthheightproblem.zip

[baka]

use the API BitBlt, its fast and easy to use and its in pixel by default.

[kako0000000]

Thanks baka i try API BitBlt but i failed.

[kako0000000]

no body any solution?

[Arnoutdv]

Start with explaining what failed and maybe showing some code

[baka]

yeah, u need to show code of that "crop"- function. surely u are doing something wrong,
like not considering the autoredraw, wrong hDC or even wrong values.

[kako0000000]

Picture2.AutoSize = True
m_X1 = Text1.Text
m_Y1 = Text2.Text
wid = Text3.Text
hgt = Text4.Text
BitBlt Picture2.hDC, 0, 0, ScaleX(wid, vbPixels), ScaleX(hgt, vbPixels), Picture1.hDC, m_X1, m_Y1, vbSrcCopy
SavePicture Picture2.Picture, App.Path & "\number.bmp"

and other code

BitBlt Picture2.hDC, 0, 0, ScaleX(wid, vbPixels), ScaleX(hgt, vbPixels), Picture1.hDC, m_X1, m_Y1, vbSrcCopy
Picture2.Picture = Picture2.Image
SavePicture Picture2.Picture, App.Path & "\number.bmp"

and other code

Picture2.AutoSize = True

m_X1 = Text1.Text
m_Y1 = Text2.Text
wid = Text3.Text
hgt = Text4.Text

Picture2.Width = wid + (Picture2.Width - Picture2.ScaleWidth)
Picture2.Height = hgt + (Picture2.Height - Picture2.ScaleHeight)

BitBlt Picture2.hDC, 0, 0, ScaleX(wid, vbPixels), ScaleX(hgt, vbPixels), Picture1.hDC, m_X1, m_Y1, vbSrcCopy

[SamOscarBrown]

1-do you not mean Picture2.Image = Picture1.Image???

[SamOscarBrown]

2-In your OP, you DID have Picture2.Scalemode set to Twips.

[SamOscarBrown]

3-What are you trying to do? CROP a PORTION of Picture1 and loading it into Picture2?

[kako0000000]

My question is so difficult that no solution is coming out.
I repeat.
I took two picture boxes.
The scale mode of both is 3-Pixcel.
I want to cut some part from the first image and bring it to the second image.
Cut according to the dimension I wrote in the text boxs.
And this cut part has to be saved in ( d ) drive .

8 is its top and 5 is left
Its width is 218 and its length is 50
On ScaleMode 3-pixcel.
Second image width and height not working.

[baka]

if u study BitBlt u will understand:

- all values "are" pixel, no need to do any scaling
- .AutoRedraw need to be off when u use it

do not do any savepicture/Picture2.Picture = Picture2.Image

[SamOscarBrown]

Here's an example in Post # 6 of something very similar to what you are trying to accomplish....maybe it will help.

https://www.vbforums.com/showthread....pped-rectangle

[ntstatic]

put the following in your button click event

dim N as long
N = 3
Picture2.AutoRedraw=True
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth - 0, Picture1.ScaleHeight - 0, N , N , Picture2.ScaleWidth - 2 * N , Picture2.ScaleHeight - 2 * N


( note : i assume the op is not much concerned with speed of operation )
( note : the following is one line
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth - 0, Picture1.ScaleHeight - 0, N , N , Picture2.ScaleWidth - 2 * N , Picture2.ScaleHeight - 2 * N
)

[kako0000000]

SamOscarBrown ,ntstatic and baka thanks

but this code not good i upload picture and project different dimension.
i crop the image with dimension .
different image different dimension.



widthheightproblem.zip

[kako0000000]

this dimension is all 3-pixcel.