ピクチャーボックスに表示・描画した画像・文字の保存及び消去方法(VB6.0)

Option Explicit　　 'SampleNo=087　 2002.05.17

Private Sub Form_Load()
　　Form1.Move 0, 0, 8600, 5000
　　Picture1.Move 375, 225, 3690, 3240
　　Picture2.Move 4350, 225, 3690, 3240
End Sub

Private Sub Command3_Click()
'PictureBoxに長方形・文字・円を描く
　　'ボックスを描き内部を明るいシアン色に塗りつぶす
　　Picture1.Line (350, 170)-(3400, 510), QBColor(11), BF
　　With Picture1
　　　　'描画したものを保存する場合Trueにする
　　　　.AutoRedraw = True
　　　　.ScaleMode = vbCharacters　 'キャラクターモードに
　　　　.CurrentX = 4　　　　　　　 '4桁目
　　　　.CurrentY = 1　　　　　　　 '1行目
　　　　.ForeColor = QBColor(12)
　　　　.FontName = "MS 明朝"
　　　　.FontSize = 11
　　　　.FontBold = True
　　　　Picture1.Print "花ちゃんのホームページ"
　　　　.ScaleMode = vbTwips　　　　 '既定値戻す
　　End With
　　Dim CX　　 As Long
　　Dim CY　　 As Long
　　Dim Radius As Long
　　Dim Limit　As Long
　　With Picture1
　　　　.ScaleMode = 3　　　　　 ' 単位をピクセルに設定します。
　　　　CX = .ScaleWidth \ 2　　 ' X 座標を設定します。
　　　　CY = .ScaleHeight \ 2　　' Y 座標を設定します。
　　End With
　　CY = CY + 17
　　Limit = 75
　　For Radius = 0 To Limit Step 3 ' 半径を設定します。
　　　　'色をランダムに設定して円を描く
　　　　Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
　　Next Radius
End Sub

Private Sub Command1_Click()
'表示データをビットマップ形式のデータで保存
　　SavePicture Picture1.Image, "MyBmp.bmp"
End Sub

ピクチャーボックスに表示した画像・文字等を消去する

Private Sub Command2_Click()
'全て消去する場合
'　 Picture1.Cls

'文字だけ消去する場合は、バックの色で同じ位置に再度描画する
　　With Picture1
　　　　.AutoRedraw = True
　　　　.ScaleMode = vbCharacters　 'キャラクターモードに
　　　　.CurrentX = 4　　　　　　　 '4桁目
　　　　.CurrentY = 1　　　　　　　 '1行目
　　　　.ForeColor = QBColor(11)
　　　　.FontName = "MS 明朝"
　　　　.FontSize = 11
　　　　.FontBold = True
　　　　Picture1.Print "花ちゃんのホームページ"
　　　　.ScaleMode = vbTwips　　　　 '既定値戻す
　　End With
End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

１．ピクチャーボックスに文字を表示及び図形を描画　　２．表示データをビットマップ形式のデータで保存　　３．保存したデータを読み込んで表示
４．色をランダムに設定して円を描く
ピクチャーボックスに表示した画像を消去する　　ピクチャーボックスに表示した文字を消去する

VBレスキュー(花ちゃん)

Visual Basic 6.0