Calvin Hsia's WebLog : Pictures

Synchronize your files across machines with Mesh

Calvin_Hsia — Wed, 24 Sep 2008 05:07:00 GMT

I have a collection of almost 30,000 pictures and videos. When I add new pictures to the collection, I had been running a script file to synchronize the collection across various machines.

for %%s in (\\calvinh6\e$ \\calvinh3\e$ \\calvinh4\e$) do (

robocopy /s /fp %2 %1 %%s\pictures\%1

Echo done 2

)

I’ve been playing a little with Mesh for a while now. Also known as Live Mesh (http://blogs.msdn.com/livemesh/ ), it allows you to synchronize folders across multiple machines (and devices coming soon) very easily. For example, you can keep your Favorites sync’d between computers.

For example, after the simple installation, I can right click on a folder “c:\Test” in Windows Explorer and choose “Add folder to your Live Mesh”. A dialog comes up which shows me all the machines that I’ve added to my Mesh, and allows me to choose which ones to synchronize. It also includes the Live Mesh Desktop in the list of machines which can optionally be synchronized. There is a 5 gig limit to the amount of space you use in the “cloud”, but not to the amount of data you synchronize between your devices.

On the sync’d device, a new folder “Test” will be added to the desktop. You can then move this folder where you like.

Another feature of Mesh is the ability to Remote Desktop into any other machine (even across firewalls). From my laptop, I can connect to my dual monitor main machine, and I can see the entire 2 screens squished onto my laptop screen. There are various sizing options to scale the screens.

Keep in mind this is a tech preview of Live Mesh, and things will probably change

I loaded the Zune Software ( my wife has a Zune, but I don’t yet), but I can still run the software to manage and play my music collection. I’m trying to play Beethoven Piano Sonatas on my piano, so I took my CDs and added them to my Zune collection. I just added my Zune folder to my Mesh, and after a while, the folder was synchronized on the machines I chose! Great way to eat up disk space.

Try this: add a folder to Mesh and run this code:

Start Visual Studio. File->New->Project->VB->WPF Application

Dbl-click the form and paste in this code:

Class Window1

Const cPath As String = "d:\CalvinH\Music\Zune"

Dim WithEvents watcher As New IO.FileSystemWatcher(cPath)

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

watcher.EnableRaisingEvents = True

End Sub

Sub FileChanged(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Changed

Debug.WriteLine(DateTime.Now.ToLongTimeString + " " + _

(New Diagnostics.StackTrace).GetFrames(0).GetMethod.Name + " " + _

e.ChangeType.ToString + " " + e.Name + " " + e.FullPath)

End Sub

Sub FileCreated(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Created

Debug.WriteLine(DateTime.Now.ToLongTimeString + " " + _

(New Diagnostics.StackTrace).GetFrames(0).GetMethod.Name + " " + _

e.ChangeType.ToString + " " + e.Name + " " + e.FullPath)

End Sub

Sub FileDeleted(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Deleted

Debug.WriteLine(DateTime.Now.ToLongTimeString + " " + _

(New Diagnostics.StackTrace).GetFrames(0).GetMethod.Name + " " + _

e.ChangeType.ToString + " " + e.Name + " " + e.FullPath)

End Sub

Sub FileDisposed(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Disposed

Debug.WriteLine(DateTime.Now.ToLongTimeString + " " + _

(New Diagnostics.StackTrace).GetFrames(0).GetMethod.Name + " " + _

e.ChangeType.ToString + " " + e.Name + " " + e.FullPath)

End Sub

Sub FileRenamed(ByVal sender As Object, ByVal e As IO.FileSystemEventArgs) Handles watcher.Renamed

Debug.WriteLine(DateTime.Now.ToLongTimeString + " " + _

(New Diagnostics.StackTrace).GetFrames(0).GetMethod.Name + " " + _

e.ChangeType.ToString + " " + e.Name + " " + e.FullPath)

End Sub

End Class

Run the code, make a change to the folder from a different computer that syncs it, and you see output similar to this:

11:28:44 AM FileCreated Created ve-473A.tmp d:\CalvinH\Music\Zune\ve-473A.tmp

11:28:44 AM FileChanged Changed ve-473A.tmp d:\CalvinH\Music\Zune\ve-473A.tmp

11:28:44 AM FileCreated Created t.txt~RF247c46fd.TMP d:\CalvinH\Music\Zune\t.txt~RF247c46fd.TMP

11:28:44 AM FileDeleted Deleted t.txt d:\CalvinH\Music\Zune\t.txt

11:28:44 AM FileChanged Changed t.txt~RF247c46fd.TMP d:\CalvinH\Music\Zune\t.txt~RF247c46fd.TMP

11:28:44 AM FileRenamed Renamed t.txt d:\CalvinH\Music\Zune\t.txt

11:28:44 AM FileDeleted Deleted t.txt~RF247c46fd.TMP d:\CalvinH\Music\Zune\t.txt~RF247c46fd.TMP

It looks like Mesh puts a place holder file (the file could be huge, and take a long time to sync) in the folder first, then does some renaming and deleting to complete the sync.

See also:

Examine .Net Memory Leaks

Find the Executing function's name

http://blogs.msdn.com/calvin_hsia/archive/tags/Pictures/default.aspx

Magnify your pictures using a PictureBox so that you can zoom with the Mouse Wheel

Calvin_Hsia — Thu, 21 Aug 2008 21:15:00 GMT

Today’s digital cameras take pictures with much higher resolution than many computer screens. My Canon PowerShot SD800 IS camera takes pictures at 3072 x 2204 resolution.

One of my laptops died recently, and I noticed that local laptop retailers have machines with 1280 X 1024 resolution. I much prefer a higher resolution display, so I ordered a customizable Dell Inspiron 1525 with 1680 x 1050.

(I’ve been ordering computers from Dell for over 20 years, back in the days when it was called PC’s Limited. Why does Dell distinguish between business/government/home laptops?)

I was playing around with some photos using a PictureBox control, and I wanted to add a feature that would allow click/zoom using the mouse wheel to designate a point to magnify.

It was pretty easy to create my own class MyPictureBox which inherits from PictureBox and handles the MouseWheel and zooming.

Below are C# and VB versions. If I get enough requests, maybe I’ll make a Fox version (although I like this Fox version of zooming: Enable crop and zooming in on your digital photograph display form)

Start Visual Studio 2008 (I think these should work in VS2005)

File->New->Project->VB/C#->Windows Application.

View->Code, then paste the VB/C# code below, hit F5

Move the mouse to designate a zoom anchor point, then mouse wheel to zoom in/out

If you switch back to the form designer, the ToolBox has the MyPictureBox control on it, which you can drag/drop onto a form.

If you already have your own form that uses a PictureBox or several, you can avoid manually changing all the instances by carefully editing the Form1.Designer.vb file to replace the type with MyPictureBox (make a backup first).

As an exercise, try extending this feature by adding the ability to change the anchor point while zoomed or pan the zoomed picture.

Some VB/C# coding issues:

· semicolons

· capitalization

· intermediate arithmetic rounding results

· event handling

Create your own media browser: Display your pictures, music, movies in a XAML tooltip

<VB Code>

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Left = 0

Me.Top = 0

Me.Size = My.Computer.Screen.WorkingArea.Size

Dim oPict = New MyPictureBox

oPict.Size = Me.Size

oPict.SizeMode = PictureBoxSizeMode.StretchImage

oPict.Image = New Bitmap("d:\kids.jpg") ' path to some picture

Me.Controls.Add(oPict)

Me.ActiveControl = oPict

End Sub

End Class

Public Class MyPictureBox

Inherits PictureBox

Private zmLevel As Integer = 1

Private zmPt As Point

Overloads Property Image() As Image ' we want to hook when client's set the image to reset the zoom level to unzoomed

Get

Return MyBase.Image

End Get

Set(ByVal value As Image)

zmLevel = 1 ' reinit

MyBase.Image = value

End Set

End Property

Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)

'MyBase.OnPaint(pe) ' don't call baseclass to paint

If Me.Image IsNot Nothing Then

Dim loc As Point

Dim sz As Size

If zmLevel <> 1 Then

sz = New Size(Me.Image.Width / zmLevel, Me.Image.Height / zmLevel)

' center on zmPt

loc = New Point(Me.Image.Width * (zmPt.X / Me.ClientRectangle.Width) - sz.Width / 2, _

Me.Image.Height * (zmPt.Y / Me.ClientRectangle.Height) - sz.Height / 2) '

Else

loc = New Point(0, 0) ' no zoom: we want the entire source picture

sz = Me.Image.Size

End If

Dim rectSrc = New Rectangle(loc, sz)

' now draw the rect of the source picture in the entire client rect of MyPictureBox

pe.Graphics.DrawImage(Me.Image, Me.ClientRectangle, rectSrc, GraphicsUnit.Pixel)

End If

End Sub

Sub PictureBox_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseWheel

If Me.zmLevel = 1 Then ' can only anchor when unzoomed

Me.zmPt = New Point(e.X, e.Y)

End If

If e.Delta > 0 Then

If zmLevel < 20 Then

zmLevel += 1

End If

Else

If e.Delta < 1 Then

If zmLevel > 1 Then

zmLevel -= 1

End If

Me.Invalidate() ' queue msg to repaint

End Sub

End Class

</VB Code>

<C# Code>

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

this.Left = 0;

this.Top = 0;

this.Size = Screen.PrimaryScreen.WorkingArea.Size;

var oPict = new MyPictureBox();

oPict.Size = this.Size;

oPict.SizeMode = PictureBoxSizeMode.StretchImage;

oPict.Image = new Bitmap("d:\\kids.jpg");

this.Controls.Add(oPict);

this.ActiveControl = oPict;

}

public class MyPictureBox : PictureBox

{

private int zmLevel = 1;

private Point zmPt;

public MyPictureBox()

{

this.MouseWheel += new MouseEventHandler(MyPictureBox_MouseWheel);

}

void MyPictureBox_MouseWheel(object sender, MouseEventArgs e)

{

if (this.zmLevel == 1)

{

this.zmPt = new Point(e.X, e.Y);

}

if (e.Delta > 0)

{

if (zmLevel < 20)

{

zmLevel += 1;

}

else

{

if (e.Delta < 1)

{

if (zmLevel > 1)

{

zmLevel -= 1;

}

this.Invalidate();

}

new public Image Image // overrides

{

get

{

return base.Image;

}

set

{

zmLevel = 1;

base.Image = value;

}

protected override void OnPaint(PaintEventArgs pe)

{

//base.OnPaint(pe);

if (this.Image != null)

{

Point loc;

Size sz;

if (zmLevel != 1)

{

sz = new Size(this.Image.Width / zmLevel, this.Image.Height / zmLevel);

// center on zmPt. Casts are needed so integer divide doesn't occur (intermediate double result)

loc = new Point((int)(this.Image.Width * (zmPt.X / (double)this.ClientRectangle.Width)) - sz.Width / 2,

(int)(this.Image.Height * (zmPt.Y / (double)this.ClientRectangle.Height)) - sz.Height / 2);

}

else

{

loc = new Point(0, 0);

sz = this.Image.Size;

}

Rectangle rectSrc = new Rectangle(loc, sz);

// now draw the rect of the source picture in the entire client rect of MyPictureBox

pe.Graphics.DrawImage(this.Image, this.ClientRectangle, rectSrc, GraphicsUnit.Pixel);

}

</C# Code>

Compress and timestamp your pictures to gain disk space

Calvin_Hsia — Thu, 13 Mar 2008 23:23:00 GMT

I was running out of space again on my notebook. As years go by, digital cameras can take pictures with more megapixels, but that means they take up more space.

Thus my pictures from 10 years ago are much smaller than this year’s.

Since I have multiple copies of my picture collection (28,000!) I didn’t mind modifying the notebook’s copy. Also, since the notebook resolution is 1400 X 1050, and I only ever display the notebook pictures on the notebook screen, the camera picture’s resolution 3072 X 2074 (Canon Powershot SD800) included more info than I needed.

The code resulted in most pictures compressing about 80%! You can vary the quality parameter and try it yourself. Also, my disk contains all the movies taken by the camera too, and these aren’t touched by the code.

So I ran the code below and gained 5 Gigabytes of storage! Not bad.

The code uses the GDIPlus class library to load, compress and store the file. This changes the file timestamp, so the code also preserves the original timestamp.

Resize your pictures for your phone or pocket pc

Timestamp digital pictures

cRoot=ADDBS("d:\pictures\2006\")

recurdir(cRoot)

?"Done",DATETIME()

PROCEDURE recurdir(cBasePath)

LOCAL n,i

LOCAL aa[1]

?cbasePath

n=ADIR(aa,cBasePath+"*.*","D")

FOR i = 1 TO n

IF "D"$aa[i,5]

IF LEFT(aa[i,1],1)<>"."

recurdir(cBasePath+aa[i,1]+"\")

ENDIF

ELSE

IF LOWER(JUSTEXT(aa[i,1]))="jpg"

recompress(cBasePath+aa[i,1])

retimestamp("d:\t.jpg",CTOT(DTOC(aa[i,3])+" "+aa[i,4]))

COPY FILE d:\t.jpg TO (cBasePath+aa[i,1])

ENDIF

ENDFOR

RETURN

PROCEDURE recompress(cPict as String)

LOCAL aa[1]

cOutfile="d:\t.jpg"

LOCAL oImage as gpImage OF (HOME()+"ffc\_gdiplus")

oImage=NEWOBJECT("gpImage",HOME()+"ffc\_gdiplus","",cpict)

oImage.SaveToFile(cOutfile,"image/jpeg","Quality=20")

ADIR(aa,cOutfile)

nSizeNew=aa[1,2]

ADIR(aa,cPict)

nSizeOrig=aa[1,2]

?cPict

??" Orig Size = ",TRANSFORM(nSizeOrig,"999,999,999")

??" New Size = ",TRANSFORM(nSizeNew,"999,999,999")

* ??" # bytes smaller = ", TRANSFORM(nSizeOrig - nSizeNew,"999,999,999")

??" # times smaller", TRANSFORM(nSizeOrig / nSizeNew)

??" % savings=", TRANSFORM(100*(nSizeOrig - nSizeNew)/nSizeOrig )

*! &cOutfile

RETURN

*From WINNT.H:

#define FILE_SHARE_READ 0x00000001

#define FILE_SHARE_WRITE 0x00000002

#define FILE_SHARE_DELETE 0x00000004

#define FILE_ATTRIBUTE_READONLY 0x00000001

#define FILE_ATTRIBUTE_HIDDEN 0x00000002

#define FILE_ATTRIBUTE_SYSTEM 0x00000004

#define FILE_ATTRIBUTE_DIRECTORY 0x00000010

#define FILE_ATTRIBUTE_ARCHIVE 0x00000020

#define FILE_ATTRIBUTE_DEVICE 0x00000040

#define FILE_ATTRIBUTE_NORMAL 0x00000080

#define FILE_ATTRIBUTE_TEMPORARY 0x00000100

#define FILE_ATTRIBUTE_SPARSE_FILE 0x00000200

#define FILE_ATTRIBUTE_REPARSE_POINT 0x00000400

#define FILE_ATTRIBUTE_COMPRESSED 0x00000800

#define FILE_ATTRIBUTE_OFFLINE 0x00001000

#define FILE_ATTRIBUTE_NOT_CONTENT_INDEXED 0x00002000

#define FILE_ATTRIBUTE_ENCRYPTED 0x00004000

#define FILE_WRITE_ATTRIBUTES 0x100

#define GENERIC_WRITE (0x40000000)

#define GENERIC_READ (0x80000000)

*From winbase.h:

#define CREATE_NEW 1

#define CREATE_ALWAYS 2

#define OPEN_EXISTING 3

#define OPEN_ALWAYS 4

#define TRUNCATE_EXISTING 5

PROCEDURE ReTimeStamp(cFilename as string, dt as Datetime)

DECLARE integer CreateFile in win32api string, integer dwDesiredAccess, integer dwShareMode, integer security, ;

integer dwCreationDisposition, integer FlagsAttrs, integer hTemplate

DECLARE INTEGER CloseHandle in win32api integer hFile

DECLARE integer SystemTimeToFileTime IN WIN32API string , string @

DECLARE INTEGER SetFileTime IN kernel32;

INTEGER hFile, STRING lpCreationTime,;

STRING lpLastAccessTime, STRING lpLastWriteTime

DECLARE INTEGER SystemTimeToFileTime IN kernel32;

STRING lpSystemTime, STRING @lpFileTime

DECLARE INTEGER LocalFileTimeToFileTime IN kernel32;

STRING lpLocalFileTime, STRING @lpFileTime

DECLARE integer GetLastError in win32api

cFileTime = SPACE(8)

cSysTime=BINTOC(YEAR(dt),"2rs") + ;

BINTOC(MONTH(dt),"2rs") + ;

BINTOC(DOW(dt,0),"2rs") + ;

BINTOC(DAY(dt),"2rs") + ;

BINTOC(HOUR(dt),"2rs") + ;

BINTOC(MINUTE(dt),"2rs") + ;

REPLICATE(CHR(0),4)

SystemTimeToFileTime(cSysTime, @cFileTime)

LocalFileTimeToFileTime(cFileTime, @cFileTime)

hFile = CreateFile(cFilename, GENERIC_WRITE+GENERIC_READ,FILE_SHARE_READ, 0, OPEN_EXISTING, 0,0)

SetFileTime(hFile , cFileTime, cFileTime,cFileTime)

CloseHandle(hFile)

RETURN

Uninstall VB6 causes error message: You do not have a license to use this control

Calvin_Hsia — Tue, 08 Jan 2008 00:35:00 GMT

I was running out of disk space on one of my machines, so I used my TreeMap program to see where I could delete files to save space.

I saw that I still had VB6 on the machine, and I didn’t need it on that machine any more, so I uninstalled it.

It's amazing how little disk space VB6 occupied, compared to VB.Net! I remember when FoxPro came on floppy disks, and Turbo Pascal came on a single (360k ?) floppy disk!

The next year (actually only several days later <g>), I tried running my trusty picture viewer which allows me to query and show my pictures and movies to show them or thumbnails. I received an error message: "You do not have a license to use this control".

I thought that it must have been the movie player ActiveX control that was giving me the problem.

I started Visual Studio and attached to the process, and found that the error occurred when MSCOMCTL.OCX was being loaded. That triggered a memory that I had removed VB6 a while ago. I think the MSCommon controls, such as the TreeView, ListView, Slider, etc originated from VB5, and Visual FoxPro and other products repackage them.

Upon further debugging, I found that it was actually the Slider control (which allows me to slide through almost 30,000 pictures/movies) that was giving the error.

thisform.AddObject("oSlider","cSlider")

WITH thisform.oSlider

.left=350

.width = 350

.visible=1

.min=1

.borderstyle=1

.largechange=1

ENDWITH

DEFINE CLASS cSlider as olecontrol

oleclass="mscomctllib.slider.2"

PROCEDURE keypress(p1)

thisform.keypress(p1)

PROCEDURE change

thisform.txtNum.value=this.value

thisform.txtNum.valid

ENDDEFINE

I just needed to find what registry keys needed to be added back, so the application would work again. I found this link, which worked perfectly:

You receive an error message "You do not have a license to use this control" when you use Visual Basic 6.0 controls in Visual Studio 2005 or in Visual Studio .NET

Use WPF and inline XAML in your Fox, Excel or VB6 applications

Calvin_Hsia — Wed, 12 Dec 2007 21:54:00 GMT

My prior post showed how to create XAML WPF and put it on your Winform App. We can go one step further: add XAML to a UserControl, which could then be made into an ActiveX control, which could be hosted by Fox, VB6, or Excel.

Start Visual Studio 2008 (as admin on Vista!!: (to register for COM interop, you need admin privileges))

Choose File->New Project->Visual Basic->Windows->Class Library. Call it WPFClass

From the Solution Explorer, delete Class1.vb, then right click on the WPFClass project (not the WPFClass solution), choose Add New Item, choose Windows Forms->User Control, call it WPFControl.vb

From Project->Properties->Application, make sure the Root Namespace is WPFClass and not ClassLibrary1. (If you don’t the ProgId for the control will be ClassLibrary1. WPFClass). Now the ProgId will be WPFClass. WPFControl

Also, choose Project->Properties->Compile->Register for COM Interop

You just created a control with a design surface.

Add references to

PresentationCore

PresentationFrameWork

WindowsBase

WindowsFormsIntegration

Choose View->Code. Paste in the Sample Code below, then hit F5. The UserControl is automatically instantiated and shown inside the UserControl TestContainer. The sample code is basically the same as the prior post, except that it is a UserControl and has another method called SetXAML, which allows a client to change the XAML on the fly of the instantiated control.

Change Project->Properties->Debug->Start Action->Start External Program and navigate to Excel.Exe or Visual Foxpro.(VFP9.EXE)

In Excel, (2003 or 2007) choose Developer->Visual Basic (2007) or Tools->Macros->VB Editor (2003). Same hotkey for both: Alt-F11. In the VB Editor, insert a User Form. Right click on the Toolbox-.Additional Controls. Check WPFClass.WPFControl. Drag it onto the form.

This Fox client code dynamically generates new XAML code for the control to use with inline XAML when you hit the button. It creates a listbox with the names of some pictures or movies. It has a single MediaElement which is databound to the ListBox. As you click on an item, it displays. Notice how we can use styles for the listbox by adding a Style resource to the Canvas that applies to all ListBoxItems for that Canvas.

Make sure you change the path to some pictures/movies

Try creating an error in your Fox XAML and you'll see a MessageBox showing the error.

PUBLIC ox

ox=CREATEOBJECT("myform")

ox.show

DEFINE CLASS myform AS form

left=100

allowoutput=.f.

width=900

height=700

ADD OBJECT btn as commandbutton WITH caption="Change XAML"

PROCEDURE Init

this.AddObject("ocWPF","OleControl","WPFClass.WPFControl")

this.ocWPF.visible=1

this.ocWPF.Top=20

this.ocWPF.width=thisform.Width-100

this.ocWPF.height=thisform.Height-100

PROCEDURE btn.Click

*Use Fox inline TEXT function to create new XAML content

TEXT TO xaml textmerge noshow

<Canvas Name="MyPanel"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Background="AliceBlue"

<Canvas.Resources>

<Style

TargetType="ListBoxItem">

<Style.Triggers>

</Trigger>

</Trigger>

</Style.Triggers>

</Style>

</Canvas.Resources>

<TextBlock.Text>

</TextBlock.Text>

</TextBlock>

<Grid.ColumnDefinitions>

</Grid.ColumnDefinitions>

<Grid.RowDefinitions>

</Grid.RowDefinitions>

ENDTEXT

SET TEXTMERGE ON TO memvar xaml ADDITIVE

cPath="e:\pictures\2007\12\02\" && Some path with pictures/movies

nFiles=ADIR(aaFiles,cPath+"*.*")

FOR i = 1 TO nFiles

IF LOWER(JUSTEXT(aaFiles[i,1]))$"jpg avi"

\<ListBoxItem Width="240"><TextBlock>

\<<cPath+TRANSFORM(aaFiles(i,1))>>

\</TextBlock>

\</ListBoxItem>

ENDIF

ENDFOR

SET TEXTMERGE to

TEXT TO xaml textmerge NOSHOW ADDITIVE

</ListBox>

<MediaElement.Source>

</MediaElement.Source>

</MediaElement>

</Grid>

</Canvas>

ENDTEXT

?xaml

thisform.ocWPF.SetXAML(xaml)

ENDDEFINE

</FoxClient Code>

Imports System.Windows.Forms.Integration

Imports System.Windows.Controls

Imports System.Windows.Media

Imports System.Windows.Input

Imports Microsoft.Win32

Imports System.Windows.Forms

Imports System.Runtime.InteropServices

' the Guids are gen'd from UUIDGEN.

<Microsoft.VisualBasic.ComClass("2c8298fa-f4d2-4c18-9a99-280d83ac3f03", "397d45fd-4621-4278-ab5a-8d28f9120dc1")> _

Public Class WPFControl

Sub New()

' This call is required by the Windows Form Designer.

InitializeComponent()

' Add any initialization after the InitializeComponent() call.

Me.Width = 800

Me.Height = 600

Me.BackColor = System.Drawing.Color.AliceBlue

Dim elemHost As New ElementHost

Me.Controls.Add(elemHost)

elemHost.Top = 30 ' move down a little bit

'see http://blogs.msdn.com/calvin_hsia/archive/2007/11/29/6600915.aspx

Dim xaml = _

<Canvas Name="MyPanel"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Background="LightGreen"

<TextBlock Name="MyTextBlock" Canvas.Top="10">WPF Embedded Hi there

<TextBlock.Triggers>

<DoubleAnimation

Storyboard.TargetName="MyTextBlock"

Storyboard.TargetProperty="(Opacity)"

From="1.0" To=".10" Duration="0:0:1" AutoReverse="True" RepeatBehavior="Forever"/>

</Storyboard>

</BeginStoryboard>

</EventTrigger>

</TextBlock.Triggers>

</TextBlock>

<Ellipse.Fill>

</Ellipse.Fill>

<Ellipse.Triggers>

<Storyboard

TargetProperty="(Ellipse.Width)">

<ColorAnimation

Storyboard.TargetName="ebrush"

Storyboard.TargetProperty="Color"

From="Red" To="Blue" Duration="0:0:3" AutoReverse="True" RepeatBehavior="Forever"/>

</Storyboard>

</BeginStoryboard>

</EventTrigger>

</Ellipse.Triggers>

</Ellipse>

</Canvas>

elemHost.Child = CType(System.Windows.Markup.XamlReader.Load(xaml.CreateReader), System.Windows.UIElement)

Dim MyCanvas = CType(elemHost.Child, Canvas)

elemHost.Height = 400

elemHost.Width = 600

Dim btn As New Windows.Forms.Button ' This is a WinForms button: not a wpf System.Windows.Controls.Button

btn.Visible = True

btn.Text = "Winform Btn to launch WPF form"

btn.AutoSize = True

btn.BackColor = System.Drawing.Color.Bisque

Dim WinFormHost = New WindowsFormsHost

WinFormHost.Child = btn

AddHandler btn.Click, AddressOf btn_Click

Canvas.SetTop(WinFormHost, 80)

MyCanvas.Children.Add(WinFormHost)

MyCanvas.RenderTransform = New ScaleTransform(1, 1)

AddHandler MyCanvas.MouseWheel, AddressOf MyCanvas_MouseWheel

End Sub

Public Sub SetXAML(ByVal xaml As String)

Try

Dim tr As New IO.StringReader(xaml)

Dim xml = XElement.Load(tr)

Dim x = System.Windows.Markup.XamlReader.Load(xml.CreateReader)

Dim elemHost = CType(Me.Controls(0), ElementHost)

elemHost.Child = x

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Sub btn_Click()

Dim oWPFForm = New WPFForm

oWPFForm.ShowDialog()

End Sub

Sub MyCanvas_MouseWheel(ByVal o As Canvas, ByVal e As MouseWheelEventArgs)

Dim tr = CType(o.RenderTransform, ScaleTransform)

If e.Delta > 0 Then

tr.ScaleX *= 1.1

tr.ScaleY *= 1.1

Else

tr.ScaleX /= 1.1

tr.ScaleY /= 1.1

End If

End Sub

<ComRegisterFunction()> _

Public Shared Sub Register(ByVal t As Type)

ComRegistration.RegisterControl(t)

End Sub

<ComUnregisterFunction()> _

Public Shared Sub Unregister(ByVal t As Type)

ComRegistration.UnregisterControl(t)

End Sub

Private Sub WPFControl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

MsgBox("AA")

End Sub

End Class

Class WPFForm : Inherits Windows.Window

Sub New()

Dim xaml = _

<StackPanel

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Orientation="Vertical"

<TextBlock>WPFForm Hi there</TextBlock>

</StackPanel>

Me.Content = System.Windows.Markup.XamlReader.Load(xaml.CreateReader)

End Sub

End Class

Friend Module ComRegistration

Public Sub RegisterControl(ByVal t As Type)

Try

GuardNullType(t, "t")

GuardTypeIsControl(t)

' CLSID

Dim key As String = "CLSID\" & t.GUID.ToString("B")

Using subkey As RegistryKey = Registry.ClassesRoot.OpenSubKey(key, True)

' Control

Using controlKey As RegistryKey = subkey.CreateSubKey("Control")

End Using

' Misc

Using miscKey As RegistryKey = subkey.CreateSubKey("MiscStatus")

miscKey.SetValue("", "131457", RegistryValueKind.String)

End Using

' TypeLib

Using typeLibKey As RegistryKey = subkey.CreateSubKey("TypeLib")

Dim libId As Guid = System.Runtime.InteropServices.Marshal.GetTypeLibGuidForAssembly(t.Assembly)

typeLibKey.SetValue("", libId.ToString("B"), RegistryValueKind.String)

End Using

' Version

Using versionKey As RegistryKey = subkey.CreateSubKey("Version")

Dim major, minor As Integer

System.Runtime.InteropServices.Marshal.GetTypeLibVersionForAssembly(t.Assembly, major, minor)

versionKey.SetValue("", String.Format("{0}.{1}", major, minor))

End Using

Catch ex As Exception

HandleException("ComRegisterFunction failed.", t, ex)

End Try

End Sub

Public Sub UnregisterControl(ByVal t As Type)

Try

GuardNullType(t, "t")

GuardTypeIsControl(t)

' CLSID

Dim key As String = "CLSID\" & t.GUID.ToString("B")

Registry.ClassesRoot.DeleteSubKeyTree(key)

Catch ex As Exception

HandleException("ComUnregisterFunction failed.", t, ex)

End Try

End Sub

Private Sub GuardNullType(ByVal t As Type, ByVal param As String)

If t Is Nothing Then

Throw New ArgumentException("The CLR type must be specified.", param)

End If

End Sub

Private Sub GuardTypeIsControl(ByVal t As Type)

If Not GetType(System.Windows.Forms.Control).IsAssignableFrom(t) Then

Throw New ArgumentException("Type argument must be a Windows Forms control.")

End If

End Sub

Private Sub HandleException(ByVal message As String, ByVal t As Type, ByVal ex As Exception)

Try

If t IsNot Nothing Then

message &= vbCrLf & String.Format("CLR class '{0}'", t.FullName)

End If

Throw New Exception(message, ex) ' replace with custom exception type

Catch ex2 As Exception

My.Application.Log.WriteException(ex2)

End Try

End Sub

End Module

</Sample Code>

Use LINQ to Foxpro or any SQL data and display it in a WPF form using DataSetExtensions and DataRowExtensions

Calvin_Hsia — Sat, 01 Dec 2007 00:10:00 GMT

In the last post Create your own media browser: Display your pictures, music, movies in a XAML tooltip, we created a query of your local media and displayed it.

Today, we'll make a query to my Foxpro picture database of 28,000 pictures/movies. We'll make the query result structure to be similar to the prior post, so the same code will show the picture or movie in a tooltip. The query is for "wheel", which includes pictures of cartwheels, Ferris Wheels, wheelbarrows.

We can use the System.Data.DataRowExtensions to access the DataTable filled by the OledbDataAdapter without using DLINQ

Change the query statement from the last post to the snippet below

Dim Query

If True Then ' if you want the prior sample, just change this to false

Dim dt As New DataTable

_rootFolder = "e:\Pictures"

Dim da = New OleDbDataAdapter( _

"Select fullname as FileName,Notes from mypix where 'wheel'$lower(notes)", _

"Provider=VFPOLEDB.1;Data Source=" + _rootFolder + "\mypix.dbf")

da.Fill(dt)

Query = From picrow In dt.AsEnumerable _

Select FileName = picrow.Field(Of String)("FileName"), _

Description = picrow.Field(Of String)("Notes") _

Select FileName, _

Description, _

Type = IO.Path.GetExtension(FileName).Substring(1), _

Size = (New IO.FileInfo(_rootFolder + IO.Path.DirectorySeparatorChar + FileName)).Length

Else

Query = From file In IO.Directory.GetFiles(_rootFolder, _

"*.*", IO.SearchOption.AllDirectories) _

Select file, Ext = IO.Path.GetExtension(file).ToLower _

Where Ext.Length > 0 AndAlso ".avi .jpg .mid .mpg .wma .wmv".Contains(Ext) _

Select FileName = file.Substring(_rootFolder.Length + 1), _

Type = Ext.Substring(1), _

Size = (New IO.FileInfo(file)).Length

End If

</Snippet>

For the full working sample:

Start Visual Studio 2008

Choose File->New Project->Visual Basic->WPF Application

Double click the form designer to bring up the Window1.xaml.vb file. Replace the contents with the code below.

Change the oledb provider connection string to your data

Hit F5 to run the program

Imports System.Windows.Controls.Primitives ' for Popup

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.DataTableExtensions

Partial Public Class Window1

Dim _rootFolder As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

Me.Width = 800 : Me.Height = 800

Dim Query

If True Then ' if you want the prior sample, just change this to false

Dim dt As New DataTable

_rootFolder = "e:\Pictures"

Dim da = New OleDbDataAdapter( _

"Select fullname as FileName,Notes from mypix where 'wheel'$lower(notes)", _

"Provider=VFPOLEDB.1;Data Source=" + _rootFolder + "\mypix.dbf")

da.Fill(dt)

Query = From picrow In dt.AsEnumerable _

Select FileName = picrow.Field(Of String)("FileName"), _

Description = picrow.Field(Of String)("Notes") _

Select FileName, _

Description, _

Type = IO.Path.GetExtension(FileName).Substring(1), _

Size = (New IO.FileInfo(_rootFolder + IO.Path.DirectorySeparatorChar + FileName)).Length

Else

Query = From file In IO.Directory.GetFiles(_rootFolder, _

"*.*", IO.SearchOption.AllDirectories) _

Select file, Ext = IO.Path.GetExtension(file).ToLower _

Where Ext.Length > 0 AndAlso ".avi .jpg .mid .mpg .wma .wmv".Contains(Ext) _

Select FileName = file.Substring(_rootFolder.Length + 1), _

Type = Ext.Substring(1), _

Size = (New IO.FileInfo(file)).Length

End If

Me.Content = New BrowseWithMedia(Query, Me)

Me.Title = _rootFolder + " #Items = " + _

CType(Me.Content, BrowseWithMedia).Items.Count.ToString

End Sub

Private Sub Window1_Deactivated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivated

Dim pop = CType(Me.Content, BrowseWithMedia)._lvPopUp ' no popup if user changes active window (Alt-Tab)

If Not pop Is Nothing AndAlso pop.IsOpen Then

pop.IsOpen = False

End If

End Sub

Private Class BrowseWithMedia : Inherits Browse

Dim _Parent As Window1 ' reference to container

Friend _lvPopUp As Popup ' popup window to show tip with movie

Dim WithEvents _lvTimer As New System.Windows.Threading.DispatcherTimer ' timer: after delay, show tip

Sub New(ByVal Query As Object, Optional ByVal Parent As Object = Nothing)

MyBase.new(Query, Parent)

_Parent = Parent

End Sub

Sub HandleWheel(ByVal sp As StackPanel, ByVal e As System.Windows.Input.MouseWheelEventArgs) 'Handles Me.MouseWheel

Dim transform = CType(sp.RenderTransform, ScaleTransform)

Dim melem As MediaElement = sp.Children(1)

If e.Delta > 0 Then

melem.Height *= 1.1

melem.Width *= 1.1

'transform.ScaleX *= 1.1 ' to scale tip text too

'transform.ScaleY *= 1.1

Else

'transform.ScaleX /= 1.1

'transform.ScaleY /= 1.1

melem.Height /= 1.1

melem.Width /= 1.1

End If

End Sub

Dim _mdownPt As Point

Sub HandleClick(ByVal sp As StackPanel, ByVal e As MouseButtonEventArgs)

If sp.IsMouseCaptured Then

sp.ReleaseMouseCapture()

End If

If e.LeftButton = MouseButtonState.Pressed Then

_mdownPt = Mouse.GetPosition(sp) ' record mouse pos relative to sp

sp.CaptureMouse()

End If

End Sub

Sub HandleMouseMove(ByVal sp As StackPanel, ByVal e As MouseEventArgs)

If Mouse.LeftButton = MouseButtonState.Pressed Then

If sp.CaptureMouse Then

Dim curpt As Point = sp.PointToScreen(Mouse.GetPosition(sp))

_lvPopUp.HorizontalOffset = curpt.X - _mdownPt.X ' subtract mouse pos rel to sp

_lvPopUp.VerticalOffset = curpt.Y - _mdownPt.Y

_lvPopUp.Placement = PlacementMode.Absolute ' PlacementMode.Mouse

End If

End Sub

Sub HandlePopupTimerTick() Handles _lvTimer.Tick ' show the popup

_lvTimer.IsEnabled = False ' enabled in HandleRowSelected

Dim lbi As ListBoxItem = Me.ItemContainerGenerator.ContainerFromIndex(Me.SelectedIndex)

If Not lbi Is Nothing Then

Dim sp As New StackPanel

Dim cSrcFile = _Parent._rootFolder + IO.Path.DirectorySeparatorChar + lbi.Content.FileName.ToString

Dim XAMLPopup = _

<Popup

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Placement="Right"

IsOpen="False"

<StackPanel.RenderTransform>

</StackPanel.RenderTransform>

<%= cSrcFile + " " + CType(lbi.Content.size / 1024, Int32).ToString("n0") + "K" %>

</TextBlock>

<MediaElement

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Name="MyVid" Height="250">

<MediaElement.Triggers>

<EventTrigger.Actions>

Storyboard.TargetName="MyVid"

RepeatBehavior="Forever"/>

</Storyboard>

</BeginStoryboard>

</EventTrigger.Actions>

</EventTrigger>

</MediaElement.Triggers>

</MediaElement>

</StackPanel>

</Popup>

_lvPopUp = System.Windows.Markup.XamlReader.Load(XAMLPopup.CreateReader)

_lvPopUp.PlacementTarget = lbi

_lvPopUp.IsOpen = True

Dim stackpanel As StackPanel = _lvPopUp.Child ' only child is the stackpanel

AddHandler stackpanel.MouseWheel, AddressOf HandleWheel ' mouse wheel will zoom in/out

AddHandler stackpanel.MouseDown, AddressOf HandleClick ' mouse click/drag will move picture/movie

AddHandler stackpanel.MouseUp, AddressOf HandleClick

AddHandler stackpanel.MouseMove, AddressOf HandleMouseMove

End If

End Sub

Sub HandleRowSelected(ByVal sender As Object, ByVal e As RoutedEventArgs) Handles Me.SelectionChanged

Dim lb = CType(sender, ListBox)

If Not lb Is Nothing AndAlso (lb.SelectedIndex >= 0) Then

Dim lbi As ListBoxItem = lb.ItemContainerGenerator.ContainerFromIndex(lb.SelectedIndex)

If Not _lvPopUp Is Nothing AndAlso _lvPopUp.IsOpen Then

_lvPopUp.IsOpen = False

End If

_lvTimer.Stop() ' stop prior timer, if any

_lvTimer.Interval = TimeSpan.FromMilliseconds(500)

_lvTimer.Start()

End If

End Sub

End Class

Class Browse

Inherits ListView

Sub New(ByVal Query As Object, Optional ByVal Parent As Object = Nothing)

Dim gv As New GridView

Me.View = gv

Me.ItemsSource = Query

If Not Parent Is Nothing Then

If Parent.GetType.BaseType Is GetType(Window) Then

CType(Parent, Window).Title = "# items = " + Me.Items.Count.ToString

End If

Me.AddHandler(GridViewColumnHeader.ClickEvent, New RoutedEventHandler(AddressOf HandleHeaderClick))

For Each mem In From mbr In _

Query.GetType().GetInterface(GetType(IEnumerable(Of )).FullName) _

.GetGenericArguments()(0).GetMembers _

Where mbr.MemberType = Reflection.MemberTypes.Property

Dim coltype = CType(mem, Reflection.PropertyInfo).PropertyType.Name

Select Case coltype

Case "Int32", "String", "Int64"

Dim gvc As New GridViewColumn

gvc.Header = mem.Name

gv.Columns.Add(gvc)

If coltype <> "String" Then

gvc.Width = 80

Dim XAMLdt = _

<DataTemplate

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

<TextBlock Name="tb"

Text=<%= "{Binding Path=" + mem.Name + "}" %>

Foreground="Black"

FontWeight="Bold"

Background="SpringGreen">

</TextBlock>

</StackPanel>

</DataTemplate>

gvc.CellTemplate = System.Windows.Markup.XamlReader.Load(XAMLdt.CreateReader)

Else

gvc.DisplayMemberBinding = New Binding(mem.Name)

gvc.Width = 180

End If

End Select

Dim XAMLlbStyle = _

<Style

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

TargetType="ListBoxItem">

<Style.Triggers>

</Trigger>

</Trigger>

</Style.Triggers>

</Style>

Me.ItemContainerStyle = Windows.Markup.XamlReader.Load(XAMLlbStyle.CreateReader)

End Sub

Dim _Lastdir As System.ComponentModel.ListSortDirection = ComponentModel.ListSortDirection.Ascending

Dim _LastHeaderClicked As GridViewColumnHeader = Nothing

Sub HandleHeaderClick(ByVal sender As Object, ByVal e As RoutedEventArgs)

If e.OriginalSource.GetType Is GetType(GridViewColumnHeader) Then

Dim gvh = CType(e.OriginalSource, GridViewColumnHeader)

Dim dir As System.ComponentModel.ListSortDirection = ComponentModel.ListSortDirection.Ascending

If Not gvh Is Nothing AndAlso Not gvh.Column Is Nothing Then

Dim hdr = gvh.Column.Header

If gvh Is _LastHeaderClicked Then

If _Lastdir = ComponentModel.ListSortDirection.Ascending Then

dir = ComponentModel.ListSortDirection.Descending

End If

Sort(hdr, dir)

_LastHeaderClicked = gvh

_Lastdir = dir

End If

End Sub

Sub Sort(ByVal sortby As String, ByVal dir As System.ComponentModel.ListSortDirection)

Me.Items.SortDescriptions.Clear()

Dim sd = New System.ComponentModel.SortDescription(sortby, dir)

Me.Items.SortDescriptions.Add(sd)

Me.Items.Refresh()

End Sub

End Class

</Sample Code>

Create your own media browser: Display your pictures, music, movies in a XAML tooltip

Calvin_Hsia — Thu, 29 Nov 2007 21:46:00 GMT

In my prior post, I showed how to use XAML and XAMLReader to create inline XAML to display the results of a query.

Today, let's take it a step further: let's create a query of all the media (pictures, movies, music) in your "My Documents" folder and display the names and sizes in a ListView. As you navigate the list, a tooltip appears showing the media.

You can click on the tip and move it around the screen, or you can mousewheel to zoom in and out.

The code illustrates how to use inline XAML to create hierarchies of UI Elements and get references to those objects to add event handlers. It also shows how to create a databinding DataTemplate and Style with inline XAML.

To get your Foxpro database pictures into this code, see Various ways to display multiple photographs

Start Visual Studio 2008

Choose File->New Project->Visual Basic->WPF Application

You can use the WPF Forms designer, or you can write your code in a program.

Double click the form designer to bring up the Window1.xaml.vb file. Replace the contents with the code below.

Hit F5 to run the program

The query scans your "My Documents" folder for various file types. You can change those types in the query.

Imports System.Windows.Controls.Primitives ' for Popup

Partial Public Class Window1

Dim _rootFolder As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded

Me.Width = 800 : Me.Height = 800

Dim Query = From file In IO.Directory.GetFiles(_rootFolder, _

"*.*", IO.SearchOption.AllDirectories) _

Select file, Ext = IO.Path.GetExtension(file).ToLower _

Where Ext.Length > 0 AndAlso ".avi .jpg .mid .mpg .wma .wmv".Contains(Ext) _

Select FileName = file.Substring(_rootFolder.Length + 1), _

Type = Ext.Substring(1), _

Size = (New IO.FileInfo(file)).Length

Me.Content = New BrowseWithMedia(Query, Me)

Me.Title = _rootFolder + " #Items = " + _

CType(Me.Content, BrowseWithMedia).Items.Count.ToString

End Sub

Private Sub Window1_Deactivated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivated

Dim pop = CType(Me.Content, BrowseWithMedia)._lvPopUp ' no popup if user changes active window (Alt-Tab)

If Not pop Is Nothing AndAlso pop.IsOpen Then

pop.IsOpen = False

End If

End Sub

Private Class BrowseWithMedia : Inherits Browse

Dim _Parent As Window1 ' reference to container

Friend _lvPopUp As Popup ' popup window to show tip with movie

Dim WithEvents _lvTimer As New System.Windows.Threading.DispatcherTimer ' timer: after delay, show tip

Sub New(ByVal Query As Object, Optional ByVal Parent As Object = Nothing)

MyBase.new(Query, Parent)

_Parent = Parent

End Sub

Sub HandleWheel(ByVal sp As StackPanel, ByVal e As System.Windows.Input.MouseWheelEventArgs) 'Handles Me.MouseWheel

Dim transform = CType(sp.RenderTransform, ScaleTransform)

Dim melem As MediaElement = sp.Children(1)

If e.Delta > 0 Then

melem.Height *= 1.1

melem.Width *= 1.1

'transform.ScaleX *= 1.1 ' to scale tip text too

'transform.ScaleY *= 1.1

Else

'transform.ScaleX /= 1.1

'transform.ScaleY /= 1.1

melem.Height /= 1.1

melem.Width /= 1.1

End If

End Sub

Dim _mdownPt As Point

Sub HandleClick(ByVal sp As StackPanel, ByVal e As MouseButtonEventArgs)

If sp.IsMouseCaptured Then

sp.ReleaseMouseCapture()

End If

If e.LeftButton = MouseButtonState.Pressed Then

_mdownPt = Mouse.GetPosition(sp) ' record mouse pos relative to sp

sp.CaptureMouse()

End If

End Sub

Sub HandleMouseMove(ByVal sp As StackPanel, ByVal e As MouseEventArgs)

If Mouse.LeftButton = MouseButtonState.Pressed Then

If sp.CaptureMouse Then

Dim curpt As Point = sp.PointToScreen(Mouse.GetPosition(sp))

_lvPopUp.HorizontalOffset = curpt.X - _mdownPt.X ' subtract mouse pos rel to sp

_lvPopUp.VerticalOffset = curpt.Y - _mdownPt.Y

_lvPopUp.Placement = PlacementMode.Absolute ' PlacementMode.Mouse

End If

End Sub

Sub HandlePopupTimerTick() Handles _lvTimer.Tick ' show the popup

_lvTimer.IsEnabled = False ' enabled in HandleRowSelected

Dim lbi As ListBoxItem = Me.ItemContainerGenerator.ContainerFromIndex(Me.SelectedIndex)

If Not lbi Is Nothing Then

Dim sp As New StackPanel

Dim cSrcFile = _Parent._rootFolder + IO.Path.DirectorySeparatorChar + lbi.Content.FileName.ToString

Dim XAMLPopup = _

<Popup

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Placement="Right"

IsOpen="False"

<StackPanel.RenderTransform>

</StackPanel.RenderTransform>

<%= cSrcFile + " " + CType(lbi.Content.size / 1024, Int32).ToString("n0") + "K" %>

</TextBlock>

<MediaElement

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Name="MyVid" Height="250">

<MediaElement.Triggers>

<EventTrigger.Actions>

Storyboard.TargetName="MyVid"

RepeatBehavior="Forever"/>

</Storyboard>

</BeginStoryboard>

</EventTrigger.Actions>

</EventTrigger>

</MediaElement.Triggers>

</MediaElement>

</StackPanel>

</Popup>

_lvPopUp = System.Windows.Markup.XamlReader.Load(XAMLPopup.CreateReader)

_lvPopUp.PlacementTarget = lbi

_lvPopUp.IsOpen = True

Dim stackpanel As StackPanel = _lvPopUp.Child ' only child is the stackpanel

AddHandler stackpanel.MouseWheel, AddressOf HandleWheel ' mouse wheel will zoom in/out

AddHandler stackpanel.MouseDown, AddressOf HandleClick ' mouse click/drag will move picture/movie

AddHandler stackpanel.MouseUp, AddressOf HandleClick

AddHandler stackpanel.MouseMove, AddressOf HandleMouseMove

End If

End Sub

Sub HandleRowSelected(ByVal sender As Object, ByVal e As RoutedEventArgs) Handles Me.SelectionChanged

Dim lb = CType(sender, ListBox)

If Not lb Is Nothing AndAlso (lb.SelectedIndex >= 0) Then

Dim lbi As ListBoxItem = lb.ItemContainerGenerator.ContainerFromIndex(lb.SelectedIndex)

If Not _lvPopUp Is Nothing AndAlso _lvPopUp.IsOpen Then

_lvPopUp.IsOpen = False

End If

_lvTimer.Stop() ' stop prior timer, if any

_lvTimer.Interval = TimeSpan.FromMilliseconds(500)

_lvTimer.Start()

End If

End Sub

End Class

Class Browse

Inherits ListView

Sub New(ByVal Query As Object, Optional ByVal Parent As Object = Nothing)

Dim gv As New GridView

Me.View = gv

Me.ItemsSource = Query

If Not Parent Is Nothing Then

If Parent.GetType.BaseType Is GetType(Window) Then

CType(Parent, Window).Title = "# items = " + Me.Items.Count.ToString

End If

Me.AddHandler(GridViewColumnHeader.ClickEvent, New RoutedEventHandler(AddressOf HandleHeaderClick))

For Each mem In From mbr In _

Query.GetType().GetInterface(GetType(IEnumerable(Of )).FullName) _

.GetGenericArguments()(0).GetMembers _

Where mbr.MemberType = Reflection.MemberTypes.Property

Dim coltype = CType(mem, Reflection.PropertyInfo).PropertyType.Name

Select Case coltype

Case "Int32", "String", "Int64"

Dim gvc As New GridViewColumn

gvc.Header = mem.Name

gv.Columns.Add(gvc)

If coltype <> "String" Then

gvc.Width = 80

Dim XAMLdt = _

<DataTemplate

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

<TextBlock Name="tb"

Text=<%= "{Binding Path=" + mem.Name + "}" %>

Foreground="Black"

FontWeight="Bold"

Background="SpringGreen">

</TextBlock>

</StackPanel>

</DataTemplate>

gvc.CellTemplate = System.Windows.Markup.XamlReader.Load(XAMLdt.CreateReader)

Else

gvc.DisplayMemberBinding = New Binding(mem.Name)

gvc.Width = 180

End If

End Select

Dim XAMLlbStyle = _

<Style

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

TargetType="ListBoxItem">

<Style.Triggers>

</Trigger>

</Trigger>

</Style.Triggers>

</Style>

Me.ItemContainerStyle = Windows.Markup.XamlReader.Load(XAMLlbStyle.CreateReader)

End Sub

Dim _Lastdir As System.ComponentModel.ListSortDirection = ComponentModel.ListSortDirection.Ascending

Dim _LastHeaderClicked As GridViewColumnHeader = Nothing

Sub HandleHeaderClick(ByVal sender As Object, ByVal e As RoutedEventArgs)

If e.OriginalSource.GetType Is GetType(GridViewColumnHeader) Then

Dim gvh = CType(e.OriginalSource, GridViewColumnHeader)

Dim dir As System.ComponentModel.ListSortDirection = ComponentModel.ListSortDirection.Ascending

If Not gvh Is Nothing AndAlso Not gvh.Column Is Nothing Then

Dim hdr = gvh.Column.Header

If gvh Is _LastHeaderClicked Then

If _Lastdir = ComponentModel.ListSortDirection.Ascending Then

dir = ComponentModel.ListSortDirection.Descending

End If

Sort(hdr, dir)

_LastHeaderClicked = gvh

_Lastdir = dir

End If

End Sub

Sub Sort(ByVal sortby As String, ByVal dir As System.ComponentModel.ListSortDirection)

Me.Items.SortDescriptions.Clear()

Dim sd = New System.ComponentModel.SortDescription(sortby, dir)

Me.Items.SortDescriptions.Add(sd)

Me.Items.Refresh()

End Sub

End Class

</Sample Code>

Resize your pictures for your phone or pocket pc

Calvin_Hsia — Fri, 12 Oct 2007 08:55:00 GMT

I have many digital pictures, and I'd like to put some of my favorites on my SmartPhone. However the files are much higher resolution than the device's display. This means the files take a lot more memory on the phone, and they take longer to process. I wrote some code to resize the images automatically. The code below shows a form with a resized picture on it, and you can vary the Quality of the JPG saved image by moving a TrackBar control. The form's caption shows the Quality selected, and the resulting file size. It's amazing how small you can make the file without losing too much quality.

Start Visual Studio (2005 or 2008), choose File->New->Project->Windows->Windows Forms Application. Choose View->Code and paste in the VB code below. Run it and give it a digital picture to play with.

The code creates oBitmap as an Image object, representing the original image. oBmpOut is an Image object, with the desired target size. A Graphics object is created from oBmpOut and oBitmap is drawn onto that Graphics object. Then the JPG Image encoder is found, and the JPG is saved with the specified Quality.

Below is sample code in both VB.Net and Fox that shows a particular JPG resampled to 320 x 240 resolution, with a TrackBar that allows you to change the JPG quality.

Various ways to display multiple photographs

Start of Fox code

PUBLIC ox as JpgForm

ox=CREATEOBJECT("JpgForm")

ox.visible=1

DEFINE CLASS JpgForm as Form

width=640

height=480

left=200

allowoutput=.f.

ADD OBJECT oPict as image WITH top = 20,width=320,height=240,stretch=2

ADD OBJECT oTrackbar as cTrackbar WITH width=300,smallchange=2

PROCEDURE init

SET CLASSLIB TO HOME()+"ffc\_gdiplus"

SET COMPATIBLE on && so FSIZE returns FileSize

this.refresh

PROCEDURE refresh

this.drawit()

PROCEDURE drawit

cFile="d:\kids.jpg"

cOutputFile="d:\thumb.jpg"

LOCAL oGraphics as gpGraphics OF _gdiplus.vcx

LOCAL oImage as gpImage OF _gdiplus.vcx

LOCAL oBmpOut as gpBitmap OF _gdiplus.vcx

oGraphics=CREATEOBJECT("gpGraphics")

oImage=CREATEOBJECT("gpImage",cFile)

oBmpOut=CREATEOBJECT("gpBitmap",this.oPict.width,this.oPict.height)

oGraphics.CreateFromImage(oBmpOut)

oGraphics.DrawImageScaled(oImage,0,0,oBmpOut.ImageWidth,oBmpOut.ImageHeight)

oBmpOut.SaveToFile(cOutputFile,"image/jpeg","quality="+TRANSFORM(this.oTrackbar.value))

this.oPict.picture=cOutputFile

this.Caption = TRANSFORM(this.oTrackbar.value)+" Size="+TRANSFORM(FSIZE(cOutputFile))

ENDDEFINE

DEFINE CLASS cTrackbar as olecontrol

oleclass="mscomctllib.slider.2"

PROCEDURE init

this.max=100

this.smallchange=2

this.largechange=10

PROCEDURE change

thisform.drawit

ENDDEFINE

End of Fox code

Start of VB code:

Public Class Form1

Dim oPict As New PictureBox

Dim WithEvents oTrackBar As New TrackBar

Dim cFile As String = "d:\kids.jpg"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Width = 640

Me.Height = 480

oPict.Top = 30

oPict.Width = 640

oPict.Height = 480

oPict.Visible = 1

Dim OFD As New OpenFileDialog

OFD.FileName = cFile

If OFD.ShowDialog <> Windows.Forms.DialogResult.OK Then

End

End If

cFile = OFD.FileName

Me.Controls.Add(oPict)

oTrackBar.Width = 300

oTrackBar.Height = 20

oTrackBar.Visible = 1

oTrackBar.Minimum = 0

oTrackBar.Maximum = 100

oTrackBar.SmallChange = 5

oTrackBar.Value = 50

Me.Controls.Add(oTrackBar)

End Sub

Sub TrackBar_Change(ByVal sender As Object, ByVal e As System.EventArgs) Handles oTrackBar.ValueChanged

CalcPict()

End Sub

Sub CalcPict()

Dim oBitmap As Bitmap = New Bitmap(cFile)

Dim oBmpOut As Bitmap = New Bitmap(Me.oPict.Width, Me.oPict.Height)

Dim oG As Graphics = Graphics.FromImage(oBmpOut)

oG.DrawImage(oBitmap, 0, 0, oBmpOut.Width, oBmpOut.Height)

Dim encParam As New Imaging.EncoderParameters(1)

encParam.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.Quality, oTrackBar.Value)

Dim codecs As Imaging.ImageCodecInfo() = Imaging.ImageCodecInfo.GetImageEncoders

Dim JpgCodec As Imaging.ImageCodecInfo = Nothing

For Each codec As Imaging.ImageCodecInfo In codecs

If codec.MimeType = "image/jpeg" Then

JpgCodec = codec

Exit For

End If

Dim istream As New IO.MemoryStream

oBmpOut.Save(istream, JpgCodec, encParam)

oPict.Image = New Bitmap(istream)

Me.Text = oTrackBar.Value.ToString + " Size=" + istream.Length.ToString

End Sub

End Class

End of VB code:

How to generate dynamic images for your web application

Calvin_Hsia — Tue, 11 Sep 2007 21:16:00 GMT

Typically, a web site might show some pictures. These could be pictures of items for sale from a catalog, personal photos, etc. Usually, the web author places these pictures as files in a directory on the web server, and just puts links to them in the authored web pages.

This scheme doesn’t easily allow dynamic pictures.

Perhaps the author would like to generate the pictures on the fly, when the web page is being rendered in the remote browser
Perhaps the picture is in a database, rather than a file on disk
Perhaps the author would like to write some text on the picture, such as a copyright notice.
Perhaps dynamically created thumbnails or other sizes are desired (my picture application generates different sized images rotated 90 degrees for my SmartPhone, which has higher vertical than horizontal resolution)
It’s a way that you can rotate text, use various fonts, sizes, colors.

We can generate images dynamically to solve these problems.

This sample works in Visual Studio 2005 and Visual Studio 2008: It creates 2 images controls, each with an ImageUrl property specifying to call the default.aspx page with a parameter.

I’ve been using this technique of calling the same page with parameters in ASP for years.

If the parameter is passed:

an empty bitmap object is created
a graphics object from that image is created
some text is drawn and rotated
the image is saved to a memory stream
the stream is then written back to the browser.

The sample includes code to conditionally choose static images or retrieve images from a table.

This technique can easily be applied to an asp:GridView control to show dynamically generated images in a column of a databound grid.

(For more on the thumbnail table: Create thumbnails of all your digital photos in a single table)

Start Visual Studio

File->New->Web Site.

In the Default.aspx put this text: (or just drag 2 image controls onto the design surface, and set the ImageUrl property)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<title>Untitled Page</title>

</head>

<body>

<div>

this is a test<br />

<asp:Image ID="Image1" ImageUrl="~/Default.aspx?Imageid=one" runat="server" />

<asp:Image ID="Image2" ImageUrl="~/Default.aspx?Imageid=another" runat="server" /></div>

</form>

</body>

</html>

In the Default.aspx.vb file (choose View->Code), paste this:

Imports System.Drawing

Partial Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim ImageId As String = Request.QueryString("ImageId") ' see if the image is being requested

If Not ImageId Is Nothing Then

Dim MyImage As New Bitmap(250, 400) ' create a new blank bitmap

Dim MyGraphics As Graphics = Graphics.FromImage(MyImage) ' create a Graphics object from the image

MyGraphics.FillRectangle(Brushes.AliceBlue, MyImage.GetBounds(GraphicsUnit.Pixel)) ' back color

MyGraphics.RotateTransform(45) ' rotate the contents

MyGraphics.DrawString(" Test string " + ImageId, New Font("arial", 10, FontStyle.Bold), Brushes.Coral, 0, 0)

Dim mStream As New IO.MemoryStream ' create a place to write the jpg

MyImage.Save(mStream, Imaging.ImageFormat.Jpeg)

Dim Bytes() As Byte = New Byte(mStream.Length - 1) {} ' Byte array to store the jpg

mStream.Seek(0, IO.SeekOrigin.Begin)

mStream.Read(Bytes, 0, mStream.Length - 1)

Response.BinaryWrite(Bytes) ' write the jpg back to the browser

Return

' alternatively, something like this can be used

If ImageId.Length Mod 2 = 1 Then

Response.BinaryWrite(System.IO.File.ReadAllBytes(Me.MapPath("~/images/balloon.bmp")))

Else

Response.BinaryWrite(System.IO.File.ReadAllBytes(Me.MapPath("~/images/beany.bmp")))

End If

Return

' or from a Visual Foxpro database:

Dim oda As New Data.OleDb.OleDbDataAdapter( _

"select * from pixthumb where recno()=" + _

ImageId.Length.ToString, _

"provider=vfpoledb.1;data source=d:\pictures\pixthumb.dbf")

Dim dt As New Data.DataTable

oda.Fill(dt)

Dim thumb = dt.Rows(0).Item(1)

Response.BinaryWrite(thumb)

End If

End Sub

End Class

End of code

Now hit F5 to run the code