・絵の表示(PictureBoxコントロールとImageプロパティ)
・絵の入れ替え表示
VBでは自分で書いた絵を色々なところに貼り付け、表示することができます。
ここでは、PictureBoxコントロール(オブジェクト)にImageプロパティを使って表示させてみよう。
絵を描くにはVBとは全く別の「ペイント」ツールなどで書いて、絵のファイルを作っておこう。
○PictureBoxコントロール
○PictureBoxに絵を表示する方法
PictureBox1.Image = Image.FromFile("dice1.png")
○絵の入れ替え表示
PictureBox2.Image = Image.FromFile("picture-file1.png")
PictureBox3.Image = Image.FromFile("picture-file2.png")
PictureBox1.Image = PictureBox2.Image
PictureBox1.Image = PictureBox3.Image
○適当な絵の表示
Dim d, x
Randomize()
PictureBox2.Image = Image.FromFile("dice1.png")
PictureBox3.Image = Image.FromFile("dice2.png")
d = Int(Rnd(1) * 6) + 1
x = d Mod 2
If x = 0 Then
PictureBox1.Image = PictureBox2.Image
Else
PictureBox1.Image = PictureBox3.Image
End If
Label1.Text = d
Label2.Text = x
Randomize()
pic2 = "dice1.png"
pic3 = "dice2.png"
d = Int(Rnd(1) * 6) + 1
x = d Mod 2
Label1.Text = d
Label2.Text = x
If x = 0 Then
PictureBox1.Image = Image.FromFile(pic2)
Else
PictureBox1.Image = Image.FromFile(pic3)
End If
もしくは次のようにしてもよい。
Dim pic, pic2, pic3, d, x
Randomize()
pic2 = "dice1.png"
pic3 = "dice2.png"
d = Int(Rnd(1) * 6) + 1
x = d Mod 2
Label1.Text = d
Label2.Text = x
If x = 0 Then
pic = pic2
Else
pic = pic3
End If
PictureBox1.Image = Image.FromFile( pic )
*参考キーワード;
ピクチャボックス(PictureBox)