|
分類:[VB.NET/VB2005 以降]
分類:[VB.NET 2008]
開発環境 windows7
こんにちはよろしくお願いします。
自分は画像縮小ソフトを作っていて ファイルを開くで画像をピクチャーボックスに取得しボタンを押したら別のフォームに描画という形なんですが・・そのフォームに描画することはできたんですが・・・最大化や最小化を押すと画像が消えてしまいます
質問下手でスイマセン・・・
誰かお助けお願いします
Public Class Form1
Private Sub ToolOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolOpen.Click
Dim Opf As New OpenFileDialog
With Opf
'タイトル
.Title = "開くファイルを選択してください"
'初期のファイル名
.FileName = ""
'フィルターの何番目を既定値にするか
.FilterIndex = 1
'フィルター:ファイルの種類
.Filter = "画像ファイル名(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF"
'初期のフォルダー
.InitialDirectory = "C:\"
End With
'「ファイルを開く」ダイアログを表示。
If Opf.ShowDialog() = DialogResult.OK Then
'選択されたファイルをピクチャーボックスに表示
PicBox.Image = Image.FromFile(Opf.FileName)
PicBox.SizeMode = PictureBoxSizeMode.AutoSize
End If
Opf.Dispose()
End Sub
Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
'インスタンス作成'
Dim bmp As New Bitmap(PicBox.Image, 1280, 800)
Dim g As Graphics = Form3.CreateGraphics
Form2.Show()
g.DrawImage(bmp, 0, 0)
End If
End Sub
End Class
|