１００．カラー選定ダイアログボックスを表示する

＜　使用用途　＞
OCX等使わないでこれを使いましょう

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　説明を大量に書きこんでいます

　＜　説明　＞
ＡＰＩ関数のCHOOSECOLORを使用します
CHOOSECOLOR ＝＞コモンダイアログを表示
　　＜引数＞
　　　　　pChoosecolor:CHOOSECOLOR構造体　　　　　　　
　　＠戻り値＠
　　　　　 OKボタンを押した時1、キャンセルボタンを押した時0

<　ＳＡＭＰＬＥ　＞
’ここでは関数だけを掲載します（すべて掲載すると長くなるので・・・）
'------------------------------------------------------------------------
'■関数名 　ColorDlg
'■用途　　 カラー選定ダイアログボックスを表示して選択したカラー値を取得する
'■引数　　 nHandle:ウインドウハンドル, nColor:現在のカラー値
'■戻り値　 OKボタンを押した時、選択したカラー値、キャンセルボタンを押した時-1
'------------------------------------------------------------------------
Public Function ColorDlg(nHandle As Long, nColor As Long) As Long

　Dim Dlg As PAPY
　Dim Ret As Long
　Dim hMem As Long
　Dim Address As Long
　Dim Choose(15) As Long
　Dim i As Long

　　　For i = 0 To 15
　　　　 Choose(i) = &HFFFFFF
　　　Next

　　
　　　hMem = GlobalAlloc(GHND, 64)
　　
　　　Address = GlobalLock(hMem)
　　
　　　Call MoveMemory(ByVal Address, Choose(0), 64)

　　
　　With Dlg
　　　.lStructSize = Len(Dlg)
　　　.hwndOwner = nHandle
　　　.hInstance = App.hInstance
　　　.rgbResult = nColor
　　　.lpCustColors = Address
　　End With


　　　 Ret = CHOOSECOLOR(Dlg)

　　 If Ret = 0 Then
　　　　 ColorDlg = True
　　Else
　　　　ColorDlg = Dlg.rgbResult
　　End If

　　
　　　Ret = GlobalUnlock(hMem)
　　
　　　Ret = GlobalFree(hMem)

End Function