カラーピッカ― (カラーダイアログを表示する)、よく使うサブルーチンライブラリ
ColorPicker.bas
あまり使わない色コードを選択するダイアログですが、使いたくなると忘れてるwwwなので、自分でサブルーチン化しておけば、検索する手間を省けます。
カラーピッカ―(カラーダイアログ)表示
書式 Function GetColorDlg(DefColor)
‘DefColor: ダイアログを開いたときの初期色コード
‘戻り:色コード -1 キャンセル
‘戻り:色コード -1 キャンセル
使用例、
Dim colorv
colorv= GetColorDlg(TextBox1.BackColor)
if colorv<>-1 and colorv<>-2 then
TextBox1.BackColor = colorv
End If
