現在picturebox上にExpicturebox(線の描画ができるpicturebox)を合成できるようなコードを入力できました。ここまでは想像通りで行っています。問題なのは、ここからLabelコントロールとpictureboxコントロールを張り付けて保存させたいのです。(=合成したい)ちなみに、そのLabelコントロールとpictureboxコントロールは、動的に作成(コードで生成)したもので、何個でも作成できるようなシステムです。なんとか張り付けるところまではできましたが、根本的な何かが間違っているのか、pictureboxコントロールは一個しか合成されず、位置もも右下の端に表示されてしまいます。Labelコントロールは張り付けることができません。。。これをなんとかして合成させて画像の保存まで行きたいです。以下のコードは、親pictureboxと親Expictureboxを合成して保存し、Labelコントロールとpictureboxコントロールを張り付ける前のコードです。
※VS2015、VB.NET、windows10で作成しています。
Dim img1 As Bitmap = New Bitmap(PictureBox2.Image) Dim img2 As Bitmap = New Bitmap(ExPictureBox1.Image) Dim img3 As Bitmap = New Bitmap(img1) Dim g As Graphics = Graphics.FromImage(img3) Dim sfd As New SaveFileDialog() sfd.FileName = "路線図.png" sfd.InitialDirectory = "ピクチャ" sfd.Filter = "画像(*.png;)|*.png;|すべてのファイル(*.*)|*.*" sfd.FilterIndex = 1 sfd.Title = "保存先のファイルを選択してください" sfd.RestoreDirectory = True sfd.OverwritePrompt = True sfd.CheckPathExists = True If sfd.ShowDialog() = DialogResult.OK Then Console.WriteLine(sfd.FileName) End If g.DrawImage(img2, img3.Width - img2.Width, img3.Height - img2.Height, img2.Width, img2.Height) img3.Save(sfd.FileName)
回答1件
あなたの回答
tips
プレビュー