タイトル : Re^8: ドラッグアンドドロップで.. 投稿日 : 2006/01/17(Tue) 13:46 投稿者 : ふき
[OSのVer]:Windows XP [VBのVer]:VB.NET 花ちゃんさん、お返事ありがとうございます。 > だったら色(R・G・B)を合成すればいいのでは。 > ドラッグ元の色とドラッグ先の色のR・G・Bを合成して下さい。 > 赤(255,0,0)+青(0,0,255)=マゼンタ(255,0,255) (128,0,128) 「RGB」をキーワードとして、MSDNで検索した結果、 Dim red, rgbValue As Integer Dim i As Integer = 75 red = RGB(255, 0, 0) rgbValue = RGB(i, 64 + i, 128 + i) このようなプログラムの例が出てきたので、 VBレスキューさんの、「テキストボックスのバックカラーを設定する」のところに、 TextBox1.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 0, 255)) というのを参考にさせてもらって、 Dim red, blue As Integer red = RGB(255, 0, 0) ←PictureBox1の色 blue = RGB(0, 0, 255) ←PictureBox2の色 if PictureBox3のBackColorがWhiteなら if ドラッグされてきた色が赤ならば PictureBox3.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 0, 0)) Endif Endif if PictureBox3のBackColorがRedなら if ドラッグされてきた色がblueならば、 PictureBox3.BackColor = ColorTranslator.FromWin32(Microsoft.VisualBasic.RGB(255, 0, 255)) Endif Endif というのを考えてみたのですが、 合成の方針としましてはこのような考え方でよいのでしょうか? また、PictureBoxが現在何色かというif文の判定は、 自分で調べて試してみたのですが、上手くいきませんでした・・・ 大変恐縮ですが、 どのようにコードを書いていいのか、 アドバイスいただけないでしょうか? よろしくお願い致します。 |