NK University

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== クリップボード画像リサイズツール ======
[[:powershell|一つ上へ]]

<code powershell>
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# フォーム作成
$form = New-Object System.Windows.Forms.Form
$form.Text = "Clipboard Image Viewer"
$form.Width = 800
$form.Height = 600

# PictureBox
$pictureBox = New-Object System.Windows.Forms.PictureBox
$pictureBox.Dock = "Fill"
$pictureBox.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::Zoom
$form.Controls.Add($pictureBox)

# ボタン（クリップボードから画像を貼り付け）
$buttonPaste = New-Object System.Windows.Forms.Button
$buttonPaste.Text = "Paste from Clipboard"
$buttonPaste.Dock = "Top"
$form.Controls.Add($buttonPaste)

# ボタン（アスペクト比を保ってリサイズ）
$buttonResize = New-Object System.Windows.Forms.Button
$buttonResize.Text = "Resize to fit 300x300"
$buttonResize.Dock = "Top"
$form.Controls.Add($buttonResize)

# クリップボードから貼り付け
$buttonPaste.Add_Click({
    if ([System.Windows.Forms.Clipboard]::ContainsImage()) {
        $image = [System.Windows.Forms.Clipboard]::GetImage()
        $pictureBox.Image = $image
    }
    else {
        [System.Windows.Forms.MessageBox]::Show("クリップボードに画像がありません。")
    }
})

# アスペクト比を維持してリサイズ
$buttonResize.Add_Click({
    if ($pictureBox.Image -ne $null) {
        $image = $pictureBox.Image

        # 元のサイズ
        $origWidth = $image.Width
        $origHeight = $image.Height

        # 最大サイズ
        $maxWidth = 300
        $maxHeight = 300

        # 縮尺を計算（小さい方に合わせる）
        $ratioX = $maxWidth / $origWidth
        $ratioY = $maxHeight / $origHeight
        $ratio = [Math]::Min($ratioX, $ratioY)

        $newWidth = [int]($origWidth * $ratio)
        $newHeight = [int]($origHeight * $ratio)

        # 新しいBitmapを作成して描画
        $resized = New-Object System.Drawing.Bitmap($newWidth, $newHeight)
        $g = [System.Drawing.Graphics]::FromImage($resized)
        $g.DrawImage($image, 0, 0, $newWidth, $newHeight)
        $g.Dispose()

        $pictureBox.Image = $resized
    }
    else {
        [System.Windows.Forms.MessageBox]::Show("画像がありません。")
    }
})

# フォームを表示
[void]$form.ShowDialog()

</code>