木になる木

日々木になることを木にするのじゃ

Powershell TabPage WebBrowser

2010-02-16 00:20:48 | パソコン
Powershell で作る超適当タブブラウザ(^^)

---------------------------------------------------------------------------------
[VOID][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$form = New-Object System.Windows.Forms.Form
$form.Height = 768
$form.Width = 1024
$tabControl1 = New-object System.Windows.Forms.TabControl
$tabPage1 = new-object System.Windows.Forms.TabPage
$tabPage2 = new-object System.Windows.Forms.TabPage
$webBrowser1 = new-object System.Windows.Forms.WebBrowser
$webBrowser1.ScrollBarsEnabled = $true
$webBrowser2 = new-object System.Windows.Forms.WebBrowser
$webBrowser2.ScrollBarsEnabled = $true
$webBrowser1.Height = 700
$webBrowser1.Width = 1000
$webBrowser2.Height = 700
$webBrowser2.Width = 1000
$webBrowser1.ScrollBarsEnabled = $true
$webBrowser2.ScrollBarsEnabled = $true
$address1 = "http://www.goo.ne.jp/"
$webBrowser1.Navigate(($address1));
$address2 = "http://www.asahi.com/"
$webBrowser2.Navigate(($address2));
$tabPage1.Controls.AddRange(($webBrowser1))
$tabPage1.Text = "goo"
$tabPage2.Controls.AddRange(($webBrowser2))
$tabPage2.Text = "asahi新聞"
$tabControl1.Controls.AddRange(($tabPage1,$tabPage2))
$tabControl1.Location = New-object System.Drawing.Point(1, 1)
$tabControl1.Size = New-object System.Drawing.Size(1024, 768)
$form.Controls.AddRange(( $tabControl1 ))
[System.Windows.Forms.Application]::Run($form)

---------------------------------------------------------------------------------