tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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文の判定は、
自分で調べて試してみたのですが、上手くいきませんでした・・・


大変恐縮ですが、
どのようにコードを書いていいのか、
アドバイスいただけないでしょうか?
よろしくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。