Does anyone know how to take a screenshot in VB, I know how to do: sendkeys {prntscr}, but I don't know how to get into a picture box, or image! Can you help?

When it says "do not reply to this post", it's just my signature, so please, reply!

Do Not Reply To This Post

[ This Message was edited by: kpyro on 2002-04-25 09:19 ]

Um, search google, I have emailed you some code, but google is riddled with examples of how to do this.

If you want answers check your MSDN Library CD. I found the answer to his problem there. For anyone else who needs it:

' Check to see if data on clipboard is bmp format
If Clipboard(2) = True Then
object = Clipboard.GetData
End If

The object can be a form or a picture box.

Ok, now I got it to take screenshots. Thanx to sacah! He is a well of knowledge. Drink from his mind and you will gain much information... [addsig]

DARN. I KNEW I WAS TOO LATE.

lol
dxprog that is how you get info from the Clipboard, kpyro want to take a screenshot and put it into a picture box, your way would only work if he pushed Prt Scr first.

Kpyro I think you should remove your sig, its a marquee with Do Not Reply To This Post
(-:

Ok...fine I will change my signature to what I usually have it. Anyone here do alot of networking in VB? [addsig]

Well he talked about using print screen so I figured it was simply pasting that image into the picturebox. Hey, I still learned somthing new.

Dxprog just posted something simultaneous with me! Wow, that is a first! [addsig]

Nope. Never done networking in VB. [addsig]

Quote:
On 2002-04-26 10:07, dxprog wrote:
DARN. I KNEW I WAS TOO LATE.


It's ok. Your bit of information will help too.

Sacah: Ok, you can take a screenshot and then paste into a picture box, but after you wanna take another one, it like makes the picture box all wierd...what do I do? [addsig]

Where do you live dx? [addsig]

US [addsig]

Sacah, are you gonna answer me? [addsig]

What I essentially trying to do is get it to take a screenshot every so often, kinda to monitor my computer... This is really important, so would you please respond asap? [addsig]

Run the sendkey command through a loop or timer and just clear the picturebox before pasting the image.

Ok, Im in australia, the time your up, Im probly in bed when u are on here, Im not goin to get up just to answer your question, especially when you could find the answer on the net, use www.google.com, I have not got VB installed to test it, I will be on the net again tomorow, I might have an answer then If I have instaled VB tonight.

Ok?
(-:

Reeeowww! Geez, calm down little kitty...I was just asking a question! [addsig]

kpyro: if you were talkin to me about calmin down, I just want to let you know I was never worked up, Im always calm, sorry for that misunderstanding, I installed VB, and I dont have that problem, mabye you have insufficent Ram/Vid mem to handel it, or its not flushin properly, apart from seein your code, I dont know how else to help you.

I got this sudden urge to hunt this bird sittin by my window...
(-:

[ This Message was edited by: sacah on 2002-04-28 12:54 ]

Sorry...I thought I had logged in...hmmm I dunno I guess I just forgot to. Anyways, look at the file ya sent me and see what you think. [addsig]

Try doing the Picture1.Cls method to clear the picture box before putting in the new image.

I did try the code I sent you, it worked perfectly.

Maybe it's your vid card. [addsig]

Well it doesn't work on any of the 8 computers I have tried it on... Thanx for the help anyway. [addsig]

what was the mem size on those 8 computers, both RAM, and Vid Ram?

Yeah. A computer with low mem or vid mem would garble an image like that. If you could give me the code I could test that on my computer and see what happens there.

dxprog: All that I want to do is take a picture of the desktop and put it into an imagebox. It doesn't matter how I do it, I just need it to be done.

sacah: I don't think that out of 8 computers, all new this year, that video memory has alot to do with it. They all play high-powered games very well. [addsig]

There is a way to get an image of the desktop by using an API call called GetDesktopWindow or something like that. Then you use the GetDC API call using the handle from the other one and BitBlt it to the picturebox.

Do you have the exact code for that? [addsig]

Yeah I have the code. I'll have to dig it up for you. [addsig]

Yay! [addsig]

I beleive thats the same code I sent you.

Hope it works for you though.

Okay. I take that back. I'll have to recode it. I must have got deleted in one of my repartition\format frenzies. I'll have it for you by tonight US time.

[ This Message was edited by: dxprog on 2002-05-03 22:19 ]

sacah: The code that you sent me in the e-mail, not the zip, did not work. It said that there was some function that wasn't declared or something like that. [addsig]

The code in the email was just the API to use wasnt it?

The code in the zip uses the same function ole mate is talkin about.

This is the code:

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As
Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long,
ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020

Dim tmpDC, Dummy As Long

Picture1.Width = Screen.Width
Picture1.Height = Screen.Height

tmpDC = GetDC(0) ''''''
Dummy = BitBlt(Picture1.hDC, 0, 0, Screen.Width, Screen.Height, tmpDC, 0, 0, SRCCOPY)


''''' This is the function GetDc(0) that doesn't exist! [addsig]

The GetDC function geos like this:
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
You can get the DC of the desktop by using the value returned from the GetDesktopWindow API. BitBlt that into a picturebox and you're set.

lol, lookin at my code, yes declarin a GetDC function would have helped, but like i said i did not have VB installed.

I have tested this code on three (3) computers: Intel Pentium II, Intel Pentium III, and an Intel Celeron 800 mhz. It should work on your computer:

Put this in the declarations:

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function CreateDCAsNull Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, lpDeviceName As Any, lpOutput As Any, lpInitData As Any) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Public Sub CopyDesktop(ByRef objTo As Object)
Dim hWnd As Long
Dim tR As RECT
Dim hDC As Long

hWnd = GetDesktopWindow()
GetWindowRect hWnd, tR

objTo.Width = (tR.Right - tR.Left) * Screen.TwipsPerPixelX
objTo.Height = (tR.Bottom - tR.Top) * Screen.TwipsPerPixelY

hDC = CreateDCAsNull("DISPLAY", ByVal 0&, ByVal 0&, ByVal 0&)

BitBlt objTo.hDC, 0, 0, (tR.Right - tR.Left), (tR.Bottom - tR.Top), hDC, 0, 0, SRCCOPY

DeleteDC hDC

End Sub

'Put this in a command button:

Picture1.Cls
CopyDesktop Picture1
Picture1.Refresh

'Picture can be substituted with any object with autodraw, hDC, Picture, height, and width.

If this does not work, I will write something else.

Didn't work for me. I ran it on a PIII. What windows version did you test it on?

Microsoft Windows 98 Second Edition, Windows Millennium Edition, and Windows XP Professional.

Yay! It worked for me! Thanx. [addsig]

I have 98SE and it came up blank. Oh well as long as it worked for kpyro [addsig]

Did you make sure to put the top code in the form declarations, not in a module?

Yep. I never ever use modules. If I need something in a module I make a DLL.

I dont use moduel or dll, I cant spell either
(-:
see the problem, they were runnin Intel
(-:

Why don't you use modules? And how do you make dlls??? [addsig]

You make DLLs by compiling and ActiveX dll. The DirectDraw Dll I posted I made with VB. [addsig]

Why does everybody always dis on vb?! It gets me so ticked off! [addsig]

Don't know. Bugs the crud out of me too.

Because if you just load up VB and play for a few minutes, it comes accross as a very basic language, its not untill you read further and learn, that it opens up and it very powerful, but most ppl just hear someone else sayin VB lollipops, and they consider that person 'cool' so they say VB lollipops too, same with the Windows vs Linux.
No dont flame about Windows/Linux, I was usin that as an example.

sacah is right as always. I really never programmed in VB but only heard that it was bad and stuff. And because I know BASIC from a time long ago I believe what I heard.

Linux is, well, a totally different story [addsig]

Mox, you are a dumb @%^. You just showed how stupid and gullable you are. Here's something for you: have you ever seen a million dollars in real life and held it? Probably not, but you still believe it right? We all say that VB doesn't lollipop, so I guess you just need proof. Well, I will make you a program that will open up your registry, change your desktop to some porn pic and then change your startup page to something like...www.hotpics.com. Then I will open your cd-drive and put in the registry for the program to start every time your computer is logged into. It will then give you the "blue screen of death" and then it will shutdown your computer. All this will be stored in a macro so it will auto run from your e-mail...But of course that isn't possible in your case because you use Linux. [addsig]

while(BASIC!=VBASIC)
{
cout [addsig]

[addsig]

private sub command1_click()

MsgBox "Visual Basic lollipops", vbcritical, "C++ is better"

End Sub [addsig]

AntiHalcyon: Just a question. Why did you choose that screen name? ust wondering because there is a Star Wars character with that last name. The Halcyon part anyways. I was just wondering if that's why you chose it.

I saw Episode II at 1 minute past midnight this morning, and it rocked.

Hope so. But after Episode I it could only get better. [addsig]

Hopefully we'll (my bros and I) be seeing it this weekend. I CAN'T WAIT!!!!

Star Wars lollipops. [addsig]

episode 1 really lollipoped. the whole plot was kinda pointless. but the older episodes are cool imo

The old ones are nice. And I think Episode One had potential, it's just that they did not use it.

Who does not remember this awful scene where Anakin's mother sais that there was no father...I did not know if I should cry or laugh when I saw it...

And this strange story with these small beings insde the Jedis. Nobody ever wanted to know where the Jedi powers came from. Explaining such things is only needed in StarTrek... [addsig]

Star Wars lollipops.







We are getting a bit of subject... [addsig]

Quote:
And this strange story with these small beings insde the Jedis. Nobody ever wanted to know where the Jedi powers came from. Explaining such things is only needed in StarTrek...


yeah. it also makes their powers appear more natural, and not as "divine" as they were before... you could think everybody could get a mediclorian (or what they were called..) injection and get "the force"...

Episode 1 did lack plot quite a bit. THough that was one heck of a lightsaber fight in the end. My fav so far is Empire Strikes Back. My dad was saying that some people were saying that Episode 2 is better than the old movies (I'll believe it when I see it). [addsig]

Empire Strikes Back is the best one. It was the moment that Lucas decided to make a trilogy. I don't think he planned it from the start...(no need to argue, 'cause nobody can proove it).

The second one of the original serious was the most gripping one with the coolest mechs and the darkest ending.

To Episode I: I think it's a pity that Lucas did not build up Darth Maul as the villain of the three new Episodes, like Darth Vader is in the original. He had some potential, a nice bad guy if you ask me. [addsig]

i think he looked a bit too.. flashy for being really bad. i really like how vader looks.. just cool all this make-up on darth maul and the princess in episode 1 looks stupid imho.. it doesn't add to the "starwars" atmosphere... quite the contrary imo.

One of the biggest probs about Episode I was all the media hype. For all that stuff about Maul and he had a whole fifteen literal minutes of fame. Episode III is going to be one depressing movie I bet. The rise of the Empire, Anakin goes bad, and all the Jedi excluding Yoda and Obi get killed. I CAN'T WAIT!!!!

Remeber theres Episode III where lots can go bad, not giving away any hints, but I think II is best yet.

Best ever or best of the new series? [addsig]

Just DON'T give anything off. I'm dying enough as it is because everyone says the ending is a real shocker. It's like the suspense of Christmas except with a movie. [addsig]

I reckon its best ever.

here's a funny article from slashdot... on /. people are somewhat unsure if it is a joke or not, read the discussion there, it's fun
the article:
http://www.weeklystandard.com/Content/Public/Articles/000/000/001/248ipzbt.asp
and the /. discussion:
http://slashdot.org/article.pl?sid=02/05/17/1019250&mode=flat&tid=101

svara: OMG, what an article, and OMG what a discussion... my eyes hurt.

dxprog: um, actually, Obi-Wan is killed in Episode IV, not III.

peter: how do you mean that?

btw, i'm (probably) going to watch episode 2 tomorrow...

We may be seeing on Wednesday. Everyone here goes to church Wednesday night so NO LINES.

Peter: I didn't say Obi was killed in III. I said everyone but him and Yoda were killed. Even after IV though he was kind of alive apearing to Luke all those times. [addsig]

dxprog - do you live in the "bible belt"?
the stuff you posted lately makes me think that

dxprog: oh, misread that..

svara: the article was pretty interesting/funny and the comments were extensive, to put it mildly..

Yeah, I live in the Bible belt. Annoying except for the fact that Wednesdays are easy going. [addsig]

What is really the Bible Belt? Don't make me google.. I'm busy coding php. I'm sure someone can sum it up .

a part of the US full of fundamentalist christians who, among other things, want to kill all homosexuals, stop darwin's evolution theory from being taught at schools, etc.

How progressive...

Hope this "Bible Belt" is not too big... [addsig]

The bible belt goes across the nation. I live in the "buckle" of it. [addsig]

Nice! Wonder when they'll bring up the inquisition again

(And the withhunts and all the other fun stuff) [addsig]

I used to live there...it's sad.

That does not really surprise me... [addsig]

Could be worse. Could be communist Russia. [addsig]

yeah, scandisk the damn commies

I'd rather live in a moderate religious part of russia than in an ultra-religious part of the US... [addsig]

...this is a dull conversation.

It really is...so why are you contributing to it? [addsig]

We could talk about Star Wars again. [addsig]

Is there a way to update the code in a program without having to redistribute a new exe?

Yeah. Clickteam has somthing called Patch Maker that does something like that. You would probobly have to buy some expensive software otherwise. [addsig]

Yes, releasing a patch would be better than releasing a new exe, you can use one of many Patch maker programs on the net, or make your own in Delphi/ASM etc.

Good luck on that last one. [addsig]

Are those clickteam tools free?

Yep. I have the install maker thing they make and it's not too bad. [addsig]

Is the installer better than Wise for Windows Installer? [addsig]

Don't know. But I'm sure it's cheaper. [addsig]

To anyone who knows how:

URGENT!WARNING!CAUTION: Does anyone know how to contain all .ocx's and .dlls and such into a single .exe ? [addsig]

Make the program with Delphi, or C++, or use a packer.

Or you could be tricky and write your own packer/unpacker in ASM/Delphi
(-:

Watch out kpyro. sacah is trying to get your down and make you learn asemmbly. [addsig]

Or Delphi
(-;

EEeeeewwww... [addsig]

I think I am going to use that program dx gave me.

What program? [addsig]

Ooops...I meant link. [addsig]

Oh, you mean install maker? [addsig]

Yeah and the uhh... patchmaker. [addsig]

Oh yeah. Forgot about that one. [addsig]