ASP Developer Network - Brought to you by Steve Radich and BitShop, Inc. - http://www.bitshop.com

ASPDeveloper

ASPDeveloper.Net / VirtualServerFAQ.COM

Make sure you go to our home page for:

* Virtual Server 2005 FAQ
* ASP.Net 2.0 Information
* ASP.Net 2.0 Streaming Tutorials
* ASP.Net 2.0 HTML based Tutorials

Made possible by Business Internet Technology Shop (BitShop)

Virtual Server 2005

Recent Virtual Server 2005 posts

* The POST boot-up procedure goes by so quickly for any guest OS in Virtual Server.
* linux red hat 4 or suse 10 display scrash !!
* Using Remote NAS without iSCSI or ADS
* vm additions for linux (install under VS2005R2X64)
* msvmscsi1 - Issuse once a day
* The Page Cannot be displayed
* Attention: Owner of VirtualServerFAQ.com
* VM Additions for Linux
* Could not connect to the Virtual Server error
* Symantec A/V Corporate, any luck?
* Changing guest OS to SCSI adapter from IDE
* Print server for Virtual server 2005
* Mouse barely works in Virtual Server 2005 R2 even with Virtual Machine Additions installed
* Is PXE really just Wake on LAN when it comes to the NIC?
* How to run x86_64 Windows2003 ent as a guest Operating System?
* Fax Board
* VSMT error, anyone seen similar?
* Remote Desktop to Virtual Machine Recommended?
* Sometimes, it is just the little things
* Cannot see virtual machine

Add Solution

Thumbnail image in VB6

Source: microsoft.public.virtualserver
Sent: 05/03/2006
From: <ms>
Message:

Hi there,

I don't know if there is anyone can help me... I hope so.

Im trying to write some utility in VB6 by using VS 2005 R2 COM object.
Almost everything working but i was wondering if anyone have some experience
with the following:

I would like to try to show the thumbnail image of virtual machine on VB6
form. The only sample of VB i found is written in VB.NEt 2003/VB.Net 2005. I
know that this must possible in VB6 (it's Com and not .net assembly)... and
i'm not ready yet for VB.NET...
Can anyone help with degrading this to VB6 version or point me to direction
where can i find some information...

Thanks in advance

Add

here's the code returning the bitmap
(Used in VB.NET

Function Thumbnail1(ByVal m_comVirtualMachine As VMVirtualMachine) As Bitmap

Dim pixelArrayObj As Object()
pixelArrayObj = CType(m_comVirtualMachine.Display.Thumbnail, Object())

" Convert it to a bitmap
Dim bmp As New Bitmap(64, 48)

" Pixel index
Dim i As Integer = 0

" The thumbnail is always 64x48
For y As Integer = 0 To 47
For x As Integer = 0 To 63

Dim uiPixel As Double = Convert.ToDouble(pixelArrayObj(i))
Dim red, green, blue As Integer

red = CInt((uiPixel >> 8) Mod 256)
green = CInt((uiPixel >> 16) Mod 256)
blue = CInt((uiPixel >> 24) Mod 256)

bmp.SetPixel(x, y, Color.FromArgb(red, green, blue))
i += 1
Next
Next

Return bmp

End Function

Post Reply | This is Spam! | Mark as Spam

Related Messages

Post Reply | This is Spam! | Mark as Spam

Other groups

Virtual PC (Mac)(3592)	Virtual PC(12844)	Virtual PC (French)(496)
Virtual Server 2005(6245)

Our Sponsors

Virtual Server 2005 Info Here!
http://www.aspdeveloper.net

Wiki

Blogs

Articles

Image galleries

File galleries

Forums

Maps

Directories

ASP Developer Network (since 1996) - Brought to you by Steve Radich and BitShop, Inc. - http://www.bitshop.com
Copyright © 1997-2005 by BitShop, Inc. All Rights Reserved.
No content may be reproduced in any form without written permission from BitShop, Inc.
We will be honored to assist with reproduction rights on our material if you contact us.
We also can provide print articles for your magazine, private training seminars at your site, and conference presentations.
Thank you for visiting. Please bookmark our site if you found it useful!
If you wish to make a donation it will help further the development of these free resources: