Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
Basic 上の色指定とペイントアプリの関係
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30322#CommentId83217
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
N88-BASIC
 (社会人)
投稿日時
2018/5/10 11:57:44
Visual Basic 2017 と Windows 10 (1803) 添付のペイントとの色指定について教えてください。
(1)Visual Basic で描画した画像をクリップボード経由で、ペイントにペースト
画像には白色(SolidBrush(Color.FromArb(255,255,255,255))で描画した領域を含めています
(2)ペイント上で[選択]→[透明の選択]を実行
※透明色の対象となるとおもわれる[色2]は白([色の選択]で確認すると赤(R)、緑(R)、青(U)とも値は 255)
A.ペイント上に予め画像をファイルから読み込んだ場合は上記白色部が透明にならない。
B.作成した画像を新規のペイント上でペースト&コピーを行った後は透明となる。
C.新規ペイント上のツールで描画した場合は透明となる。
D.読み込み画像は一度、ペースト&コピーを行った場合は透明となる。
上記A.の場合でも透明とする方法をご存知でしたらご教授ください。
尚、Color.FromArb(255,255,255,255)では、アルファ値?(1番目の引数)は0~255まで試してみましたが駄目でした。
以上、よろしくお願いいたします。
PS.
Visual Basic での描画イメージは以下の通りです。
Dim canvas As New Bitmap(MyPicBox.Width, MyPicBox.Height)
Dim g As Graphics = Graphics.FromImage(canvas)
Dim Rect1, Rect2 As Rectangle
'
Rect1 = New Rectangle(0, 0, MyPicBox.Width, MyPicBox.Height)
Rect2 = New Rectangle(MyPicBox.Width / 4, MyPicBox.Height / 4, MyPicBox.Width / 2, MyPicBox.Height / 2)
g.FillRectangle(New SolidBrush(Color.Green), Rect1)
g.FillEllipse(New SolidBrush(Color.FromArgb(255, 255, 255, 255)), Rect2)
'
g.Dispose()
MyPicBox.Image = canvas
Clipboard.SetImage(MyPicBox.Image)