Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fname As String OpenFileDialog1.FileName = "test.jpg" OpenFileDialog1.Filter = "すべてのファイル(*.*)|*.*|BMPファイル(*.bmp)|*.bmp|JPGファイル(*.jpg)|*.jpg" OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName = "" Then Exit Sub End If
Dim myBitmap = New Bitmap(OpenFileDialog1.FileName) Dim g As Graphics = PictureBox1.CreateGraphics() g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor Dim small As Image = New Bitmap(myBitmap, 400, 400) small.RotateFlip(RotateFlipType.Rotate180FlipX) g.DrawImage(small, 0, 0) End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click Dim g As Graphics = PictureBox1.CreateGraphics() ★Dim myBitmap As Image = New Bitmap(PictureBox1.Image)★ myBitmap.RotateFlip(RotateFlipType.Rotate180FlipX)
g.DrawImage(myBitmap, 0, 0)
myBitmap.dispose() g.Dispose() myBitmap.Dispose() End Sub
分類:[.NET]
pictureboxの絵の反転とかしたいですが、エラーが出てしまいます。
以下のように書いてみましたが・・・
どうすればいいでしょうか?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim fname As String
OpenFileDialog1.FileName = "test.jpg"
OpenFileDialog1.Filter =
"すべてのファイル(*.*)|*.*|BMPファイル(*.bmp)|*.bmp|JPGファイル(*.jpg)|*.jpg"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
Exit Sub
End If
Dim myBitmap = New Bitmap(OpenFileDialog1.FileName)
Dim g As Graphics = PictureBox1.CreateGraphics()
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
Dim small As Image = New Bitmap(myBitmap, 400, 400)
small.RotateFlip(RotateFlipType.Rotate180FlipX)
g.DrawImage(small, 0, 0)
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button18.Click
Dim g As Graphics = PictureBox1.CreateGraphics()
★Dim myBitmap As Image = New Bitmap(PictureBox1.Image)★
myBitmap.RotateFlip(RotateFlipType.Rotate180FlipX)
g.DrawImage(myBitmap, 0, 0)
myBitmap.dispose()
g.Dispose()
myBitmap.Dispose()
End Sub
★の部分でエラーが出ます。
エラーは下の通りです。
'System.NullReferenceException' のハンドルされていない例外が
system.drawing.dll で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
一度ファイルからピクチャボックスに表示した絵を別のボタンで、拡大、縮小、反転したいのですが、(ボタンを押すごとに変化していく感じ)
ファイル名から呼び出せばできるのですが、前の状態がなくなりますし(つДT)
うまくできないです。
初歩的な質問とはおもいますが、教えてください m(__)m