作りながら学ぶVBAプログラミング

カラーピッカ― (カラーダイアログを表示する)、よく使うサブルーチンライブラリ

ColorPicker.bas

あまり使わない色コードを選択するダイアログですが、使いたくなると忘れてるwww

なので、自分でサブルーチン化しておけば、検索する手間を省けます。


カラーピッカ―(カラーダイアログ)表示

書式 Function GetColorDlg(DefColor) ‘DefColor: ダイアログを開いたときの初期色コード
‘戻り:色コード -1 キャンセル

使用例、
Dim colorv
colorv= GetColorDlg(TextBox1.BackColor)
if colorv<>-1 and colorv<>-2 then
TextBox1.BackColor = colorv
End If



カラーピッカ― (カラーダイアログを表示する) ColorPicker.bas ダウンロード




  • このエントリーをはてなブックマークに追加

関連記事

ゆずまる・ゆぅべぇ

システムエンジニア/プログラマ歴数十年のゆずまるです。

バナーにもあるように変体的な犬マニアで生まれてからこのかた犬のいない日は経験していません。
中でもコッカースパニエルとラブラドールが死ぬほど好き!

そんなゆずまるは、20数種類の様々な言語を使用してシステム開発をおこなってきました。

そこで使ってきた各言語の自作ライブラリ中のVBAのライブラリを公開しています。

※姉妹サイトに C,PHP などのサイトもネット上に浮遊させております。そちらでもお役にたてましたら無上の喜びw

あなたの一助になれば幸いです。