VB.netでのカレーパレットについて

質問

こんにちわ。

OS:WindowsXP SP3
開発言語:Visual Studio2005(vb.net)

いつもお世話になっております。

ご質問させていただきたい点がございます。

入力画面でマスタデータ登録時にパレットを表示して選択後登録。
出力画面で出力ボタンを押すとDBに登録されている値を元にExcelファイルを作成する、というプログラムを作成しています。

Excel出力時にはExcelファイルを作成するサードパーティ製のツールを利用しているのですがその製品の制限でExcelのColorindexにて定義されている色しか使用できないことが判明しました。

・colorindex
http://www.relief.jp/itnote/xls_colorindex.php

本当はRGBで指定したかったのですがツールの制限上仕方が無いとのことでしたのでその部分はあきらめたのですが、今度は入力画面に表示しているパレットもColorindexにて指定されている色しか選択できないようにする必要が出てきました。

通常vb.netでパレットを表示する場合はcolorDialogを使用すれば可能なのですが、colorDialogではColorindexの値のみ表示するという機能は無い様に思えました。

基本セットの色のみ表示(AnyColor = True)という機能はあるようですが、基本セットの色とcolorindexで指定されている色は異なるようで使用できません。

こういった場合はパレット自体を自作するしかないのでしょうか？
それとも何か別の手段で実現する手立てがあるのでしょうか？
（colorDialogにはこだわっていません。）

基本的には自作すればよいのでしょうが、同じマイクロソフト製品で定義された色郡がvb.netのコンポーネントで指定できないのがなんとなく腑に落ちず質問させていただきました。

もしご存知の方いらっしゃれば教えていただけませんでしょうか？

回答No.1

imogasi · ベストアンサー

下記を参考に考えてはいかがでしょう。
ExcelのカラーインデックスはRGBではどの色に当たるか？。
以下は例として少なくするため、１１までの繰り返しにしていますが、５６（５７行）までの繰り返しでやってください。（Colorindexが５６までなので）
ExcelでのVBA
Sub test02()
For i = 2 To 11
Cells(i, "A") = i
Cells(i, "B").Interior.ColorIndex = i
Next i
End Sub
これでExcelのカラーインデックスの実物色がB列のセルに出来る
ーーー
Sub test03()
For i = 2 To 11
Cells(i, "C") = Cells(i, "B").Interior.Color
Next i
End Sub
これでC列にB列の色のRGBコードが出る（10進）
ーーーー
Sub test05()
Dim lngred As Long
Dim lnggreen As Long
Dim lngblue As Long
For i = 2 To 11
lngcode = Cells(i, "C")
Cells(i, "F") = Int(lngcode / 256 ^ 2)
lngcode = lngcode - Int(lngcode / 256 ^ 2) * 256 ^ 2
Cells(i, "E") = Int(lngcode / 256)
Cells(i, "D") = lngcode - Int(lngcode / 256) * 256
Next i
End Sub
でR、G、Bコードに分解して
Rー＞D列
G－＞E列
B－＞F列
に数値が出る。
ーー
Sub test04()
For i = 2 To 11
Cells(i, "H").Interior.Color = RGB(Cells(i, "D"), Cells(i, "E"), Cells(i, "F"))
Next i
End Sub
念のためにH列にRGB指定で色を再現。同じ色であることを確認出来る。
VB.NETの方で＞入力画面に表示しているパレットの方もそれに、RGB指定によって、あわせてはどうですか。
ーーー
なおエクセルはRGBでⓇ,G,Bの０－２５５以内の勝手な組み合わせを指定しても５６色に近い色に鞘寄せするように聞いています（？）
ただしそのルールは、私には今にわかには判りません。

お礼

ご回答ありがとうございます。
ご返事遅くなりまして大変申し訳ありません。
（本当に申し訳ありません）

頂いた表記で各colorindexのRGBを取得しパレットを自作することができました。サードパーティ製ツールが56値しか対応していないので結構鳴動でしたが、何とか完成しました。
パレット側ではRGB以外にAも考慮する必要があるのですね。
(255で固定しましたが）

いろいろありがとうございました。