Add-Type @"

"@ -ReferencedAssemblies 'System.Windows.Forms.dll','System.Drawing.dll','System.Data.dll','System.Xml.dll'

Add-Type -TypeDefinition @"

"@ -ReferencedAssemblies 'System.Windows.Forms.dll'

function DrawGraph {

param(

[string]$title,

[System.Management.Automation.PSReference]$data_ref,

[object]$caller

)

@( 'System.Drawing','System.Windows.Forms') | ForEach-Object { [void][System.Reflection.Assembly]::LoadWithPartialName($_) }

$f = New-Object System.Windows.Forms.Form

$f.Text = $title

# http://www.vistax64.com/powershell/179830-stupid-array-tricks-initializing-array-certain-size.html

$f.Size = New-Object System.Drawing.Size (470,385)

$f.AutoScaleMode = [System.Windows.Forms.AutoScaleMode]::Font

$f.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedToolWindow

$f.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen

$f.SuspendLayout()

$o = New-Object -TypeName 'System.Anoop.Graph.DrawGraph' -ArgumentList @( [string[]]$data_ref.Value.Keys,

[float[]]$data_ref.Value.Values,

$null,

$null,

'Arial',

(($data_ref.Value.Keys).Count + 1)

)

[System.Windows.Forms.PictureBox]$b = New-Object -TypeName 'System.Windows.Forms.PictureBox'

$b.Location = New-Object System.Drawing.Point (40,20)

$b.Name = 'p5'

$b.Size = New-Object System.Drawing.Size (($f.Size.Width - 20),($f.Size.Height - 100))

$b.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::AutoSize

$b.TabIndex = 1

$b.TabStop = $false

$m = New-Object -TypeName 'System.Windows.Forms.MenuStrip'

$file_m1 = New-Object -TypeName 'System.Windows.Forms.ToolStripMenuItem'

$shape_m1 = New-Object -TypeName 'System.Windows.Forms.ToolStripMenuItem'

$shape_m2 = New-Object -TypeName 'System.Windows.Forms.ToolStripMenuItem'

$shape_m3 = New-Object -TypeName 'System.Windows.Forms.ToolStripMenuItem'

$exit_m1 = New-Object -TypeName 'System.Windows.Forms.ToolStripMenuItem'

$m.SuspendLayout()

# m0

$m.Items.AddRange(@( $file_m1,$exit_m1))

$m.Location = New-Object System.Drawing.Point (0,0)

$m.Name = "m0"

$m.Size = New-Object System.Drawing.Size (($f.Size.Width),24)

$m.TabIndex = 0

$m.Text = "m0"

# ShapeToolStripMenuItem

$shape_m1.Name = "LineGraphToolStripMenuItem"

$shape_m1.Text = "Line Graph"

$eventMethod_shape_m1 = $shape_m1.add_click

$eventMethod_shape_m1.Invoke({

param(

[object]$sender,

[System.EventArgs]$eventargs

)

$who = $sender.Text

# [System.Windows.Forms.MessageBox]::Show(("We are processing {0}." -f $who))

$b.Image = $o.DrawLineGraph()

$caller.Data = $sender.Text

})

$shape_m2.Name = "BarGraphToolStripMenuItem"

$shape_m2.Text = "Bar Graph"

$eventMethod_shape_m2 = $shape_m2.add_click

$eventMethod_shape_m2.Invoke({

param(

[object]$sender,

[System.EventArgs]$eventargs

)

$who = $sender.Text

# [System.Windows.Forms.MessageBox]::Show(("We are processing {0}." -f $who))

$b.Image = $o.DrawBarGraph()

$caller.Data = $sender.Text

})

$shape_m3.Name = "3dPieChartToolStripMenuItem"

$shape_m3.Text = "3d Pie Chart"

$eventMethod_shape_m3 = $shape_m3.add_click

$eventMethod_shape_m3.Invoke({

param(

[object]$sender,

[System.EventArgs]$eventargs

)

$who = $sender.Text

# [System.Windows.Forms.MessageBox]::Show(("We are processing {0}." -f $who))

$b.Image = $o.Draw3DPieGraph()

$caller.Data = $sender.Text

})

# Separator

$dash = New-Object -TypeName System.Windows.Forms.ToolStripSeparator

# exitToolStripMenuItem

$exit_m1.Name = "exitToolStripMenuItem"

$exit_m1.Text = "Exit"

$eventMethod_exit_m1 = $exit_m1.add_click

$eventMethod_exit_m1.Invoke({

param(

[object]$sender,

[System.EventArgs]$eventargs

)

$who = $sender.Text

# [System.Windows.Forms.MessageBox]::Show(("We are processing {0}." -f $who))

$caller.Data = $sender.Text

$f.Close()

})

# fileToolStripMenuItem1

$file_m1.DropDownItems.AddRange(@( $shape_m1,$shape_m2,$dash,$shape_m3))

$file_m1.Name = "DrawToolStripMenuItem1"

$file_m1.Text = "Draw"

$m.ResumeLayout($false)

# MenuTest

$f.AutoScaleDimensions = New-Object System.Drawing.SizeF (1,1)

$f.Controls.AddRange(@( $m,$b))

$f.Topmost = $True

$f.Add_Shown({ $f.Activate() })

[void]$f.ShowDialog([win32window]($caller))

$f.Dispose()

}

$caller = New-Object Win32Window -ArgumentList ([System.Diagnostics.Process]::GetCurrentProcess().MainWindowHandle)

$data = @{

"China" = 1367220000;

"India" = 1264210000;

"United States" = 319294000;

"Indonesia" = 255461700;

"Brazil" = 203615000;

"Pakistan" = 188465000;

"Nigeria" = 183523432;

"Bangladesh" = 157519000;

"Russia" = 146300000;

"Japan" = 127080000;

"Mexico" = 121005815;

"Philippines" = 100727100;

"Vietnam" = 90493352;

"Ethiopia" = 90076012;

"Egypt" = 87701800;

"Germany" = 80783000;

"Iran" = 77981200;

"Turkey" = 76667864;

"Democratic Republic of Congo" = 71246355;

"Thailand" = 64871000;

"United Kingdom" = 64105654;

"Italy" = 60769102;

}

Write-Debug "Plotting:"

[void](DrawGraph -Title $title -caller $caller -data_ref ([ref]$data))