VB2008コントロール使用例:ピクチャーボックスの使い方(TextBox)

ピクチャーボックス コントロールの使用例サンプルです

コントロールの使用例へ



下記のピクチャーボックスのTipsを実行します。
  • 画像ファイルの画像を表示する
    Image.FromFileメソッドを使用します。
  • 画像を消去する
    Disposeメソッドでリソースを解放後、Nothingキーワードでメモリをクリアします。
  • 背景画像を重ねて表示する
    Backgroundimageプロパティに設定します
  • ピクチャーボックスの画像表示方法を変更する
    SizeModeプロパティを変更します。

    [ SizeModeの値 ]
    • Normal : PictureBoxの左上隅に配置されます。PictureBoxよりもイメージの方が大きい場合、はみ出す部分は表示されません。
    • StretchImage : PictureBox のサイズに合うように調整されます。
    • AutoSize : 格納しているイメージと同じ大きさになります。
    • CenterImage : PictureBox がイメージより大きい場合、イメージは中央に表示されます。
      イメージの方が PictureBox より大きい場合、イメージは PictureBox の中央に配置され、外にはみ出した部分は表示されません。
    • Zoom : イメージのサイズは、サイズ比率を維持したままで拡大または縮小します。
■ Normal 画面
ピクチャーボックス使用ソフト

■ StretchImage画面
画像表示ソフト

■ AutoSize画面
画像がはみ出している

■ CenterImage画面
画像のサイズが自動的に修正

■ Zoom画面 - 背景画像が設定されているのが分かります。
画像を重ねて表示した場合のソフト画面

■ 実行コード

Public Class Form1

'画像ファイルの選択
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog

With ofd
'タイトル
.Title = "開くファイルを選択してください"
'初期のファイル名
.FileName = ""
'フィルターの何番目を既定値にするか
.FilterIndex = 1
'フィルター:ファイルの種類
.Filter = "画像ファイル名(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF"
'初期のフォルダー
.InitialDirectory = "C:\"
End With

'「ファイルを開く」ダイアログを表示。
If ofd.ShowDialog() = DialogResult.OK Then
'選択されたファイルをピクチャーボックスに表示
PictureBox1.Image = Image.FromFile(ofd.FileName)
End If

ofd.Dispose()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'画像の消去
PictureBox1.Image.Dispose()
PictureBox1.Image = Nothing
End Sub

'ピクチャーボックスの画像表示方法
Private Sub Ramen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, RadioButton5.CheckedChanged

If RadioButton1.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.Normal
ElseIf RadioButton2.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
ElseIf RadioButton3.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
ElseIf RadioButton4.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
ElseIf RadioButton5.Checked Then
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ofd As New OpenFileDialog

With ofd
'タイトル
.Title = "開くファイルを選択してください"
'初期のファイル名
.FileName = ""
'フィルターの何番目を既定値にするか
.FilterIndex = 1
'フィルター:ファイルの種類
.Filter = "画像ファイル名(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF"
'初期のフォルダー
.InitialDirectory = "C:\"
End With

'「ファイルを開く」ダイアログを表示。
If ofd.ShowDialog() = DialogResult.OK Then
'選択されたファイルをピクチャーボックスに表示
PictureBox1.BackgroundImage = Image.FromFile(ofd.FileName)
End If

ofd.Dispose()

End Sub
End Class


Visual Basic 2008 Express Edition実践入門