VB - Put the desktops background as forms background

**Nightwalker83** · Mar 16th, 2003, 06:43 PM

VB Code:

Private Declare Function PaintDesktop Lib "USER32" (ByVal HDC As Long) As Long
 
Private Sub Command1_Click()
 PaintDesktop Me.HDC
End Sub

**MartinLiss** · Mar 16th, 2003, 09:26 PM

On my NT machine the picture paints and then goes away.

**Pc_Madness** · Mar 17th, 2003, 02:52 AM

Yeah, I have noidea why it does that.

Thats pretty cool though, its like X-Ray vision.

**Nightwalker83** · Mar 17th, 2003, 03:04 AM

I haven't been able to find the NT version of that code. It does work on: win95, 98, xp however.

**krtxmrtz** · Mar 17th, 2003, 03:58 AM

However it does work on my WinNT computer.
VB version in that machine is 5.

**crptcblade** · Mar 17th, 2003, 07:42 AM

Works fine on my NT machine, and my 2k machine.

**MartinLiss** · Mar 17th, 2003, 11:06 AM

Interesting. It works on my work NT PC.

**seec77** · Mar 18th, 2003, 06:47 AM

maybe you should try setting the "autoredraw" property of the form to true

**Pc_Madness** · Mar 18th, 2003, 07:18 AM

How can you prevent the form from clearing when it disappears?

Obviously without putting that code in the resize event

I thnk thats what Martin is on about.

If you set autoredraw to true, on XP atleast, it doesn't do anything at all.

**MartinLiss** · Mar 18th, 2003, 11:09 AM

It appears that it depends on the type of picture. For example on my home NT machine if I choose the "Seaside 16" and "Zapotec 16" backgrounds the code in this sample works, but if I choose type of picture. For example on my home NT machine if I choose the "Seaside" and "Zapotec" it doesn't. Does that mean that it only works with 16-bit pictures?

Thread: VB - Put the desktops background as forms background

Thread Tools

Display

VB - Put the desktops background as forms background

Posting Permissions