is there any way in VB6, to resize a photo from 600x800 pixels to fit in a picturebox or imagebox, in a size smaller the the original photo, say 200x300 pixels
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Image Or Picture Box Picture Resize
When ever you load a picture into a picture box with the stretch property to true, it will of course expand to the size of the image. Lets say I have an image 500x300pixels. I want it to fit into my image or picture box that is 250x150. Kind of like how thumb nails work. Or on windows explorer when you single click a file, it will show a smalled size of the actual image. There might be a property for this, ive just been looking at VB for so long working on a project that if its there, I dont see it. Thanks.
Hello, is there a way to resize an image before storing it in a database?
I have an image control in a form (VB6) and i'm storing the selected image (using ADODB.Stream) in a MsSQL2k database. But instead of going to another application like Photo Editor to resize de picture, is it possible to do it directly from VB before storing it?
G I Z M
is it possible to resize just some locations of a picture in a picture box ? i can't split the picture..
RESIZE JPG In A PICTURE-BOX
I started a similar thread some time ago, and someone gave me a code to stretch/shrink a BMP-file in a picturebox.
But I would really like to do this with a JPG and gif aswell (in fact any imagefile VB understands)
I cannot use the ImageBox-control because i need to draw on the picture
So if somebody could help me out with this it would be appreciated. Thank you in advance.
I am trying to resize picture but it is showing error "invalid picture". this is the code
Private Sub Timer1_Timer()Dim ret As Longi = i + 1ret = GetDC(GetDesktopWindow)BitBlt Picture1.hDC, 0, 0, Screen.Width / 15, Screen.Height / 15, ret, _0, 0, SRCCOPYPicture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeightSavePicture Picture1.Image, "C:screenshots" & "image" & i & ".jpg"End Sub
I have to do a program where in a form I chose a photo and in another form I can see the photo after a resize.
but when it runs the photo is resized but picture box remain small.
what can i do?
For Resize According To Picture Box
ok i need to resize a form accoding to the size of the picture box,
i've set both scalemodes to pixel and i use this code... but it doesnt work
frmmain.width = frmmain.picture.scalewidthfrmmain.height = frmmain.picturescaleheight
How can i resize a bmp to 800 x 600 pixels?
Ive searched this forum for answers but cant seem find any examples that do what i want
Any help would be greatly appriciated.
I wanna know if its possible to make a form picture strech out to the size of the form. Like if I make my castles property to maximise i don't want it to have just a little picture i want it to strech with the form.
Resize Picture Box
how can i scale a picture box. im creating a screen grab program, and i get the screen shot great, but how can i set it so that when the picture box is reduced (say to 1/4 the screen size) that instead of just showing the top left quarter, it shows the whole screen, but 1/4 the size?
Can I resize picture as the size of Picture Box that I have on form. I want to show whole picture in picture box.
Thanks in advance
Picture Box Resize
How can I display a picture in a picture or an image box and make the picture the largest size it can be in the box without changing its Height:width ratio?
How To Resize Picture In Vb
i want to know how to resize a picture file in Vb....
if i have a picture file in my disk and i want to resize it and to do it more less size.... can i do that in VB?
Resize That Picture!
Hi there!!!, It's me again, but this time is a simple question: how can I resize a picture???, this is what I wanna do: Open a JPG file, resize it to 13x13 pixels, and then save it as BMP... ok, anyone can help me with this?, plz!, thank you all again :-), see ya
- trying to make the world graphically better -
plz any one tell me how i can get the picture size and then how can i change picture size. if picture is 800*600 how can i chage it to 1024*768 and then save
I Need To Resize .bmp Picture ?
i need to resize my MDI form picture ,when i m changing my Screen Resolution eg800*600) to (1024*768) or (1024*768) to (800*600)
Thanks you for your time
Resize Picture Box
Hello friends, i really need your help. How to resize picture box include the inside pic. thx
Resize A Picture
can anybody tell me how to make an image resize to a picture box rather than the other way round, as is normally used. It's a bitmap by the way.
How To Resize Image In Picture Box?
I am using picture box to view images from .bmp files. But, I dont know how to resize image size depends upon users choice, such as 75%, 100% etc.
Yet Another Picture Resize Prob (JPG,GIF, Etc.)
Its 03:21AM now here in good old germany and i am very about picture and file functions with VB. I have no idea how to load a picture file and then resize it to a specific width with automatic calculation of the height, proportional to the width and then save it as JPG. Best would be, to be able to open and resize the most common picture formats like jpg, gif, bmp and eventually tiff, if possible. Is all this possible? Are there tutorials on the net or some code snippets where i can learn from? I searched the whole web including this forum but i found no solution. What to do? Pleas help!
Good Night! Will be back tomorrow! When you are sleeping!
Picture Resize And Format
anyone know if it is possible to resize and format a picture e.g. wrap around text, after inserting it from clipart in VBA,
if so how?
cheers - Mark.
Resize Picture In A MSFlexGrid
Is it possible to resize or stretch a picture to fit a cell in a MSFlexGrid? As of now I am able to add the picture to the grid but the graphic is larger than the cell and won't shrink or resize to fit. If anyone has any ideas, I'd greatly appreicate your help. Thanks!
After BitBlt Picture Resize
ok, in my code i had just used a BitBlt to transfer one part of an image to another PictureBox. Now i am wanting to resize this picture, but moving it to yet another new, PictureBox so that it would be copied there when it was resized, didn't work. Thanks in advance.
Resize Picture (in A File)
I need to do a software that resize BMP files
For example load a 500x300 JPG and save as 100x60.
I tried loading in a stretch mode img but saving mantains the same dimensions of original file...
HOW CAN I DO?
Thankyoufor all future answers
Resize Picture Or Text Box
Im writing a program that requires the user to be able to resize a text box and picture box, and i don't want them to have to press + and - buttons to resize it, i want them to be able to just click and drag to resize them, but i can't find a way, anyone know how???
--= Doey7 =--
Picture Within Form (Resize)
i have a big picture in my form. when form is set to maximize then whole picture is displayed inside its container (Form), but when form is restore or resized then whole picture is not displayed in form. my question is how to know that now whole picture is not displayed in the form, And how to know that now whole picture is displayed
Resize Picture - Better Resolution?
I'm using the following method to resize a picture, but I'm wondering - is there anyway I can improve the final quality of the resized picture?
.Picture1.Picture = LoadPicture(strImageIn)
sngEdge = .Picture1.Width - .Picture1.ScaleWidth
sngScaleDivisor = GetScaleDivisor(.Picture1.Height, .Picture1.Width)
.Picture2.Width = (.Picture1.Width - sngEdge) / sngScaleDivisor + sngEdge
.Picture2.Height = (.Picture1.Height - sngEdge) / sngScaleDivisor + sngEdge
'Resize the picture
.Picture2.AutoRedraw = True
.Picture2.PaintPicture .Picture1.Picture, _
.Picture2.ScaleLeft, .Picture2.ScaleTop, .Picture2.ScaleWidth, .Picture2.ScaleHeight, _
.Picture1.ScaleLeft, .Picture1.ScaleTop, .Picture1.ScaleWidth, .Picture1.ScaleHeight
'The only real trick is to set the result PictureBox's Picture property equal to its Image property to make the image permanent.
.Picture2.Picture = .Picture2.Image
'Save the small picture
SavePicture .Picture2.Picture, strSavePath & Format(Now(), "yymmddhhmmss") & ".bmp"
.Picture2.ToolTipText = Format(Now(), "yymmddhhmmss") & ".bmp"
I suppose I want a higher DPI really, don't I?
Picture Resize Problem
i have a PictureBox in which im loading a small image on Form_Load. and later i change (Increase / Decrease Too Much) the .Height And .Width of picturebox by my code.
now i want this picture to appear in the whole picturebox with the new size of picture, how can it be reached.
pls help me
Picture Resize Problem
plz any one tell me how i can get the picture size and then how can i change picture size. if picture is 800*600 how can i chage it to 1024*768 and save.
Resize Image Box Or Picture Box?
Is there any way to load a picture(.jpg file) to picture/image box and resize it proportionally? (the scale of length/width remains the same as orginal picture)
Resize A Picture Box To Fit Text
What I want to do is load a Picture Box with text and then resize the height of the picture box to the last line that was placed into the picture box (dynamic).
The program loads a page (10 lines) of text into a picture box. I do not care about the screen resolution or the font size the user has. I just want to resize the box to fix the text (height only, not width, it is ok).
or make the ten lines fill the whole picture box (of course dynamically).
How would I do this, best.
How To Resize A Picture In Word
and I finally remember that it was possible to select object with the cursor keys when not possible with mouse !!
Picture - Proportional Resize
I'm creating an interface to view a picture collection. I'd like to display each picture completely on my form. Some pics are larger than the screen, so I need to resize those to a size smaller than the original. I want the height and width to be in correct proportion to the original to prevent any skewing. What's the best way to go about this?
Resize The Picture In The Form
I would like to resize the picture in a form as the resolution of the screen is changed.The picture is added using the picture property.I have already downloaded the Resize ocx.But it gets affected only for the controls inside the form
Anyone pls help me.
I have a MDIForm, and i put a picture in as a background. The MDIForm.Picture.Width and MDIForm.Picture.Height doesnt NOT work, is there another way to resize the form at the same time the user does it?
Background Picture Resize
If I use the Picture property of the form, I can specify it to put a bitmap on the form as the background.
Is there any way that I can resize the picture to adjust to the form size?
Picture Box Cut Off/resize Problem
I have a problem with picture boxes in my program.
On some other user's computers the pictures are scaled bigger and cut off by the original frame of the picture box, but when i test them on my computer they show up correctly.
Does anybody know that problem and a solution for it?
If this has already been asked, could you give me a link, please?
Resize Picture Box Image VB 6
Basically I have a picture box that I have used SetPixelV to make the image and I need to stretch the image in to a picture box, which is 1200 high, and 1200 wide.
I played around with a few source codes I have found around like this one below which works fine if you use Picture1.PaintPicture Picture1.Picture but I need to use some think like Picture1.PaintPicture Picture1.image, any ideas?
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, _
0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
0, 0, _
Picture1.Picture.Width / 26.46, _
Picture1.Picture.Height / 26.46
Picture1 = Picture1.Image
Edited by - Alcoholic1 on 2/5/2006 1:36:03 AM
How To Resize Pictures In Picture Box?
I have a picture box of size 500x500.Then i want to put a picture of size 800x800 in the picture box with out increasing the size of the picture box.That means how to resize the picture in the picture box without adjusting the picturebox size?
those who know this please let me know
Resize Image In Picture Box
i search this fourm but cannot find help about this but cannot find
i use two picture box and one image box. putting image in first picture box from a Data Base and make it transparent the image is 200x120 which is show in picture box .
i need a thumbnail of that image in Picture box 2 but the image width is same in picture box 2
what i need is to resize that image shown in Picture Box 1 and
and show it in Picture box 2
i use imageBox but i dont know how i make picture transparent in
thanks if anyone help me
Resize Images In Picture Box
I wish to put more than image in a picture box...and all image in the picture box are able to resize using mouse... do anyone got any idea for me to do this? please help!
Howto Resize Picture With Same Ratio's?
I'm have a bit of trouble with a very simpe problem(I think).
I want to resize a picture and center a picture with the same ratio's. So lets say I have a picturebox wich represents 720 pixel in width and 576 in height. I load a picture in anothre picturebox wich has his autosize set to true. Let's say this picture is 300 x 400 pixels. How do I center this picture in the first picture box conserving it's ratio's? I don't want it to stretch. Just to center with paintpicture keeping the ratio's with the first picturebox. I have this code sofar...buth it's not working out as I planned it. The ratio's are distorted...
'Picbox is the destination Picturebox
Dim TmpPic As StdPicture
Dim AspectRatio As Single
Dim ScalingX As Single
Dim ScalingY As Single
Set TmpPic = Picturebox2.Picture 'Picturebox2 has autosize set to true
ScalingX = ((720 * 15) / TmpPic.Width) '720x15 to get the twipsize
ScalingY = ((576 * 15) / TmpPic.Height)
PicBox.PaintPicture TmpPic, (PicBox.Width - (PicBox.Width / ScalingX)) / 2, (PicBox.Height - (PicBox.Height / ScalingY)) / 2, PicBox.Width / ScalingX, PicBox.Height / ScalingY
If any one has any idea's...please...
Auto Resize Picture After Insert
I created a macro to insert picture and after insert the picture will auto resize and fit into my range (BO1).
Dim x As Variant
x = Application.GetOpenFilename("Pictures (*.jpg;*.bmp;*.gif), *.jpg;*.bmp", , "Select Picture")
If x = False Then Exit Sub 'no file selected
Set mypic = ActiveSheet.Pictures.Insert(x)
.Left = Range("BO1").Left
.Top = Range("BO1").Top
Resize Picture Not Bigger Than Screen
im trying to load my picture up and resize the picture so that it is not bigger than the screen i have tryed a couple of things with no look any help on this would be great
.ScaleMode = vbPixels
'Set up picturebox
.ScaleMode = vbPixels
.AutoRedraw = True
.AutoSize = True
.DrawMode = vbInvert
.DrawStyle = vbDashDot
.MousePointer = vbCrosshair
.Picture = LoadPicture("C: emp.jpg")
Resize Picture On Command Button
I have an .ico file which I want to display on command button.
Now the size of the ico is slightly big, which I would like to reduce. It does not open in Paint, please suggest if there is an alternative.
How To Select And Resize A Picture Box At Run Time?
iam trying to create a legend for my own chart control.
i am putting one label and one option button in the picure box.
i made both label and option button indexes are zero so that i can dynamically load the controls to any number.
after that depending on the number of curves plotted that many number of labels and option buttons will be loaded.
now the problem is the picture box is growing height wise and iam not able to restrict the height of the picture box.
now i want to select that picture box make it resize to any size.
please provide me the solution..
Automatic Picture Resize/paste/bluebox
i've posted this in another forum and noone seems to want to help, or either are unable. i have no idea, anyhow, after a cars accident, i need to get this app done...
i'll copy/paste my post from the other forum:
i'm programming (trying at least) a programm with Microsofts Visual Basic 2005 Express that should do the following:
- load a main picture which either has a transparent box in it somewhere or the user can define the 4 main (edge) coordinates of this box where
- a second picture gets glued into (merged or overlayed) getting the transparent boxed size (being automatically resized to fit perfectly) and
- the final result gets to be saved on disk.
anyhow, i can load the pictures. merge them together but the final picture is a mess. both pictures are then on the upper left corner of the image box (coordinated possibly on pixel 0/0)
that final result can be saved as well...
and here the questions:
is it possible to use the standard VB codes to let the programm find that transparent box automatically? (speed is of no importance at all)
better yet, if that transparent area isn't exactly a box (rectangle of whatever) but a flat cylinder, that the second picture just fills out the complete area (stretching i guess would be appropiate).
it would be ideally if the user would have the possibility to give the programm the 4 edges of a box in an image which has no transparent area so that picture also can be emerged (by clicking with the mouse)
how could i (or any beginner) achieve something like this?
it would be great, if anyone could help me on this...
thanks in advance
p.s. i think i've posted into the wrong subforum... if so... please move this. thanks
Help! How To Resize Picture's Content With The Form Size?
Does anyone can help me with this?
I was trying to write some text line to a form and display on screen. They are different in font sizes. However, when I resize the form, none of the printed text will not resize in proportion with the form size.
So this is not what I want. Then I put a picturebox into the form. And I wrote text into that picturebox1. The texts did appear in that Form1.picturebox1. Yet, when I resize it, the picturebox will not resize with the form.
Then I also try some like this:
Form1.Picture1.FontSize = 26
' Clear the Clipboard if it's another type of data in the Clipboard.
' Copy Clipboard text to Text2.
frmdisplay.Picture1.Picture = Clipboard.GetData
Guess what? nothing appears on the form frmdisplay.
Can anyone tell me how to deal with this?
I would really appreciate.