以前書いた、『Invoke-RestMethodを使って天気予報を取得してみる』の方法で取得した天気情報をWindowsフォームに表示するようにしてみました。
とりあえず明日の天気だけ表示するようにしています。今日とか明後日も表示させようか思いましたがラベルとか配置させるのが面倒なのでやめました。(笑)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | #天気情報取得$city = 140020Add-Type -AssemblyName System.Windows.FormsAdd-Type -AssemblyName System.Drawing #フォーム$form = New-Object System.Windows.Forms.Form $form.Text = "天気予報"$form.Size = New-Object System.Drawing.Size(200,180) $form.StartPosition = "CenterScreen"$form.BackColor = [System.Drawing.Color]::White$form.MaximizeBox = $false$form.MinimizeBox = $false$form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedSingle#タイトル$title = New-Object System.Windows.Forms.Label$title.Location = New-Object System.Drawing.Point(20, 20) $title.Size = New-Object System.Drawing.Size(200,20) $title.Text = $tenki.title$title.Font = New-Object System.Drawing.Font($title.Font, [System.Drawing.FontStyle]::Bold)$form.Controls.Add($title) #ラベル1$label1 = New-Object System.Windows.Forms.Label$label1.Location = New-Object System.Drawing.Point(30, 50) $label1.Size = New-Object System.Drawing.Size(200,20) $label1.Text = $tenki.forecasts[1].dateLabel + ' ' + ([DateTime]::Parse($tenki.forecasts[1].date)).ToString("yyyy年MM年dd日")$form.Controls.Add($label1) #PictureBox$pic = New-Object System.Windows.Forms.PictureBox$pic.ImageLocation = $tenki.forecasts[1].image.url$pic.Location = New-Object System.Drawing.Point(30, 80) $pic.Size = New-Object System.Drawing.Size(50, 31)$pic.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::Zoom$form.Controls.Add($pic) #予報$telop = New-Object System.Windows.Forms.Label$telop.Location = New-Object System.Drawing.Point(90, 80) $telop.Size = New-Object System.Drawing.Size(70,20) $telop.Text = $tenki.forecasts[1].telop$form.Controls.Add($telop) #最高気温$tempmax = New-Object System.Windows.Forms.Label$tempmax.Location = New-Object System.Drawing.Point(90, 100) $tempmax.Size = New-Object System.Drawing.Size(30,20) $tempmax.Text = $tenki.forecasts[1].temperature.max.celsius$tempmax.ForeColor = [System.Drawing.Color]::Red$form.Controls.Add($tempmax) #最低気温$tempmin = New-Object System.Windows.Forms.Label$tempmin.Location = New-Object System.Drawing.Point(120, 100) $tempmin.Size = New-Object System.Drawing.Size(30,20) $tempmin.Text = $tenki.forecasts[1].temperature.min.celsius$tempmin.ForeColor = [System.Drawing.Color]::Blue$form.Controls.Add($tempmin) #フォームを表示$result = $form.ShowDialog()#リソースを開放$pic.Image.Dispose()$pic.Image = $null |
実行結果
スポンサーリンク
